/* Generic opcode table support for targets using CGEN. -*- C -*- CGEN: Cpu tools GENerator THIS FILE IS USED TO GENERATE fr30-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 "fr30-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 *, CGEN_INSN_INT)); /* 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 is a pointer to the insn table entry, or NULL if the instruction wasn't recognized. */ const CGEN_INSN * fr30_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[CGEN_MAX_INSN_SIZE]; unsigned char *bufp; CGEN_INSN_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 cgen_put_insn_value (od, buf, length, insn_value); bufp = buf; base_insn = insn_value; /*???*/ #else ex_info.dis_info = NULL; ex_info.insn_bytes = insn_value; ex_info.valid = -1; base_insn = cgen_get_insn_value (od, buf, length); bufp = insn_value; #endif if (!insn) { const CGEN_INSN_LIST *insn_list; /* 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 ((base_insn & CGEN_INSN_MASK (insn)) == CGEN_INSN_VALUE (insn)) { /* ??? 0 is passed for `pc' */ int elength = (*CGEN_EXTRACT_FN (insn)) (od, insn, info, base_insn, 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, base_insn, 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 fr30_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] = fr30_cgen_get_int_operand (CGEN_OPERAND_INDEX (op), fields); } } /* Cover function to fr30_cgen_get_insn_operands when either INSN or FIELDS isn't known. The INSN, INSN_VALUE, and LENGTH arguments are passed to fr30_cgen_lookup_insn unchanged. The result is the insn table entry or NULL if the instruction wasn't recognized. */ const CGEN_INSN * fr30_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 = fr30_cgen_lookup_insn (od, insn, insn_value, length, &fields, insn != NULL); if (! insn) return NULL; fr30_cgen_get_insn_operands (od, insn, &fields, indices); return insn; } /* Attributes. */ static const CGEN_ATTR_ENTRY MACH_attr[] = { { "base", MACH_BASE }, { "fr30", MACH_FR30 }, { "max", MACH_MAX }, { 0, 0 } }; const CGEN_ATTR_TABLE fr30_cgen_hardware_attr_table[] = { { "CACHE-ADDR", NULL }, { "PC", NULL }, { "PROFILE", NULL }, { 0, 0 } }; const CGEN_ATTR_TABLE fr30_cgen_operand_attr_table[] = { { "ABS-ADDR", NULL }, { "HASH-PREFIX", NULL }, { "NEGATIVE", NULL }, { "PCREL-ADDR", NULL }, { "RELAX", NULL }, { "SEM-ONLY", NULL }, { "SIGN-OPT", NULL }, { "SIGNED", NULL }, { "UNSIGNED", NULL }, { 0, 0 } }; const CGEN_ATTR_TABLE fr30_cgen_insn_attr_table[] = { { "ALIAS", NULL }, { "COND-CTI", NULL }, { "NO-DIS", NULL }, { "RELAX", NULL }, { "RELAXABLE", NULL }, { "SKIP-CTI", NULL }, { "UNCOND-CTI", NULL }, { "VIRTUAL", NULL }, { 0, 0 } }; CGEN_KEYWORD_ENTRY fr30_cgen_opval_h_gr_entries[] = { { "ac", 13 }, { "fp", 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 fr30_cgen_opval_h_gr = { & fr30_cgen_opval_h_gr_entries[0], 19 }; CGEN_KEYWORD_ENTRY fr30_cgen_opval_h_dr_entries[] = { { "tbr", 0 }, { "rp", 1 }, { "ssp", 2 }, { "usp", 3 }, { "mdh", 4 }, { "mdl", 5 } }; CGEN_KEYWORD fr30_cgen_opval_h_dr = { & fr30_cgen_opval_h_dr_entries[0], 6 }; CGEN_KEYWORD_ENTRY fr30_cgen_opval_h_ps_entries[] = { { "ps", 1 } }; CGEN_KEYWORD fr30_cgen_opval_h_ps = { & fr30_cgen_opval_h_ps_entries[0], 1 }; CGEN_KEYWORD_ENTRY fr30_cgen_opval_h_r13_entries[] = { { "r13", 13 } }; CGEN_KEYWORD fr30_cgen_opval_h_r13 = { & fr30_cgen_opval_h_r13_entries[0], 1 }; CGEN_KEYWORD_ENTRY fr30_cgen_opval_h_r14_entries[] = { { "r14", 14 } }; CGEN_KEYWORD fr30_cgen_opval_h_r14 = { & fr30_cgen_opval_h_r14_entries[0], 1 }; CGEN_KEYWORD_ENTRY fr30_cgen_opval_h_r15_entries[] = { { "r15", 15 } }; CGEN_KEYWORD fr30_cgen_opval_h_r15 = { & fr30_cgen_opval_h_r15_entries[0], 1 }; /* The hardware table. */ #define HW_ENT(n) fr30_cgen_hw_entries[n] static const CGEN_HW_ENTRY fr30_cgen_hw_entries[] = { { HW_H_PC, & HW_ENT (HW_H_PC + 1), "h-pc", CGEN_ASM_KEYWORD, (PTR) 0, { 0, 0|(1<f_Ri; break; case FR30_OPERAND_RJ : value = fields->f_Rj; break; case FR30_OPERAND_RS1 : value = fields->f_Rs1; break; case FR30_OPERAND_RS2 : value = fields->f_Rs2; break; case FR30_OPERAND_R13 : value = fields->f_nil; break; case FR30_OPERAND_R14 : value = fields->f_nil; break; case FR30_OPERAND_R15 : value = fields->f_nil; break; case FR30_OPERAND_PS : value = fields->f_nil; break; case FR30_OPERAND_U4 : value = fields->f_u4; break; case FR30_OPERAND_M4 : value = fields->f_m4; break; case FR30_OPERAND_U8 : value = fields->f_u8; break; case FR30_OPERAND_I8 : value = fields->f_i8; break; case FR30_OPERAND_UDISP6 : value = fields->f_udisp6; break; case FR30_OPERAND_DISP8 : value = fields->f_disp8; break; case FR30_OPERAND_DISP9 : value = fields->f_disp9; break; case FR30_OPERAND_DISP10 : value = fields->f_disp10; break; case FR30_OPERAND_S10 : value = fields->f_s10; break; case FR30_OPERAND_U10 : value = fields->f_u10; break; case FR30_OPERAND_I32 : value = fields->f_i32; break; case FR30_OPERAND_DIR8 : value = fields->f_dir8; break; case FR30_OPERAND_DIR9 : value = fields->f_dir9; break; case FR30_OPERAND_DIR10 : value = fields->f_dir10; break; case FR30_OPERAND_LABEL9 : value = fields->f_rel9; break; case FR30_OPERAND_LABEL12 : value = fields->f_rel12; break; case FR30_OPERAND_CC : value = fields->f_cc; break; default : /* xgettext:c-format */ fprintf (stderr, _("Unrecognized field %d while getting int operand.\n"), opindex); abort (); } return value; } bfd_vma fr30_cgen_get_vma_operand (opindex, fields) int opindex; const CGEN_FIELDS * fields; { bfd_vma value; switch (opindex) { case FR30_OPERAND_RI : value = fields->f_Ri; break; case FR30_OPERAND_RJ : value = fields->f_Rj; break; case FR30_OPERAND_RS1 : value = fields->f_Rs1; break; case FR30_OPERAND_RS2 : value = fields->f_Rs2; break; case FR30_OPERAND_R13 : value = fields->f_nil; break; case FR30_OPERAND_R14 : value = fields->f_nil; break; case FR30_OPERAND_R15 : value = fields->f_nil; break; case FR30_OPERAND_PS : value = fields->f_nil; break; case FR30_OPERAND_U4 : value = fields->f_u4; break; case FR30_OPERAND_M4 : value = fields->f_m4; break; case FR30_OPERAND_U8 : value = fields->f_u8; break; case FR30_OPERAND_I8 : value = fields->f_i8; break; case FR30_OPERAND_UDISP6 : value = fields->f_udisp6; break; case FR30_OPERAND_DISP8 : value = fields->f_disp8; break; case FR30_OPERAND_DISP9 : value = fields->f_disp9; break; case FR30_OPERAND_DISP10 : value = fields->f_disp10; break; case FR30_OPERAND_S10 : value = fields->f_s10; break; case FR30_OPERAND_U10 : value = fields->f_u10; break; case FR30_OPERAND_I32 : value = fields->f_i32; break; case FR30_OPERAND_DIR8 : value = fields->f_dir8; break; case FR30_OPERAND_DIR9 : value = fields->f_dir9; break; case FR30_OPERAND_DIR10 : value = fields->f_dir10; break; case FR30_OPERAND_LABEL9 : value = fields->f_rel9; break; case FR30_OPERAND_LABEL12 : value = fields->f_rel12; break; case FR30_OPERAND_CC : value = fields->f_cc; 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 fr30_cgen_set_int_operand (opindex, fields, value) int opindex; CGEN_FIELDS * fields; int value; { switch (opindex) { case FR30_OPERAND_RI : fields->f_Ri = value; break; case FR30_OPERAND_RJ : fields->f_Rj = value; break; case FR30_OPERAND_RS1 : fields->f_Rs1 = value; break; case FR30_OPERAND_RS2 : fields->f_Rs2 = value; break; case FR30_OPERAND_R13 : fields->f_nil = value; break; case FR30_OPERAND_R14 : fields->f_nil = value; break; case FR30_OPERAND_R15 : fields->f_nil = value; break; case FR30_OPERAND_PS : fields->f_nil = value; break; case FR30_OPERAND_U4 : fields->f_u4 = value; break; case FR30_OPERAND_M4 : fields->f_m4 = value; break; case FR30_OPERAND_U8 : fields->f_u8 = value; break; case FR30_OPERAND_I8 : fields->f_i8 = value; break; case FR30_OPERAND_UDISP6 : fields->f_udisp6 = value; break; case FR30_OPERAND_DISP8 : fields->f_disp8 = value; break; case FR30_OPERAND_DISP9 : fields->f_disp9 = value; break; case FR30_OPERAND_DISP10 : fields->f_disp10 = value; break; case FR30_OPERAND_S10 : fields->f_s10 = value; break; case FR30_OPERAND_U10 : fields->f_u10 = value; break; case FR30_OPERAND_I32 : fields->f_i32 = value; break; case FR30_OPERAND_DIR8 : fields->f_dir8 = value; break; case FR30_OPERAND_DIR9 : fields->f_dir9 = value; break; case FR30_OPERAND_DIR10 : fields->f_dir10 = value; break; case FR30_OPERAND_LABEL9 : fields->f_rel9 = value; break; case FR30_OPERAND_LABEL12 : fields->f_rel12 = value; break; case FR30_OPERAND_CC : fields->f_cc = value; break; default : /* xgettext:c-format */ fprintf (stderr, _("Unrecognized field %d while setting int operand.\n"), opindex); abort (); } } void fr30_cgen_set_vma_operand (opindex, fields, value) int opindex; CGEN_FIELDS * fields; bfd_vma value; { switch (opindex) { case FR30_OPERAND_RI : fields->f_Ri = value; break; case FR30_OPERAND_RJ : fields->f_Rj = value; break; case FR30_OPERAND_RS1 : fields->f_Rs1 = value; break; case FR30_OPERAND_RS2 : fields->f_Rs2 = value; break; case FR30_OPERAND_R13 : fields->f_nil = value; break; case FR30_OPERAND_R14 : fields->f_nil = value; break; case FR30_OPERAND_R15 : fields->f_nil = value; break; case FR30_OPERAND_PS : fields->f_nil = value; break; case FR30_OPERAND_U4 : fields->f_u4 = value; break; case FR30_OPERAND_M4 : fields->f_m4 = value; break; case FR30_OPERAND_U8 : fields->f_u8 = value; break; case FR30_OPERAND_I8 : fields->f_i8 = value; break; case FR30_OPERAND_UDISP6 : fields->f_udisp6 = value; break; case FR30_OPERAND_DISP8 : fields->f_disp8 = value; break; case FR30_OPERAND_DISP9 : fields->f_disp9 = value; break; case FR30_OPERAND_DISP10 : fields->f_disp10 = value; break; case FR30_OPERAND_S10 : fields->f_s10 = value; break; case FR30_OPERAND_U10 : fields->f_u10 = value; break; case FR30_OPERAND_I32 : fields->f_i32 = value; break; case FR30_OPERAND_DIR8 : fields->f_dir8 = value; break; case FR30_OPERAND_DIR9 : fields->f_dir9 = value; break; case FR30_OPERAND_DIR10 : fields->f_dir10 = value; break; case FR30_OPERAND_LABEL9 : fields->f_rel9 = value; break; case FR30_OPERAND_LABEL12 : fields->f_rel12 = value; break; case FR30_OPERAND_CC : fields->f_cc = value; break; default : /* xgettext:c-format */ fprintf (stderr, _("Unrecognized field %d while setting vma operand.\n"), opindex); abort (); } }