#define CGEN_VALIDATE_INSN_SUPPORTED
#define CGEN_VERBOSE_ASSEMBLER_ERRORS
#define CGEN_DIS_HASH_SIZE 8
#define CGEN_DIS_HASH(buf, value) (((* (unsigned char *) (buf)) >> 5) % CGEN_DIS_HASH_SIZE)
#define CGEN_ASM_HASH_SIZE 127
#define CGEN_ASM_HASH(insn) mt_asm_hash (insn)
extern unsigned int mt_asm_hash (const char *);
extern int mt_cgen_insn_supported (CGEN_CPU_DESC, const CGEN_INSN *);
#include "safe-ctype.h"
int
mt_cgen_insn_supported (CGEN_CPU_DESC cd, const CGEN_INSN *insn)
{
int machs = CGEN_INSN_ATTR_VALUE (insn, CGEN_INSN_MACH);
if (machs == 0)
return 1;
return ((machs & cd->machs) != 0);
}
unsigned int
mt_asm_hash (const char* insn)
{
unsigned int hash;
const char* m = insn;
for (hash = 0; *m && ! ISSPACE (*m); m++)
hash = (hash * 23) ^ (0x1F & TOLOWER (*m));
return hash % CGEN_ASM_HASH_SIZE;
}
static int
signed_out_of_bounds (long val)
{
if ((val < -32768) || (val > 32767))
return 1;
return 0;
}
static const char *
parse_loopsize (CGEN_CPU_DESC cd,
const char **strp,
int opindex,
void *arg)
{
signed long * valuep = (signed long *) arg;
const char *errmsg;
bfd_reloc_code_real_type code = BFD_RELOC_NONE;
enum cgen_parse_operand_result result_type;
bfd_vma value;
if (opindex == (CGEN_OPERAND_TYPE) MT_OPERAND_LOOPSIZE)
{
code = BFD_RELOC_MT_PCINSN8;
errmsg = cgen_parse_address (cd, strp, opindex, code,
& result_type, & value);
*valuep = value;
return errmsg;
}
abort ();
}
static const char *
parse_imm16 (CGEN_CPU_DESC cd,
const char **strp,
int opindex,
void *arg)
{
signed long * valuep = (signed long *) arg;
const char *errmsg;
enum cgen_parse_operand_result result_type;
bfd_reloc_code_real_type code = BFD_RELOC_NONE;
bfd_vma value;
if (opindex == (CGEN_OPERAND_TYPE) MT_OPERAND_IMM16O)
{
code = BFD_RELOC_16_PCREL;
errmsg = cgen_parse_address (cd, strp, opindex, code,
& result_type, & value);
if (errmsg == NULL)
{
if (signed_out_of_bounds (value))
errmsg = _("Operand out of range. Must be between -32768 and 32767.");
}
*valuep = value;
return errmsg;
}
if (opindex == (CGEN_OPERAND_TYPE) MT_OPERAND_IMM16L)
;
else if (strncmp (*strp, "%hi16", 5) == 0)
{
*strp += 5;
code = BFD_RELOC_HI16;
}
else if (strncmp (*strp, "%lo16", 5) == 0)
{
*strp += 5;
code = BFD_RELOC_LO16;
}
if (code != BFD_RELOC_NONE)
{
errmsg = cgen_parse_address (cd, strp, opindex, code,
& result_type, & value);
if (errmsg == NULL)
{
switch (result_type)
{
case (CGEN_PARSE_OPERAND_RESULT_NUMBER):
if (code == BFD_RELOC_HI16)
value = (value >> 16) & 0xFFFF;
else if (code == BFD_RELOC_LO16)
value = value & 0xFFFF;
else
errmsg = _("Biiiig Trouble in parse_imm16!");
break;
case (CGEN_PARSE_OPERAND_RESULT_QUEUED):
break;
default:
errmsg = _("%operator operand is not a symbol");
break;
}
}
*valuep = value;
}
else
{
int parse_signed = (opindex == (CGEN_OPERAND_TYPE)MT_OPERAND_IMM16);
if ((*strp)[0] == '0'
&& ((*strp)[1] == 'x' || (*strp)[1] == 'X'))
parse_signed = 0;
if (parse_signed)
{
errmsg = cgen_parse_signed_integer (cd, strp, opindex, valuep);
if (errmsg == NULL)
{
#if 0
if (*valuep & 0x8000)
value = 0xffff0000 | *valuep;
else
value = *valuep;
if (signed_out_of_bounds (value))
errmsg = _("Operand out of range. Must be between -32768 and 32767.");
*valuep &= 0xFFFF;
#endif
}
}
else
{
errmsg = cgen_parse_unsigned_integer (cd, strp, opindex, (unsigned long *) valuep);
if (opindex == (CGEN_OPERAND_TYPE) MT_OPERAND_IMM16
&& *valuep >= 0x8000
&& *valuep <= 0xffff)
*valuep -= 0x10000;
}
}
return errmsg;
}
static const char *
parse_dup (CGEN_CPU_DESC cd,
const char **strp,
int opindex,
unsigned long *valuep)
{
const char *errmsg = NULL;
if (strncmp (*strp, "dup", 3) == 0 || strncmp (*strp, "DUP", 3) == 0)
{
*strp += 3;
*valuep = 1;
}
else if (strncmp (*strp, "xx", 2) == 0 || strncmp (*strp, "XX", 2) == 0)
{
*strp += 2;
*valuep = 0;
}
else
errmsg = cgen_parse_unsigned_integer (cd, strp, opindex, valuep);
return errmsg;
}
static const char *
parse_ball (CGEN_CPU_DESC cd,
const char **strp,
int opindex,
unsigned long *valuep)
{
const char *errmsg = NULL;
if (strncmp (*strp, "all", 3) == 0 || strncmp (*strp, "ALL", 3) == 0)
{
*strp += 3;
*valuep = 1;
}
else if (strncmp (*strp, "one", 3) == 0 || strncmp (*strp, "ONE", 3) == 0)
{
*strp += 3;
*valuep = 0;
}
else
errmsg = cgen_parse_unsigned_integer (cd, strp, opindex, valuep);
return errmsg;
}
static const char *
parse_xmode (CGEN_CPU_DESC cd,
const char **strp,
int opindex,
unsigned long *valuep)
{
const char *errmsg = NULL;
if (strncmp (*strp, "pm", 2) == 0 || strncmp (*strp, "PM", 2) == 0)
{
*strp += 2;
*valuep = 1;
}
else if (strncmp (*strp, "xm", 2) == 0 || strncmp (*strp, "XM", 2) == 0)
{
*strp += 2;
*valuep = 0;
}
else
errmsg = cgen_parse_unsigned_integer (cd, strp, opindex, valuep);
return errmsg;
}
static const char *
parse_rc (CGEN_CPU_DESC cd,
const char **strp,
int opindex,
unsigned long *valuep)
{
const char *errmsg = NULL;
if (strncmp (*strp, "r", 1) == 0 || strncmp (*strp, "R", 1) == 0)
{
*strp += 1;
*valuep = 1;
}
else if (strncmp (*strp, "c", 1) == 0 || strncmp (*strp, "C", 1) == 0)
{
*strp += 1;
*valuep = 0;
}
else
errmsg = cgen_parse_unsigned_integer (cd, strp, opindex, valuep);
return errmsg;
}
static const char *
parse_cbrb (CGEN_CPU_DESC cd,
const char **strp,
int opindex,
unsigned long *valuep)
{
const char *errmsg = NULL;
if (strncmp (*strp, "rb", 2) == 0 || strncmp (*strp, "RB", 2) == 0)
{
*strp += 2;
*valuep = 1;
}
else if (strncmp (*strp, "cb", 2) == 0 || strncmp (*strp, "CB", 2) == 0)
{
*strp += 2;
*valuep = 0;
}
else
errmsg = cgen_parse_unsigned_integer (cd, strp, opindex, valuep);
return errmsg;
}
static const char *
parse_rbbc (CGEN_CPU_DESC cd,
const char **strp,
int opindex,
unsigned long *valuep)
{
const char *errmsg = NULL;
if (strncmp (*strp, "rt", 2) == 0 || strncmp (*strp, "RT", 2) == 0)
{
*strp += 2;
*valuep = 0;
}
else if (strncmp (*strp, "br1", 3) == 0 || strncmp (*strp, "BR1", 3) == 0)
{
*strp += 3;
*valuep = 1;
}
else if (strncmp (*strp, "br2", 3) == 0 || strncmp (*strp, "BR2", 3) == 0)
{
*strp += 3;
*valuep = 2;
}
else if (strncmp (*strp, "cs", 2) == 0 || strncmp (*strp, "CS", 2) == 0)
{
*strp += 2;
*valuep = 3;
}
else
errmsg = cgen_parse_unsigned_integer (cd, strp, opindex, valuep);
return errmsg;
}
static const char *
parse_type (CGEN_CPU_DESC cd,
const char **strp,
int opindex,
unsigned long *valuep)
{
const char *errmsg = NULL;
if (strncmp (*strp, "odd", 3) == 0 || strncmp (*strp, "ODD", 3) == 0)
{
*strp += 3;
*valuep = 0;
}
else if (strncmp (*strp, "even", 4) == 0 || strncmp (*strp, "EVEN", 4) == 0)
{
*strp += 4;
*valuep = 1;
}
else if (strncmp (*strp, "oe", 2) == 0 || strncmp (*strp, "OE", 2) == 0)
{
*strp += 2;
*valuep = 2;
}
else
errmsg = cgen_parse_unsigned_integer (cd, strp, opindex, valuep);
if ((errmsg == NULL) && (*valuep == 3))
errmsg = _("invalid operand. type may have values 0,1,2 only.");
return errmsg;
}
static void print_dollarhex (CGEN_CPU_DESC, PTR, long, unsigned, bfd_vma, int);
static void print_pcrel (CGEN_CPU_DESC, PTR, long, unsigned, bfd_vma, int);
static void
print_dollarhex (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
void * dis_info,
long value,
unsigned int attrs ATTRIBUTE_UNUSED,
bfd_vma pc ATTRIBUTE_UNUSED,
int length ATTRIBUTE_UNUSED)
{
disassemble_info *info = (disassemble_info *) dis_info;
info->fprintf_func (info->stream, "$%lx", value);
if (0)
print_normal (cd, dis_info, value, attrs, pc, length);
}
static void
print_pcrel (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
void * dis_info,
long value,
unsigned int attrs ATTRIBUTE_UNUSED,
bfd_vma pc ATTRIBUTE_UNUSED,
int length ATTRIBUTE_UNUSED)
{
print_address (cd, dis_info, value + pc, attrs, pc, length);
}