/* Generic opcode table support for targets using CGEN. -*- C -*- CGEN: Cpu tools GENerator THIS FILE IS USED TO GENERATE i960c-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 "i960c-opc.h" #include "opintl.h" /* Used by the ifield rtx function. */ #define FLD(f) (fields->f) /* 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 * i960_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_BASE_MASK (insn)) == CGEN_INSN_BASE_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 i960_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] = i960_cgen_get_int_operand (CGEN_OPERAND_INDEX (op), fields); } } /* Cover function to i960_cgen_get_insn_operands when either INSN or FIELDS isn't known. The INSN, INSN_VALUE, and LENGTH arguments are passed to i960_cgen_lookup_insn unchanged. The result is the insn table entry or NULL if the instruction wasn't recognized. */ const CGEN_INSN * i960_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 = i960_cgen_lookup_insn (od, insn, insn_value, length, &fields, insn != NULL); if (! insn) return NULL; i960_cgen_get_insn_operands (od, insn, &fields, indices); return insn; } /* Attributes. */ static const CGEN_ATTR_ENTRY MACH_attr[] = { { "base", MACH_BASE }, { "i960_ka_sa", MACH_I960_KA_SA }, { "i960_ca", MACH_I960_CA }, { "max", MACH_MAX }, { 0, 0 } }; const CGEN_ATTR_TABLE i960_cgen_hardware_attr_table[] = { { "CACHE-ADDR", NULL }, { "PC", NULL }, { "PROFILE", NULL }, { 0, 0 } }; const CGEN_ATTR_TABLE i960_cgen_operand_attr_table[] = { { "ABS-ADDR", NULL }, { "NEGATIVE", NULL }, { "PCREL-ADDR", NULL }, { "RELAX", NULL }, { "RELOC", NULL }, { "SEM-ONLY", NULL }, { "SIGN-OPT", NULL }, { "UNSIGNED", NULL }, { 0, 0 } }; const CGEN_ATTR_TABLE i960_cgen_insn_attr_table[] = { { "ALIAS", NULL }, { "COND-CTI", NULL }, { "DELAY-SLOT", NULL }, { "NO-DIS", NULL }, { "RELAX", NULL }, { "RELAXABLE", NULL }, { "SKIP-CTI", NULL }, { "UNCOND-CTI", NULL }, { "VIRTUAL", NULL }, { 0, 0 } }; CGEN_KEYWORD_ENTRY i960_cgen_opval_h_gr_entries[] = { { "fp", 31 }, { "sp", 1 }, { "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 }, { "g0", 16 }, { "g1", 17 }, { "g2", 18 }, { "g3", 19 }, { "g4", 20 }, { "g5", 21 }, { "g6", 22 }, { "g7", 23 }, { "g8", 24 }, { "g9", 25 }, { "g10", 26 }, { "g11", 27 }, { "g12", 28 }, { "g13", 29 }, { "g14", 30 }, { "g15", 31 } }; CGEN_KEYWORD i960_cgen_opval_h_gr = { & i960_cgen_opval_h_gr_entries[0], 34 }; CGEN_KEYWORD_ENTRY i960_cgen_opval_h_cc_entries[] = { { "cc", 0 } }; CGEN_KEYWORD i960_cgen_opval_h_cc = { & i960_cgen_opval_h_cc_entries[0], 1 }; /* The hardware table. */ #define HW_ENT(n) i960_cgen_hw_entries[n] static const CGEN_HW_ENTRY i960_cgen_hw_entries[] = { { HW_H_PC, & HW_ENT (HW_H_PC + 1), "h-pc", CGEN_ASM_KEYWORD, (PTR) 0, { 0, 0|(1<f_src1; break; case I960_OPERAND_SRC2 : value = fields->f_src2; break; case I960_OPERAND_DST : value = fields->f_srcdst; break; case I960_OPERAND_LIT1 : value = fields->f_src1; break; case I960_OPERAND_LIT2 : value = fields->f_src2; break; case I960_OPERAND_ST_SRC : value = fields->f_srcdst; break; case I960_OPERAND_ABASE : value = fields->f_abase; break; case I960_OPERAND_OFFSET : value = fields->f_offset; break; case I960_OPERAND_SCALE : value = fields->f_scale; break; case I960_OPERAND_INDEX : value = fields->f_index; break; case I960_OPERAND_OPTDISP : value = fields->f_optdisp; break; case I960_OPERAND_BR_SRC1 : value = fields->f_br_src1; break; case I960_OPERAND_BR_SRC2 : value = fields->f_br_src2; break; case I960_OPERAND_BR_DISP : value = fields->f_br_disp; break; case I960_OPERAND_BR_LIT1 : value = fields->f_br_src1; break; case I960_OPERAND_CTRL_DISP : value = fields->f_ctrl_disp; break; default : /* xgettext:c-format */ fprintf (stderr, _("Unrecognized field %d while getting int operand.\n"), opindex); abort (); } return value; } bfd_vma i960_cgen_get_vma_operand (opindex, fields) int opindex; const CGEN_FIELDS * fields; { bfd_vma value; switch (opindex) { case I960_OPERAND_SRC1 : value = fields->f_src1; break; case I960_OPERAND_SRC2 : value = fields->f_src2; break; case I960_OPERAND_DST : value = fields->f_srcdst; break; case I960_OPERAND_LIT1 : value = fields->f_src1; break; case I960_OPERAND_LIT2 : value = fields->f_src2; break; case I960_OPERAND_ST_SRC : value = fields->f_srcdst; break; case I960_OPERAND_ABASE : value = fields->f_abase; break; case I960_OPERAND_OFFSET : value = fields->f_offset; break; case I960_OPERAND_SCALE : value = fields->f_scale; break; case I960_OPERAND_INDEX : value = fields->f_index; break; case I960_OPERAND_OPTDISP : value = fields->f_optdisp; break; case I960_OPERAND_BR_SRC1 : value = fields->f_br_src1; break; case I960_OPERAND_BR_SRC2 : value = fields->f_br_src2; break; case I960_OPERAND_BR_DISP : value = fields->f_br_disp; break; case I960_OPERAND_BR_LIT1 : value = fields->f_br_src1; break; case I960_OPERAND_CTRL_DISP : value = fields->f_ctrl_disp; 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 i960_cgen_set_int_operand (opindex, fields, value) int opindex; CGEN_FIELDS * fields; int value; { switch (opindex) { case I960_OPERAND_SRC1 : fields->f_src1 = value; break; case I960_OPERAND_SRC2 : fields->f_src2 = value; break; case I960_OPERAND_DST : fields->f_srcdst = value; break; case I960_OPERAND_LIT1 : fields->f_src1 = value; break; case I960_OPERAND_LIT2 : fields->f_src2 = value; break; case I960_OPERAND_ST_SRC : fields->f_srcdst = value; break; case I960_OPERAND_ABASE : fields->f_abase = value; break; case I960_OPERAND_OFFSET : fields->f_offset = value; break; case I960_OPERAND_SCALE : fields->f_scale = value; break; case I960_OPERAND_INDEX : fields->f_index = value; break; case I960_OPERAND_OPTDISP : fields->f_optdisp = value; break; case I960_OPERAND_BR_SRC1 : fields->f_br_src1 = value; break; case I960_OPERAND_BR_SRC2 : fields->f_br_src2 = value; break; case I960_OPERAND_BR_DISP : fields->f_br_disp = value; break; case I960_OPERAND_BR_LIT1 : fields->f_br_src1 = value; break; case I960_OPERAND_CTRL_DISP : fields->f_ctrl_disp = value; break; default : /* xgettext:c-format */ fprintf (stderr, _("Unrecognized field %d while setting int operand.\n"), opindex); abort (); } } void i960_cgen_set_vma_operand (opindex, fields, value) int opindex; CGEN_FIELDS * fields; bfd_vma value; { switch (opindex) { case I960_OPERAND_SRC1 : fields->f_src1 = value; break; case I960_OPERAND_SRC2 : fields->f_src2 = value; break; case I960_OPERAND_DST : fields->f_srcdst = value; break; case I960_OPERAND_LIT1 : fields->f_src1 = value; break; case I960_OPERAND_LIT2 : fields->f_src2 = value; break; case I960_OPERAND_ST_SRC : fields->f_srcdst = value; break; case I960_OPERAND_ABASE : fields->f_abase = value; break; case I960_OPERAND_OFFSET : fields->f_offset = value; break; case I960_OPERAND_SCALE : fields->f_scale = value; break; case I960_OPERAND_INDEX : fields->f_index = value; break; case I960_OPERAND_OPTDISP : fields->f_optdisp = value; break; case I960_OPERAND_BR_SRC1 : fields->f_br_src1 = value; break; case I960_OPERAND_BR_SRC2 : fields->f_br_src2 = value; break; case I960_OPERAND_BR_DISP : fields->f_br_disp = value; break; case I960_OPERAND_BR_LIT1 : fields->f_br_src1 = value; break; case I960_OPERAND_CTRL_DISP : fields->f_ctrl_disp = value; break; default : /* xgettext:c-format */ fprintf (stderr, _("Unrecognized field %d while setting vma operand.\n"), opindex); abort (); } }