/* Generic opcode table support for targets using CGEN. -*- C -*- CGEN: Cpu tools GENerator THIS FILE IS USED TO GENERATE m32r-opc.c. Copyright (C) 1998 Free Software Foundation, Inc. This file is part of the GNU Binutils and GDB, the GNU debugger. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include "sysdep.h" #include #include "ansidecl.h" #include "libiberty.h" #include "bfd.h" #include "symcat.h" #include "m32r-opc.h" #include "opintl.h" /* The hash functions are recorded here to help keep assembler code out of the disassembler and vice versa. */ static int asm_hash_insn_p PARAMS ((const CGEN_INSN *)); static unsigned int asm_hash_insn PARAMS ((const char *)); static int dis_hash_insn_p PARAMS ((const CGEN_INSN *)); static unsigned int dis_hash_insn PARAMS ((const char *, unsigned long)); /* Cover function to read and properly byteswap an insn value. */ CGEN_INSN_INT cgen_get_insn_value (od, buf, length) CGEN_OPCODE_DESC od; unsigned char *buf; int length; { CGEN_INSN_INT value; switch (length) { case 8: value = *buf; break; case 16: if (CGEN_OPCODE_INSN_ENDIAN (od) == CGEN_ENDIAN_BIG) value = bfd_getb16 (buf); else value = bfd_getl16 (buf); break; case 32: if (CGEN_OPCODE_INSN_ENDIAN (od) == CGEN_ENDIAN_BIG) value = bfd_getb32 (buf); else value = bfd_getl32 (buf); break; default: abort (); } return value; } /* Cover function to store an insn value properly byteswapped. */ void cgen_put_insn_value (od, buf, length, value) CGEN_OPCODE_DESC od; unsigned char *buf; int length; CGEN_INSN_INT value; { switch (length) { case 8: buf[0] = value; break; case 16: if (CGEN_OPCODE_INSN_ENDIAN (od) == CGEN_ENDIAN_BIG) bfd_putb16 (value, buf); else bfd_putl16 (value, buf); break; case 32: if (CGEN_OPCODE_INSN_ENDIAN (od) == CGEN_ENDIAN_BIG) bfd_putb32 (value, buf); else bfd_putl32 (value, buf); break; default: abort (); } } /* Look up instruction INSN_VALUE and extract its fields. INSN, if non-null, is the insn table entry. Otherwise INSN_VALUE is examined to compute it. LENGTH is the bit length of INSN_VALUE if known, otherwise 0. 0 is only valid if `insn == NULL && ! CGEN_INT_INSN_P'. If INSN != NULL, LENGTH must be valid. ALIAS_P is non-zero if alias insns are to be included in the search. The result a pointer to the insn table entry, or NULL if the instruction wasn't recognized. */ const CGEN_INSN * m32r_cgen_lookup_insn (od, insn, insn_value, length, fields, alias_p) CGEN_OPCODE_DESC od; const CGEN_INSN *insn; CGEN_INSN_BYTES insn_value; int length; CGEN_FIELDS *fields; int alias_p; { unsigned char buf[16]; unsigned char *bufp; unsigned int base_insn; #if CGEN_INT_INSN_P CGEN_EXTRACT_INFO *info = NULL; #else CGEN_EXTRACT_INFO ex_info; CGEN_EXTRACT_INFO *info = &ex_info; #endif #if ! CGEN_INT_INSN_P ex_info.dis_info = NULL; ex_info.bytes = insn_value; ex_info.valid = -1; #endif if (!insn) { const CGEN_INSN_LIST *insn_list; #if CGEN_INT_INSN_P cgen_put_insn_value (od, buf, length, insn_value); bufp = buf; base_insn = insn_value; /*???*/ #else base_insn = cgen_get_insn_value (od, buf, length); bufp = insn_value; #endif /* The instructions are stored in hash lists. Pick the first one and keep trying until we find the right one. */ insn_list = CGEN_DIS_LOOKUP_INSN (od, bufp, base_insn); while (insn_list != NULL) { insn = insn_list->insn; if (alias_p || ! CGEN_INSN_ATTR (insn, CGEN_INSN_ALIAS)) { /* Basic bit mask must be correct. */ /* ??? May wish to allow target to defer this check until the extract handler. */ if ((insn_value & CGEN_INSN_MASK (insn)) == CGEN_INSN_VALUE (insn)) { /* ??? 0 is passed for `pc' */ int elength = (*CGEN_EXTRACT_FN (insn)) (od, insn, info, insn_value, fields, (bfd_vma) 0); if (elength > 0) { /* sanity check */ if (length != 0 && length != elength) abort (); return insn; } } } insn_list = CGEN_DIS_NEXT_INSN (insn_list); } } else { /* Sanity check: can't pass an alias insn if ! alias_p. */ if (! alias_p && CGEN_INSN_ATTR (insn, CGEN_INSN_ALIAS)) abort (); /* Sanity check: length must be correct. */ if (length != CGEN_INSN_BITSIZE (insn)) abort (); /* ??? 0 is passed for `pc' */ length = (*CGEN_EXTRACT_FN (insn)) (od, insn, info, insn_value, fields, (bfd_vma) 0); /* Sanity check: must succeed. Could relax this later if it ever proves useful. */ if (length == 0) abort (); return insn; } return NULL; } /* Fill in the operand instances used by INSN whose operands are FIELDS. INDICES is a pointer to a buffer of MAX_OPERAND_INSTANCES ints to be filled in. */ void m32r_cgen_get_insn_operands (od, insn, fields, indices) CGEN_OPCODE_DESC od; const CGEN_INSN * insn; const CGEN_FIELDS * fields; int *indices; { const CGEN_OPERAND_INSTANCE *opinst; int i; for (i = 0, opinst = CGEN_INSN_OPERANDS (insn); opinst != NULL && CGEN_OPERAND_INSTANCE_TYPE (opinst) != CGEN_OPERAND_INSTANCE_END; ++i, ++opinst) { const CGEN_OPERAND *op = CGEN_OPERAND_INSTANCE_OPERAND (opinst); if (op == NULL) indices[i] = CGEN_OPERAND_INSTANCE_INDEX (opinst); else indices[i] = m32r_cgen_get_int_operand (CGEN_OPERAND_INDEX (op), fields); } } /* Cover function to m32r_cgen_get_insn_operands when either INSN or FIELDS isn't known. The INSN, INSN_VALUE, and LENGTH arguments are passed to m32r_cgen_lookup_insn unchanged. The result is the insn table entry or NULL if the instruction wasn't recognized. */ const CGEN_INSN * m32r_cgen_lookup_get_insn_operands (od, insn, insn_value, length, indices) CGEN_OPCODE_DESC od; const CGEN_INSN *insn; CGEN_INSN_BYTES insn_value; int length; int *indices; { CGEN_FIELDS fields; /* Pass non-zero for ALIAS_P only if INSN != NULL. If INSN == NULL, we want a real insn. */ insn = m32r_cgen_lookup_insn (od, insn, insn_value, length, &fields, insn != NULL); if (! insn) return NULL; m32r_cgen_get_insn_operands (od, insn, &fields, indices); return insn; } /* Attributes. */ static const CGEN_ATTR_ENTRY MACH_attr[] = { { "base", MACH_BASE }, { "m32r", MACH_M32R }, /* start-sanitize-m32rx */ { "m32rx", MACH_M32RX }, /* end-sanitize-m32rx */ { "max", MACH_MAX }, { 0, 0 } }; /* start-sanitize-m32rx */ static const CGEN_ATTR_ENTRY PIPE_attr[] = { { "NONE", PIPE_NONE }, { "O", PIPE_O }, { "S", PIPE_S }, { "OS", PIPE_OS }, { 0, 0 } }; /* end-sanitize-m32rx */ const CGEN_ATTR_TABLE m32r_cgen_hardware_attr_table[] = { { "MACH", & MACH_attr[0] }, { "CACHE-ADDR", NULL }, { "FUN-ACCESS", NULL }, { "PC", NULL }, { "PROFILE", NULL }, { "SIGN-OPT", NULL }, { "UNSIGNED", NULL }, { 0, 0 } }; const CGEN_ATTR_TABLE m32r_cgen_operand_attr_table[] = { { "ABS-ADDR", NULL }, { "HASH-PREFIX", NULL }, { "NEGATIVE", NULL }, { "PCREL-ADDR", NULL }, { "RELAX", NULL }, { "RELOC", NULL }, { "SEM-ONLY", NULL }, { "SIGN-OPT", NULL }, { "UNSIGNED", NULL }, { 0, 0 } }; const CGEN_ATTR_TABLE m32r_cgen_insn_attr_table[] = { { "MACH", & MACH_attr[0] }, /* start-sanitize-m32rx */ { "PIPE", & PIPE_attr[0] }, /* end-sanitize-m32rx */ { "ALIAS", NULL }, { "COND-CTI", NULL }, { "FILL-SLOT", NULL }, { "NO-DIS", NULL }, { "RELAX", NULL }, { "RELAXABLE", NULL }, { "SKIP-CTI", NULL }, { "SPECIAL", NULL }, { "UNCOND-CTI", NULL }, { "VIRTUAL", NULL }, { 0, 0 } }; CGEN_KEYWORD_ENTRY m32r_cgen_opval_h_gr_entries[] = { { "fp", 13 }, { "lr", 14 }, { "sp", 15 }, { "r0", 0 }, { "r1", 1 }, { "r2", 2 }, { "r3", 3 }, { "r4", 4 }, { "r5", 5 }, { "r6", 6 }, { "r7", 7 }, { "r8", 8 }, { "r9", 9 }, { "r10", 10 }, { "r11", 11 }, { "r12", 12 }, { "r13", 13 }, { "r14", 14 }, { "r15", 15 } }; CGEN_KEYWORD m32r_cgen_opval_h_gr = { & m32r_cgen_opval_h_gr_entries[0], 19 }; CGEN_KEYWORD_ENTRY m32r_cgen_opval_h_cr_entries[] = { { "psw", 0 }, { "cbr", 1 }, { "spi", 2 }, { "spu", 3 }, { "bpc", 6 }, { "bbpsw", 8 }, { "bbpc", 14 }, { "cr0", 0 }, { "cr1", 1 }, { "cr2", 2 }, { "cr3", 3 }, { "cr4", 4 }, { "cr5", 5 }, { "cr6", 6 }, { "cr7", 7 }, { "cr8", 8 }, { "cr9", 9 }, { "cr10", 10 }, { "cr11", 11 }, { "cr12", 12 }, { "cr13", 13 }, { "cr14", 14 }, { "cr15", 15 } }; CGEN_KEYWORD m32r_cgen_opval_h_cr = { & m32r_cgen_opval_h_cr_entries[0], 23 }; /* start-sanitize-m32rx */ CGEN_KEYWORD_ENTRY m32r_cgen_opval_h_accums_entries[] = { { "a0", 0 }, { "a1", 1 } }; CGEN_KEYWORD m32r_cgen_opval_h_accums = { & m32r_cgen_opval_h_accums_entries[0], 2 }; /* end-sanitize-m32rx */ /* The hardware table. */ #define HW_ENT(n) m32r_cgen_hw_entries[n] static const CGEN_HW_ENTRY m32r_cgen_hw_entries[] = { { HW_H_PC, & HW_ENT (HW_H_PC + 1), "h-pc", CGEN_ASM_KEYWORD, (PTR) 0, { CGEN_HW_NBOOL_ATTRS, 0|(1<f_r2; break; case M32R_OPERAND_DR : value = fields->f_r1; break; case M32R_OPERAND_SRC1 : value = fields->f_r1; break; case M32R_OPERAND_SRC2 : value = fields->f_r2; break; case M32R_OPERAND_SCR : value = fields->f_r2; break; case M32R_OPERAND_DCR : value = fields->f_r1; break; case M32R_OPERAND_SIMM8 : value = fields->f_simm8; break; case M32R_OPERAND_SIMM16 : value = fields->f_simm16; break; case M32R_OPERAND_UIMM4 : value = fields->f_uimm4; break; case M32R_OPERAND_UIMM5 : value = fields->f_uimm5; break; case M32R_OPERAND_UIMM16 : value = fields->f_uimm16; break; /* start-sanitize-m32rx */ case M32R_OPERAND_IMM1 : value = fields->f_imm1; break; /* end-sanitize-m32rx */ /* start-sanitize-m32rx */ case M32R_OPERAND_ACCD : value = fields->f_accd; break; /* end-sanitize-m32rx */ /* start-sanitize-m32rx */ case M32R_OPERAND_ACCS : value = fields->f_accs; break; /* end-sanitize-m32rx */ /* start-sanitize-m32rx */ case M32R_OPERAND_ACC : value = fields->f_acc; break; /* end-sanitize-m32rx */ case M32R_OPERAND_HASH : value = fields->f_nil; break; case M32R_OPERAND_HI16 : value = fields->f_hi16; break; case M32R_OPERAND_SLO16 : value = fields->f_simm16; break; case M32R_OPERAND_ULO16 : value = fields->f_uimm16; break; case M32R_OPERAND_UIMM24 : value = fields->f_uimm24; break; case M32R_OPERAND_DISP8 : value = fields->f_disp8; break; case M32R_OPERAND_DISP16 : value = fields->f_disp16; break; case M32R_OPERAND_DISP24 : value = fields->f_disp24; break; default : /* xgettext:c-format */ fprintf (stderr, _("Unrecognized field %d while getting int operand.\n"), opindex); abort (); } return value; } bfd_vma m32r_cgen_get_vma_operand (opindex, fields) int opindex; const CGEN_FIELDS * fields; { bfd_vma value; switch (opindex) { case M32R_OPERAND_SR : value = fields->f_r2; break; case M32R_OPERAND_DR : value = fields->f_r1; break; case M32R_OPERAND_SRC1 : value = fields->f_r1; break; case M32R_OPERAND_SRC2 : value = fields->f_r2; break; case M32R_OPERAND_SCR : value = fields->f_r2; break; case M32R_OPERAND_DCR : value = fields->f_r1; break; case M32R_OPERAND_SIMM8 : value = fields->f_simm8; break; case M32R_OPERAND_SIMM16 : value = fields->f_simm16; break; case M32R_OPERAND_UIMM4 : value = fields->f_uimm4; break; case M32R_OPERAND_UIMM5 : value = fields->f_uimm5; break; case M32R_OPERAND_UIMM16 : value = fields->f_uimm16; break; /* start-sanitize-m32rx */ case M32R_OPERAND_IMM1 : value = fields->f_imm1; break; /* end-sanitize-m32rx */ /* start-sanitize-m32rx */ case M32R_OPERAND_ACCD : value = fields->f_accd; break; /* end-sanitize-m32rx */ /* start-sanitize-m32rx */ case M32R_OPERAND_ACCS : value = fields->f_accs; break; /* end-sanitize-m32rx */ /* start-sanitize-m32rx */ case M32R_OPERAND_ACC : value = fields->f_acc; break; /* end-sanitize-m32rx */ case M32R_OPERAND_HASH : value = fields->f_nil; break; case M32R_OPERAND_HI16 : value = fields->f_hi16; break; case M32R_OPERAND_SLO16 : value = fields->f_simm16; break; case M32R_OPERAND_ULO16 : value = fields->f_uimm16; break; case M32R_OPERAND_UIMM24 : value = fields->f_uimm24; break; case M32R_OPERAND_DISP8 : value = fields->f_disp8; break; case M32R_OPERAND_DISP16 : value = fields->f_disp16; break; case M32R_OPERAND_DISP24 : value = fields->f_disp24; break; default : /* xgettext:c-format */ fprintf (stderr, _("Unrecognized field %d while getting vma operand.\n"), opindex); abort (); } return value; } /* Stuffing values in cgen_fields is handled by a collection of functions. They are distinguished by the type of the VALUE argument they accept. TODO: floating point, inlining support, remove cases where argument type not appropriate. */ void m32r_cgen_set_int_operand (opindex, fields, value) int opindex; CGEN_FIELDS * fields; int value; { switch (opindex) { case M32R_OPERAND_SR : fields->f_r2 = value; break; case M32R_OPERAND_DR : fields->f_r1 = value; break; case M32R_OPERAND_SRC1 : fields->f_r1 = value; break; case M32R_OPERAND_SRC2 : fields->f_r2 = value; break; case M32R_OPERAND_SCR : fields->f_r2 = value; break; case M32R_OPERAND_DCR : fields->f_r1 = value; break; case M32R_OPERAND_SIMM8 : fields->f_simm8 = value; break; case M32R_OPERAND_SIMM16 : fields->f_simm16 = value; break; case M32R_OPERAND_UIMM4 : fields->f_uimm4 = value; break; case M32R_OPERAND_UIMM5 : fields->f_uimm5 = value; break; case M32R_OPERAND_UIMM16 : fields->f_uimm16 = value; break; /* start-sanitize-m32rx */ case M32R_OPERAND_IMM1 : fields->f_imm1 = value; break; /* end-sanitize-m32rx */ /* start-sanitize-m32rx */ case M32R_OPERAND_ACCD : fields->f_accd = value; break; /* end-sanitize-m32rx */ /* start-sanitize-m32rx */ case M32R_OPERAND_ACCS : fields->f_accs = value; break; /* end-sanitize-m32rx */ /* start-sanitize-m32rx */ case M32R_OPERAND_ACC : fields->f_acc = value; break; /* end-sanitize-m32rx */ case M32R_OPERAND_HASH : fields->f_nil = value; break; case M32R_OPERAND_HI16 : fields->f_hi16 = value; break; case M32R_OPERAND_SLO16 : fields->f_simm16 = value; break; case M32R_OPERAND_ULO16 : fields->f_uimm16 = value; break; case M32R_OPERAND_UIMM24 : fields->f_uimm24 = value; break; case M32R_OPERAND_DISP8 : fields->f_disp8 = value; break; case M32R_OPERAND_DISP16 : fields->f_disp16 = value; break; case M32R_OPERAND_DISP24 : fields->f_disp24 = value; break; default : /* xgettext:c-format */ fprintf (stderr, _("Unrecognized field %d while setting int operand.\n"), opindex); abort (); } } void m32r_cgen_set_vma_operand (opindex, fields, value) int opindex; CGEN_FIELDS * fields; bfd_vma value; { switch (opindex) { case M32R_OPERAND_SR : fields->f_r2 = value; break; case M32R_OPERAND_DR : fields->f_r1 = value; break; case M32R_OPERAND_SRC1 : fields->f_r1 = value; break; case M32R_OPERAND_SRC2 : fields->f_r2 = value; break; case M32R_OPERAND_SCR : fields->f_r2 = value; break; case M32R_OPERAND_DCR : fields->f_r1 = value; break; case M32R_OPERAND_SIMM8 : fields->f_simm8 = value; break; case M32R_OPERAND_SIMM16 : fields->f_simm16 = value; break; case M32R_OPERAND_UIMM4 : fields->f_uimm4 = value; break; case M32R_OPERAND_UIMM5 : fields->f_uimm5 = value; break; case M32R_OPERAND_UIMM16 : fields->f_uimm16 = value; break; /* start-sanitize-m32rx */ case M32R_OPERAND_IMM1 : fields->f_imm1 = value; break; /* end-sanitize-m32rx */ /* start-sanitize-m32rx */ case M32R_OPERAND_ACCD : fields->f_accd = value; break; /* end-sanitize-m32rx */ /* start-sanitize-m32rx */ case M32R_OPERAND_ACCS : fields->f_accs = value; break; /* end-sanitize-m32rx */ /* start-sanitize-m32rx */ case M32R_OPERAND_ACC : fields->f_acc = value; break; /* end-sanitize-m32rx */ case M32R_OPERAND_HASH : fields->f_nil = value; break; case M32R_OPERAND_HI16 : fields->f_hi16 = value; break; case M32R_OPERAND_SLO16 : fields->f_simm16 = value; break; case M32R_OPERAND_ULO16 : fields->f_uimm16 = value; break; case M32R_OPERAND_UIMM24 : fields->f_uimm24 = value; break; case M32R_OPERAND_DISP8 : fields->f_disp8 = value; break; case M32R_OPERAND_DISP16 : fields->f_disp16 = value; break; case M32R_OPERAND_DISP24 : fields->f_disp24 = value; break; default : /* xgettext:c-format */ fprintf (stderr, _("Unrecognized field %d while setting vma operand.\n"), opindex); abort (); } }