update to ida 7.6, add builds
This commit is contained in:
397
idasdk76/module/dsp56k/out.cpp
Normal file
397
idasdk76/module/dsp56k/out.cpp
Normal file
@@ -0,0 +1,397 @@
|
||||
|
||||
#include "dsp56k.hpp"
|
||||
|
||||
// simple wrapper class for syntactic sugar of member functions
|
||||
// this class may have only simple member functions.
|
||||
// virtual functions and data fields are forbidden, otherwise the class
|
||||
// layout may change
|
||||
class out_dsp56k_t : public outctx_t
|
||||
{
|
||||
out_dsp56k_t(void) = delete; // not used
|
||||
public:
|
||||
bool out_operand(const op_t &x);
|
||||
void out_insn(void);
|
||||
void out_proc_mnem(void);
|
||||
void outreg(int r) { out_register(ph.reg_names[r]); }
|
||||
bool out_port_address(ea_t addr);
|
||||
void out_bad_address(ea_t addr);
|
||||
void out_ip_rel(int displ);
|
||||
void out_operand_group(int idx, const op_t *x);
|
||||
};
|
||||
CASSERT(sizeof(out_dsp56k_t) == sizeof(outctx_t));
|
||||
|
||||
DECLARE_OUT_FUNCS(out_dsp56k_t)
|
||||
|
||||
//--------------------------------------------------------------------------
|
||||
static const char *const cc_text[] =
|
||||
{
|
||||
"cc", // carry clear (higher or same) C=0
|
||||
"ge", // greater than or equal N & V=0
|
||||
"ne", // not equal Z=0
|
||||
"pl", // plus N=0
|
||||
"nn", // not normalized Z+(U.E)=0
|
||||
"ec", // extension clear E=0
|
||||
"lc", // limit clear L=0
|
||||
"gt", // greater than Z+(N & V)=0
|
||||
"cs", // carry set (lower) C=1
|
||||
"lt", // less than N & V=1
|
||||
"eq", // equal Z=1
|
||||
"mi", // minus N=1
|
||||
"nr", // normalized Z+(U.E)=1
|
||||
"es", // extension set E=1
|
||||
"ls", // limit set L=1
|
||||
"le", // less than or equal Z+(N & V)=1
|
||||
};
|
||||
|
||||
//--------------------------------------------------------------------------
|
||||
static const char *const su_text[] =
|
||||
{
|
||||
"ss", // signed * signed
|
||||
"su", // signed * unsigned
|
||||
"uu", // unsigned * unsigned
|
||||
};
|
||||
|
||||
static const char *const formats[] =
|
||||
{
|
||||
COLSTR("(", SCOLOR_SYMBOL) COLSTR("r%d", SCOLOR_REG) COLSTR(")-", SCOLOR_SYMBOL) COLSTR("n%d", SCOLOR_REG),
|
||||
COLSTR("(", SCOLOR_SYMBOL) COLSTR("r%d", SCOLOR_REG) COLSTR(")+", SCOLOR_SYMBOL) COLSTR("n%d", SCOLOR_REG),
|
||||
COLSTR("(", SCOLOR_SYMBOL) COLSTR("r%d", SCOLOR_REG) COLSTR(")-", SCOLOR_SYMBOL),
|
||||
COLSTR("(", SCOLOR_SYMBOL) COLSTR("r%d", SCOLOR_REG) COLSTR(")+", SCOLOR_SYMBOL),
|
||||
COLSTR("(", SCOLOR_SYMBOL) COLSTR("r%d", SCOLOR_REG) COLSTR(")", SCOLOR_SYMBOL),
|
||||
COLSTR("(", SCOLOR_SYMBOL) COLSTR("r%d", SCOLOR_REG) COLSTR("+", SCOLOR_SYMBOL) COLSTR("n%d", SCOLOR_REG) COLSTR(")", SCOLOR_SYMBOL),
|
||||
"internal error with o_phrase",
|
||||
COLSTR("-(", SCOLOR_SYMBOL) COLSTR("r%d", SCOLOR_REG) COLSTR(")", SCOLOR_SYMBOL),
|
||||
COLSTR("$+", SCOLOR_SYMBOL) COLSTR("r%d", SCOLOR_REG),
|
||||
COLSTR("(", SCOLOR_SYMBOL) COLSTR("a1", SCOLOR_REG) COLSTR(")", SCOLOR_SYMBOL),
|
||||
COLSTR("(", SCOLOR_SYMBOL) COLSTR("b1", SCOLOR_REG) COLSTR(")", SCOLOR_SYMBOL),
|
||||
};
|
||||
// 0 (Rn)-Nn
|
||||
// 1 (Rn)+Nn
|
||||
// 2 (Rn)-
|
||||
// 3 (Rn)+
|
||||
// 4 (Rn)
|
||||
// 5 (Rn+Nn)
|
||||
// 7 -(Rn)
|
||||
// 8 $+Rn
|
||||
// 9 (a1)
|
||||
// 10 (b1)
|
||||
|
||||
|
||||
static const char *const formats2[] =
|
||||
{
|
||||
COLSTR("(", SCOLOR_SYMBOL) COLSTR("r%d", SCOLOR_REG) COLSTR("+", SCOLOR_SYMBOL) COLSTR("$%X", SCOLOR_NUMBER) COLSTR(")", SCOLOR_SYMBOL),
|
||||
COLSTR("(", SCOLOR_SYMBOL) COLSTR("r%d", SCOLOR_REG) COLSTR("-", SCOLOR_SYMBOL) COLSTR("$%X", SCOLOR_NUMBER) COLSTR(")", SCOLOR_SYMBOL),
|
||||
};
|
||||
|
||||
|
||||
//----------------------------------------------------------------------
|
||||
bool out_dsp56k_t::out_port_address(ea_t addr)
|
||||
{
|
||||
dsp56k_t &pm = *static_cast<dsp56k_t *>(procmod);
|
||||
const ioport_t *port = pm.find_port(addr);
|
||||
if ( port != NULL && !port->name.empty() )
|
||||
{
|
||||
out_line(port->name.c_str(), COLOR_IMPNAME);
|
||||
return true;
|
||||
}
|
||||
return false;
|
||||
}
|
||||
|
||||
//----------------------------------------------------------------------
|
||||
void out_dsp56k_t::out_bad_address(ea_t addr)
|
||||
{
|
||||
if ( !out_port_address(addr) )
|
||||
{
|
||||
out_tagon(COLOR_ERROR);
|
||||
out_btoa(addr, 16);
|
||||
out_tagoff(COLOR_ERROR);
|
||||
remember_problem(PR_NONAME, insn.ea);
|
||||
}
|
||||
}
|
||||
|
||||
//----------------------------------------------------------------------
|
||||
void out_dsp56k_t::out_ip_rel(int displ)
|
||||
{
|
||||
out_printf(COLSTR("%s+", SCOLOR_SYMBOL) COLSTR("%d", SCOLOR_NUMBER),
|
||||
ash.a_curip, displ);
|
||||
}
|
||||
|
||||
//----------------------------------------------------------------------
|
||||
bool out_dsp56k_t::out_operand(const op_t &x)
|
||||
{
|
||||
dsp56k_t &pm = *static_cast<dsp56k_t *>(procmod);
|
||||
if ( x.type == o_imm )
|
||||
{
|
||||
out_symbol('#');
|
||||
}
|
||||
else
|
||||
{
|
||||
if ( x.amode & amode_x )
|
||||
{
|
||||
out_register("x");
|
||||
out_symbol(':');
|
||||
}
|
||||
if ( x.amode & amode_y )
|
||||
{
|
||||
out_register("y");
|
||||
out_symbol(':');
|
||||
}
|
||||
if ( x.amode & amode_p )
|
||||
{
|
||||
out_register("p");
|
||||
out_symbol(':');
|
||||
}
|
||||
if ( x.amode & amode_l )
|
||||
{
|
||||
out_register("l");
|
||||
out_symbol(':');
|
||||
}
|
||||
}
|
||||
if ( x.amode & amode_ioshort )
|
||||
{
|
||||
out_symbol('<');
|
||||
out_symbol('<');
|
||||
}
|
||||
if ( x.amode & amode_short )
|
||||
out_symbol('<');
|
||||
if ( x.amode & amode_long )
|
||||
out_symbol('>');
|
||||
if ( x.amode & amode_neg )
|
||||
out_symbol('-');
|
||||
|
||||
switch ( x.type )
|
||||
{
|
||||
case o_void:
|
||||
return 0;
|
||||
|
||||
case o_imm:
|
||||
out_value(x, OOFS_IFSIGN|OOFW_IMM);
|
||||
break;
|
||||
|
||||
case o_reg:
|
||||
outreg(x.reg);
|
||||
break;
|
||||
|
||||
case o_mem:
|
||||
// no break;
|
||||
case o_near:
|
||||
{
|
||||
ea_t ea = pm.calc_mem(insn, x);
|
||||
// xmem ioports
|
||||
if ( x.amode & (amode_x|amode_l) && out_port_address(x.addr) )
|
||||
{
|
||||
const ioport_t *port = pm.find_port(x.addr);
|
||||
if ( port != NULL && !has_user_name(get_flags(ea)) )
|
||||
set_name(ea, port->name.c_str(), SN_NODUMMY);
|
||||
break;
|
||||
}
|
||||
if ( ea == insn.ea+insn.size )
|
||||
out_ip_rel(insn.size);
|
||||
else if ( !out_name_expr(x, ea, x.addr) )
|
||||
out_bad_address(x.addr);
|
||||
}
|
||||
break;
|
||||
|
||||
case o_phrase:
|
||||
{
|
||||
char buf[MAXSTR];
|
||||
nowarn_qsnprintf(buf, sizeof(buf), formats[uchar(x.phtype)], x.phrase, x.phrase);
|
||||
out_colored_register_line(buf);
|
||||
}
|
||||
break;
|
||||
|
||||
case o_displ:
|
||||
{
|
||||
char buf[MAXSTR];
|
||||
nowarn_qsnprintf(buf, sizeof(buf), formats2[uchar(x.phtype)], x.phrase, x.addr);
|
||||
out_colored_register_line(buf);
|
||||
}
|
||||
break;
|
||||
|
||||
case o_iftype:
|
||||
{
|
||||
char postfix[4];
|
||||
qstrncpy(postfix, cc_text[insn.auxpref & aux_cc], sizeof(postfix));
|
||||
if ( x.imode == imode_if )
|
||||
out_printf(COLSTR("IF%s", SCOLOR_SYMBOL), postfix);
|
||||
else
|
||||
out_printf(COLSTR("IF%s.U", SCOLOR_SYMBOL), postfix);
|
||||
}
|
||||
break;
|
||||
|
||||
case o_vsltype:
|
||||
out_symbol((insn.auxpref & 1) + '0');
|
||||
break;
|
||||
|
||||
default:
|
||||
interr(&insn, "out");
|
||||
break;
|
||||
}
|
||||
return 1;
|
||||
}
|
||||
|
||||
//----------------------------------------------------------------------
|
||||
void out_dsp56k_t::out_operand_group(int idx, const op_t *x)
|
||||
{
|
||||
for ( int i=0; i < 2; i++,x++ )
|
||||
{
|
||||
if ( x->type == o_void )
|
||||
break;
|
||||
if ( i != 0 )
|
||||
{
|
||||
out_symbol(',');
|
||||
}
|
||||
else if ( insn.itype != DSP56_move || idx != 0 )
|
||||
{
|
||||
size_t n = 16;
|
||||
if ( idx == (insn.itype == DSP56_move) )
|
||||
n = tag_strlen(outbuf.c_str());
|
||||
do
|
||||
out_char(' ');
|
||||
while ( ++n < 20 );
|
||||
}
|
||||
out_operand(*x);
|
||||
}
|
||||
}
|
||||
|
||||
//----------------------------------------------------------------------
|
||||
void out_dsp56k_t::out_proc_mnem(void)
|
||||
{
|
||||
// output instruction mnemonics
|
||||
char postfix[4];
|
||||
postfix[0] = '\0';
|
||||
switch ( insn.itype )
|
||||
{
|
||||
case DSP56_tcc:
|
||||
case DSP56_debugcc:
|
||||
case DSP56_jcc:
|
||||
case DSP56_jscc:
|
||||
case DSP56_bcc:
|
||||
case DSP56_bscc:
|
||||
case DSP56_trapcc:
|
||||
qstrncpy(postfix, cc_text[insn.auxpref & aux_cc], sizeof(postfix));
|
||||
break;
|
||||
|
||||
case DSP56_dmac:
|
||||
case DSP56_mac_s_u:
|
||||
case DSP56_mpy_s_u:
|
||||
qstrncpy(postfix, su_text[insn.auxpref & aux_su], sizeof(postfix));
|
||||
break;
|
||||
}
|
||||
|
||||
out_mnem(8, postfix);
|
||||
}
|
||||
|
||||
//----------------------------------------------------------------------
|
||||
void out_dsp56k_t::out_insn(void)
|
||||
{
|
||||
dsp56k_t &pm = *static_cast<dsp56k_t *>(procmod);
|
||||
out_mnemonic();
|
||||
bool comma = out_one_operand(0);
|
||||
if ( insn.Op2.type != o_void )
|
||||
{
|
||||
if ( comma )
|
||||
out_symbol(',');
|
||||
out_one_operand(1);
|
||||
}
|
||||
if ( insn.Op3.type != o_void )
|
||||
{
|
||||
out_symbol(',');
|
||||
out_one_operand(2);
|
||||
}
|
||||
|
||||
pm.fill_additional_args(insn);
|
||||
for ( int i=0; i < pm.aa.nargs; i++ )
|
||||
out_operand_group(i, pm.aa.args[i]);
|
||||
|
||||
out_immchar_cmts();
|
||||
flush_outbuf();
|
||||
}
|
||||
|
||||
//--------------------------------------------------------------------------
|
||||
//lint -e{818} seg could be made const
|
||||
void dsp56k_t::segstart(outctx_t &ctx, segment_t *seg) const
|
||||
{
|
||||
if ( is_spec_segm(seg->type) )
|
||||
return;
|
||||
|
||||
qstring sname;
|
||||
qstring sclas;
|
||||
get_segm_name(&sname, seg);
|
||||
get_segm_class(&sclas, seg);
|
||||
|
||||
if ( ash.uflag & UAS_GNU )
|
||||
{
|
||||
const char *predefined[] =
|
||||
{
|
||||
".text", // Text section
|
||||
".data", // Data sections
|
||||
".rdata",
|
||||
".comm",
|
||||
};
|
||||
if ( !print_predefined_segname(ctx, &sname, predefined, qnumber(predefined)) )
|
||||
ctx.gen_printf(DEFAULT_INDENT,
|
||||
COLSTR(".section %s", SCOLOR_ASMDIR) " " COLSTR("%s %s", SCOLOR_AUTOCMT),
|
||||
sname.c_str(),
|
||||
ash.cmnt,
|
||||
sclas.c_str());
|
||||
}
|
||||
else
|
||||
{
|
||||
validate_name(&sname, VNT_IDENT);
|
||||
if ( sname == "XMEM" || sname == "YMEM" )
|
||||
{
|
||||
char buf[MAX_NUMBUF];
|
||||
btoa(buf, sizeof(buf), seg->start_ea-get_segm_base(seg));
|
||||
ctx.gen_printf(DEFAULT_INDENT,
|
||||
COLSTR("%s %c:%s", SCOLOR_ASMDIR),
|
||||
ash.origin,
|
||||
qtolower(sname[0]),
|
||||
buf);
|
||||
}
|
||||
else
|
||||
{
|
||||
ctx.gen_printf(DEFAULT_INDENT,
|
||||
COLSTR("section %s", SCOLOR_ASMDIR) " " COLSTR("%s %s", SCOLOR_AUTOCMT),
|
||||
sname.c_str(),
|
||||
ash.cmnt,
|
||||
sclas.c_str());
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
//--------------------------------------------------------------------------
|
||||
//lint -e{818} seg could be made const
|
||||
void dsp56k_t::segend(outctx_t &ctx, segment_t *seg) const
|
||||
{
|
||||
if ( is_spec_segm(seg->type) )
|
||||
return;
|
||||
|
||||
if ( (ash.uflag & UAS_GNU) == 0 )
|
||||
{
|
||||
qstring sname;
|
||||
get_segm_name(&sname, seg);
|
||||
if ( sname != "XMEM" && sname != "YMEM" )
|
||||
ctx.gen_printf(DEFAULT_INDENT, "endsec");
|
||||
}
|
||||
}
|
||||
|
||||
//--------------------------------------------------------------------------
|
||||
void dsp56k_t::header(outctx_t &ctx)
|
||||
{
|
||||
ctx.gen_header(GH_PRINT_ALL, NULL, ioh.device.c_str());
|
||||
}
|
||||
|
||||
//--------------------------------------------------------------------------
|
||||
void dsp56k_t::footer(outctx_t &ctx) const
|
||||
{
|
||||
qstring nbuf = get_colored_name(inf_get_start_ea());
|
||||
const char *name = nbuf.c_str();
|
||||
const char *end = ash.end;
|
||||
if ( end == NULL )
|
||||
ctx.gen_printf(DEFAULT_INDENT, COLSTR("%s end %s",SCOLOR_AUTOCMT), ash.cmnt, name);
|
||||
else
|
||||
ctx.gen_printf(DEFAULT_INDENT,
|
||||
COLSTR("%s",SCOLOR_ASMDIR) " " COLSTR("%s %s",SCOLOR_AUTOCMT),
|
||||
ash.end, ash.cmnt, name);
|
||||
}
|
||||
Reference in New Issue
Block a user