toolchain/binutils/opcodes/openrisc-desc.c

   1 /* CPU data for openrisc.
   2
   3 THIS FILE IS MACHINE GENERATED WITH CGEN.
   4
   5 Copyright 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003 Free Software Foundation, Inc.
   6
   7 This file is part of the GNU Binutils and/or GDB, the GNU debugger.
   8
   9 This program is free software; you can redistribute it and/or modify
  10 it under the terms of the GNU General Public License as published by
  11 the Free Software Foundation; either version 2, or (at your option)
  12 any later version.
  13
  14 This program is distributed in the hope that it will be useful,
  15 but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17 GNU General Public License for more details.
  18
  19 You should have received a copy of the GNU General Public License along
  20 with this program; if not, write to the Free Software Foundation, Inc.,
  21 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  22
  23 */
  24
  25 #include "sysdep.h"
  26 #include <stdio.h>
  27 #include <stdarg.h>
  28 #include "ansidecl.h"
  29 #include "bfd.h"
  30 #include "symcat.h"
  31 #include "openrisc-desc.h"
  32 #include "openrisc-opc.h"
  33 #include "opintl.h"
  34 #include "libiberty.h"
  35 #include "xregex.h"
  36
  37 /* Attributes.  */
  38
  39 static const CGEN_ATTR_ENTRY bool_attr[] =
  40 {
  41   { "#f", 0 },
  42   { "#t", 1 },
  43   { 0, 0 }
  44 };
  45
  46 static const CGEN_ATTR_ENTRY MACH_attr[] =
  47 {
  48   { "base", MACH_BASE },
  49   { "openrisc", MACH_OPENRISC },
  50   { "or1300", MACH_OR1300 },
  51   { "max", MACH_MAX },
  52   { 0, 0 }
  53 };
  54
  55 static const CGEN_ATTR_ENTRY ISA_attr[] =
  56 {
  57   { "or32", ISA_OR32 },
  58   { "max", ISA_MAX },
  59   { 0, 0 }
  60 };
  61
  62 static const CGEN_ATTR_ENTRY HAS_CACHE_attr[] =
  63 {
  64   { "DATA_CACHE", HAS_CACHE_DATA_CACHE },
  65   { "INSN_CACHE", HAS_CACHE_INSN_CACHE },
  66   { 0, 0 }
  67 };
  68
  69 const CGEN_ATTR_TABLE openrisc_cgen_ifield_attr_table[] =
  70 {
  71   { "MACH", & MACH_attr[0], & MACH_attr[0] },
  72   { "VIRTUAL", &bool_attr[0], &bool_attr[0] },
  73   { "PCREL-ADDR", &bool_attr[0], &bool_attr[0] },
  74   { "ABS-ADDR", &bool_attr[0], &bool_attr[0] },
  75   { "RESERVED", &bool_attr[0], &bool_attr[0] },
  76   { "SIGN-OPT", &bool_attr[0], &bool_attr[0] },
  77   { "SIGNED", &bool_attr[0], &bool_attr[0] },
  78   { 0, 0, 0 }
  79 };
  80
  81 const CGEN_ATTR_TABLE openrisc_cgen_hardware_attr_table[] =
  82 {
  83   { "MACH", & MACH_attr[0], & MACH_attr[0] },
  84   { "VIRTUAL", &bool_attr[0], &bool_attr[0] },
  85   { "CACHE-ADDR", &bool_attr[0], &bool_attr[0] },
  86   { "PC", &bool_attr[0], &bool_attr[0] },
  87   { "PROFILE", &bool_attr[0], &bool_attr[0] },
  88   { 0, 0, 0 }
  89 };
  90
  91 const CGEN_ATTR_TABLE openrisc_cgen_operand_attr_table[] =
  92 {
  93   { "MACH", & MACH_attr[0], & MACH_attr[0] },
  94   { "VIRTUAL", &bool_attr[0], &bool_attr[0] },
  95   { "PCREL-ADDR", &bool_attr[0], &bool_attr[0] },
  96   { "ABS-ADDR", &bool_attr[0], &bool_attr[0] },
  97   { "SIGN-OPT", &bool_attr[0], &bool_attr[0] },
  98   { "SIGNED", &bool_attr[0], &bool_attr[0] },
  99   { "NEGATIVE", &bool_attr[0], &bool_attr[0] },
 100   { "RELAX", &bool_attr[0], &bool_attr[0] },
 101   { "SEM-ONLY", &bool_attr[0], &bool_attr[0] },
 102   { 0, 0, 0 }
 103 };
 104
 105 const CGEN_ATTR_TABLE openrisc_cgen_insn_attr_table[] =
 106 {
 107   { "MACH", & MACH_attr[0], & MACH_attr[0] },
 108   { "ALIAS", &bool_attr[0], &bool_attr[0] },
 109   { "VIRTUAL", &bool_attr[0], &bool_attr[0] },
 110   { "UNCOND-CTI", &bool_attr[0], &bool_attr[0] },
 111   { "COND-CTI", &bool_attr[0], &bool_attr[0] },
 112   { "SKIP-CTI", &bool_attr[0], &bool_attr[0] },
 113   { "DELAY-SLOT", &bool_attr[0], &bool_attr[0] },
 114   { "RELAXABLE", &bool_attr[0], &bool_attr[0] },
 115   { "RELAXED", &bool_attr[0], &bool_attr[0] },
 116   { "NO-DIS", &bool_attr[0], &bool_attr[0] },
 117   { "PBB", &bool_attr[0], &bool_attr[0] },
 118   { "NOT-IN-DELAY-SLOT", &bool_attr[0], &bool_attr[0] },
 119   { 0, 0, 0 }
 120 };
 121
 122 /* Instruction set variants.  */
 123
 124 static const CGEN_ISA openrisc_cgen_isa_table[] = {
 125   { "or32", 32, 32, 32, 32 },
 126   { 0, 0, 0, 0, 0 }
 127 };
 128
 129 /* Machine variants.  */
 130
 131 static const CGEN_MACH openrisc_cgen_mach_table[] = {
 132   { "openrisc", "openrisc", MACH_OPENRISC, 0 },
 133   { "or1300", "openrisc:1300", MACH_OR1300, 0 },
 134   { 0, 0, 0, 0 }
 135 };
 136
 137 static CGEN_KEYWORD_ENTRY openrisc_cgen_opval_h_gr_entries[] =
 138 {
 139   { "r0", 0, {0, {0}}, 0, 0 },
 140   { "r1", 1, {0, {0}}, 0, 0 },
 141   { "r2", 2, {0, {0}}, 0, 0 },
 142   { "r3", 3, {0, {0}}, 0, 0 },
 143   { "r4", 4, {0, {0}}, 0, 0 },
 144   { "r5", 5, {0, {0}}, 0, 0 },
 145   { "r6", 6, {0, {0}}, 0, 0 },
 146   { "r7", 7, {0, {0}}, 0, 0 },
 147   { "r8", 8, {0, {0}}, 0, 0 },
 148   { "r9", 9, {0, {0}}, 0, 0 },
 149   { "r10", 10, {0, {0}}, 0, 0 },
 150   { "r11", 11, {0, {0}}, 0, 0 },
 151   { "r12", 12, {0, {0}}, 0, 0 },
 152   { "r13", 13, {0, {0}}, 0, 0 },
 153   { "r14", 14, {0, {0}}, 0, 0 },
 154   { "r15", 15, {0, {0}}, 0, 0 },
 155   { "r16", 16, {0, {0}}, 0, 0 },
 156   { "r17", 17, {0, {0}}, 0, 0 },
 157   { "r18", 18, {0, {0}}, 0, 0 },
 158   { "r19", 19, {0, {0}}, 0, 0 },
 159   { "r20", 20, {0, {0}}, 0, 0 },
 160   { "r21", 21, {0, {0}}, 0, 0 },
 161   { "r22", 22, {0, {0}}, 0, 0 },
 162   { "r23", 23, {0, {0}}, 0, 0 },
 163   { "r24", 24, {0, {0}}, 0, 0 },
 164   { "r25", 25, {0, {0}}, 0, 0 },
 165   { "r26", 26, {0, {0}}, 0, 0 },
 166   { "r27", 27, {0, {0}}, 0, 0 },
 167   { "r28", 28, {0, {0}}, 0, 0 },
 168   { "r29", 29, {0, {0}}, 0, 0 },
 169   { "r30", 30, {0, {0}}, 0, 0 },
 170   { "r31", 31, {0, {0}}, 0, 0 },
 171   { "lr", 11, {0, {0}}, 0, 0 },
 172   { "sp", 1, {0, {0}}, 0, 0 },
 173   { "fp", 2, {0, {0}}, 0, 0 }
 174 };
 175
 176 CGEN_KEYWORD openrisc_cgen_opval_h_gr =
 177 {
 178   & openrisc_cgen_opval_h_gr_entries[0],
 179   35,
 180   0, 0, 0, 0, ""
 181 };
 182
 183
 184 /* The hardware table.  */
 185
 186 #if defined (__STDC__) || defined (ALMOST_STDC) || defined (HAVE_STRINGIZE)
 187 #define A(a) (1 << CGEN_HW_##a)
 188 #else
 189 #define A(a) (1 << CGEN_HW_/**/a)
 190 #endif
 191
 192 const CGEN_HW_ENTRY openrisc_cgen_hw_table[] =
 193 {
 194   { "h-memory", HW_H_MEMORY, CGEN_ASM_NONE, 0, { 0, { (1<<MACH_BASE) } } },
 195   { "h-sint", HW_H_SINT, CGEN_ASM_NONE, 0, { 0, { (1<<MACH_BASE) } } },
 196   { "h-uint", HW_H_UINT, CGEN_ASM_NONE, 0, { 0, { (1<<MACH_BASE) } } },
 197   { "h-addr", HW_H_ADDR, CGEN_ASM_NONE, 0, { 0, { (1<<MACH_BASE) } } },
 198   { "h-iaddr", HW_H_IADDR, CGEN_ASM_NONE, 0, { 0, { (1<<MACH_BASE) } } },
 199   { "h-pc", HW_H_PC, CGEN_ASM_NONE, 0, { 0|A(PROFILE)|A(PC), { (1<<MACH_BASE) } } },
 200   { "h-gr", HW_H_GR, CGEN_ASM_KEYWORD, (PTR) & openrisc_cgen_opval_h_gr, { 0|A(PROFILE), { (1<<MACH_BASE) } } },
 201   { "h-sr", HW_H_SR, CGEN_ASM_NONE, 0, { 0, { (1<<MACH_BASE) } } },
 202   { "h-hi16", HW_H_HI16, CGEN_ASM_NONE, 0, { 0, { (1<<MACH_BASE) } } },
 203   { "h-lo16", HW_H_LO16, CGEN_ASM_NONE, 0, { 0, { (1<<MACH_BASE) } } },
 204   { "h-cbit", HW_H_CBIT, CGEN_ASM_NONE, 0, { 0, { (1<<MACH_BASE) } } },
 205   { "h-delay-insn", HW_H_DELAY_INSN, CGEN_ASM_NONE, 0, { 0, { (1<<MACH_BASE) } } },
 206   { 0, 0, CGEN_ASM_NONE, 0, {0, {0}} }
 207 };
 208
 209 #undef A
 210
 211
 212 /* The instruction field table.  */
 213
 214 #if defined (__STDC__) || defined (ALMOST_STDC) || defined (HAVE_STRINGIZE)
 215 #define A(a) (1 << CGEN_IFLD_##a)
 216 #else
 217 #define A(a) (1 << CGEN_IFLD_/**/a)
 218 #endif
 219
 220 const CGEN_IFLD openrisc_cgen_ifld_table[] =
 221 {
 222   { OPENRISC_F_NIL, "f-nil", 0, 0, 0, 0, { 0, { (1<<MACH_BASE) } }  },
 223   { OPENRISC_F_ANYOF, "f-anyof", 0, 0, 0, 0, { 0, { (1<<MACH_BASE) } }  },
 224   { OPENRISC_F_CLASS, "f-class", 0, 32, 31, 2, { 0, { (1<<MACH_BASE) } }  },
 225   { OPENRISC_F_SUB, "f-sub", 0, 32, 29, 4, { 0, { (1<<MACH_BASE) } }  },
 226   { OPENRISC_F_R1, "f-r1", 0, 32, 25, 5, { 0, { (1<<MACH_BASE) } }  },
 227   { OPENRISC_F_R2, "f-r2", 0, 32, 20, 5, { 0, { (1<<MACH_BASE) } }  },
 228   { OPENRISC_F_R3, "f-r3", 0, 32, 15, 5, { 0, { (1<<MACH_BASE) } }  },
 229   { OPENRISC_F_SIMM16, "f-simm16", 0, 32, 15, 16, { 0, { (1<<MACH_BASE) } }  },
 230   { OPENRISC_F_UIMM16, "f-uimm16", 0, 32, 15, 16, { 0, { (1<<MACH_BASE) } }  },
 231   { OPENRISC_F_UIMM5, "f-uimm5", 0, 32, 4, 5, { 0, { (1<<MACH_BASE) } }  },
 232   { OPENRISC_F_HI16, "f-hi16", 0, 32, 15, 16, { 0, { (1<<MACH_BASE) } }  },
 233   { OPENRISC_F_LO16, "f-lo16", 0, 32, 15, 16, { 0, { (1<<MACH_BASE) } }  },
 234   { OPENRISC_F_OP1, "f-op1", 0, 32, 31, 2, { 0, { (1<<MACH_BASE) } }  },
 235   { OPENRISC_F_OP2, "f-op2", 0, 32, 29, 4, { 0, { (1<<MACH_BASE) } }  },
 236   { OPENRISC_F_OP3, "f-op3", 0, 32, 25, 2, { 0, { (1<<MACH_BASE) } }  },
 237   { OPENRISC_F_OP4, "f-op4", 0, 32, 23, 3, { 0, { (1<<MACH_BASE) } }  },
 238   { OPENRISC_F_OP5, "f-op5", 0, 32, 25, 5, { 0, { (1<<MACH_BASE) } }  },
 239   { OPENRISC_F_OP6, "f-op6", 0, 32, 7, 3, { 0, { (1<<MACH_BASE) } }  },
 240   { OPENRISC_F_OP7, "f-op7", 0, 32, 3, 4, { 0, { (1<<MACH_BASE) } }  },
 241   { OPENRISC_F_I16_1, "f-i16-1", 0, 32, 10, 11, { 0, { (1<<MACH_BASE) } }  },
 242   { OPENRISC_F_I16_2, "f-i16-2", 0, 32, 25, 5, { 0, { (1<<MACH_BASE) } }  },
 243   { OPENRISC_F_DISP26, "f-disp26", 0, 32, 25, 26, { 0|A(PCREL_ADDR), { (1<<MACH_BASE) } }  },
 244   { OPENRISC_F_ABS26, "f-abs26", 0, 32, 25, 26, { 0|A(ABS_ADDR), { (1<<MACH_BASE) } }  },
 245   { OPENRISC_F_I16NC, "f-i16nc", 0, 0, 0, 0,{ 0|A(SIGN_OPT)|A(VIRTUAL), { (1<<MACH_BASE) } }  },
 246   { OPENRISC_F_F_15_8, "f-f-15-8", 0, 32, 15, 8, { 0|A(RESERVED), { (1<<MACH_BASE) } }  },
 247   { OPENRISC_F_F_10_3, "f-f-10-3", 0, 32, 10, 3, { 0|A(RESERVED), { (1<<MACH_BASE) } }  },
 248   { OPENRISC_F_F_4_1, "f-f-4-1", 0, 32, 4, 1, { 0|A(RESERVED), { (1<<MACH_BASE) } }  },
 249   { OPENRISC_F_F_7_3, "f-f-7-3", 0, 32, 7, 3, { 0|A(RESERVED), { (1<<MACH_BASE) } }  },
 250   { OPENRISC_F_F_10_7, "f-f-10-7", 0, 32, 10, 7, { 0|A(RESERVED), { (1<<MACH_BASE) } }  },
 251   { OPENRISC_F_F_10_11, "f-f-10-11", 0, 32, 10, 11, { 0|A(RESERVED), { (1<<MACH_BASE) } }  },
 252   { 0, 0, 0, 0, 0, 0, {0, {0}} }
 253 };
 254
 255 #undef A
 256
 257
 258
 259 /* multi ifield declarations */
 260
 261 const CGEN_MAYBE_MULTI_IFLD OPENRISC_F_I16NC_MULTI_IFIELD [];
 262
 263
 264 /* multi ifield definitions */
 265
 266 const CGEN_MAYBE_MULTI_IFLD OPENRISC_F_I16NC_MULTI_IFIELD [] =
 267 {
 268     { 0, { (const PTR) &openrisc_cgen_ifld_table[OPENRISC_F_I16_1] } },
 269     { 0, { (const PTR) &openrisc_cgen_ifld_table[OPENRISC_F_I16_2] } },
 270     { 0, { (const PTR) 0 } }
 271 };
 272
 273 /* The operand table.  */
 274
 275 #if defined (__STDC__) || defined (ALMOST_STDC) || defined (HAVE_STRINGIZE)
 276 #define A(a) (1 << CGEN_OPERAND_##a)
 277 #else
 278 #define A(a) (1 << CGEN_OPERAND_/**/a)
 279 #endif
 280 #if defined (__STDC__) || defined (ALMOST_STDC) || defined (HAVE_STRINGIZE)
 281 #define OPERAND(op) OPENRISC_OPERAND_##op
 282 #else
 283 #define OPERAND(op) OPENRISC_OPERAND_/**/op
 284 #endif
 285
 286 const CGEN_OPERAND openrisc_cgen_operand_table[] =
 287 {
 288 /* pc: program counter */
 289   { "pc", OPENRISC_OPERAND_PC, HW_H_PC, 0, 0,
 290     { 0, { (const PTR) &openrisc_cgen_ifld_table[OPENRISC_F_NIL] } },
 291     { 0|A(SEM_ONLY), { (1<<MACH_BASE) } }  },
 292 /* sr: special register */
 293   { "sr", OPENRISC_OPERAND_SR, HW_H_SR, 0, 0,
 294     { 0, { (const PTR) 0 } },
 295     { 0|A(SEM_ONLY), { (1<<MACH_BASE) } }  },
 296 /* cbit: condition bit */
 297   { "cbit", OPENRISC_OPERAND_CBIT, HW_H_CBIT, 0, 0,
 298     { 0, { (const PTR) 0 } },
 299     { 0|A(SEM_ONLY), { (1<<MACH_BASE) } }  },
 300 /* simm-16: 16 bit signed immediate */
 301   { "simm-16", OPENRISC_OPERAND_SIMM_16, HW_H_SINT, 15, 16,
 302     { 0, { (const PTR) &openrisc_cgen_ifld_table[OPENRISC_F_SIMM16] } },
 303     { 0, { (1<<MACH_BASE) } }  },
 304 /* uimm-16: 16 bit unsigned immediate */
 305   { "uimm-16", OPENRISC_OPERAND_UIMM_16, HW_H_UINT, 15, 16,
 306     { 0, { (const PTR) &openrisc_cgen_ifld_table[OPENRISC_F_UIMM16] } },
 307     { 0, { (1<<MACH_BASE) } }  },
 308 /* disp-26: pc-rel 26 bit */
 309   { "disp-26", OPENRISC_OPERAND_DISP_26, HW_H_IADDR, 25, 26,
 310     { 0, { (const PTR) &openrisc_cgen_ifld_table[OPENRISC_F_DISP26] } },
 311     { 0|A(PCREL_ADDR), { (1<<MACH_BASE) } }  },
 312 /* abs-26: abs 26 bit */
 313   { "abs-26", OPENRISC_OPERAND_ABS_26, HW_H_IADDR, 25, 26,
 314     { 0, { (const PTR) &openrisc_cgen_ifld_table[OPENRISC_F_ABS26] } },
 315     { 0|A(ABS_ADDR), { (1<<MACH_BASE) } }  },
 316 /* uimm-5: imm5 */
 317   { "uimm-5", OPENRISC_OPERAND_UIMM_5, HW_H_UINT, 4, 5,
 318     { 0, { (const PTR) &openrisc_cgen_ifld_table[OPENRISC_F_UIMM5] } },
 319     { 0, { (1<<MACH_BASE) } }  },
 320 /* rD: destination register */
 321   { "rD", OPENRISC_OPERAND_RD, HW_H_GR, 25, 5,
 322     { 0, { (const PTR) &openrisc_cgen_ifld_table[OPENRISC_F_R1] } },
 323     { 0, { (1<<MACH_BASE) } }  },
 324 /* rA: source register A */
 325   { "rA", OPENRISC_OPERAND_RA, HW_H_GR, 20, 5,
 326     { 0, { (const PTR) &openrisc_cgen_ifld_table[OPENRISC_F_R2] } },
 327     { 0, { (1<<MACH_BASE) } }  },
 328 /* rB: source register B */
 329   { "rB", OPENRISC_OPERAND_RB, HW_H_GR, 15, 5,
 330     { 0, { (const PTR) &openrisc_cgen_ifld_table[OPENRISC_F_R3] } },
 331     { 0, { (1<<MACH_BASE) } }  },
 332 /* op-f-23: f-op23 */
 333   { "op-f-23", OPENRISC_OPERAND_OP_F_23, HW_H_UINT, 23, 3,
 334     { 0, { (const PTR) &openrisc_cgen_ifld_table[OPENRISC_F_OP4] } },
 335     { 0, { (1<<MACH_BASE) } }  },
 336 /* op-f-3: f-op3 */
 337   { "op-f-3", OPENRISC_OPERAND_OP_F_3, HW_H_UINT, 25, 5,
 338     { 0, { (const PTR) &openrisc_cgen_ifld_table[OPENRISC_F_OP5] } },
 339     { 0, { (1<<MACH_BASE) } }  },
 340 /* hi16: high 16 bit immediate, sign optional */
 341   { "hi16", OPENRISC_OPERAND_HI16, HW_H_HI16, 15, 16,
 342     { 0, { (const PTR) &openrisc_cgen_ifld_table[OPENRISC_F_SIMM16] } },
 343     { 0|A(SIGN_OPT), { (1<<MACH_BASE) } }  },
 344 /* lo16: low 16 bit immediate, sign optional */
 345   { "lo16", OPENRISC_OPERAND_LO16, HW_H_LO16, 15, 16,
 346     { 0, { (const PTR) &openrisc_cgen_ifld_table[OPENRISC_F_LO16] } },
 347     { 0|A(SIGN_OPT), { (1<<MACH_BASE) } }  },
 348 /* ui16nc: 16 bit immediate, sign optional */
 349   { "ui16nc", OPENRISC_OPERAND_UI16NC, HW_H_LO16, 10, 16,
 350     { 2, { (const PTR) &OPENRISC_F_I16NC_MULTI_IFIELD[0] } },
 351     { 0|A(SIGN_OPT)|A(VIRTUAL), { (1<<MACH_BASE) } }  },
 352 /* sentinel */
 353   { 0, 0, 0, 0, 0,
 354     { 0, { (const PTR) 0 } },
 355     { 0, { 0 } } }
 356 };
 357
 358 #undef A
 359
 360
 361 /* The instruction table.  */
 362
 363 #define OP(field) CGEN_SYNTAX_MAKE_FIELD (OPERAND (field))
 364 #if defined (__STDC__) || defined (ALMOST_STDC) || defined (HAVE_STRINGIZE)
 365 #define A(a) (1 << CGEN_INSN_##a)
 366 #else
 367 #define A(a) (1 << CGEN_INSN_/**/a)
 368 #endif
 369
 370 static const CGEN_IBASE openrisc_cgen_insn_table[MAX_INSNS] =
 371 {
 372   /* Special null first entry.
 373      A `num' value of zero is thus invalid.
 374      Also, the special `invalid' insn resides here.  */
 375   { 0, 0, 0, 0, {0, {0}} },
 376 /* l.j ${abs-26} */
 377   {
 378     OPENRISC_INSN_L_J, "l-j", "l.j", 32,
 379     { 0|A(NOT_IN_DELAY_SLOT)|A(UNCOND_CTI)|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 380   },
 381 /* l.jal ${abs-26} */
 382   {
 383     OPENRISC_INSN_L_JAL, "l-jal", "l.jal", 32,
 384     { 0|A(NOT_IN_DELAY_SLOT)|A(UNCOND_CTI)|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 385   },
 386 /* l.jr $rA */
 387   {
 388     OPENRISC_INSN_L_JR, "l-jr", "l.jr", 32,
 389     { 0|A(NOT_IN_DELAY_SLOT)|A(UNCOND_CTI)|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 390   },
 391 /* l.jalr $rA */
 392   {
 393     OPENRISC_INSN_L_JALR, "l-jalr", "l.jalr", 32,
 394     { 0|A(NOT_IN_DELAY_SLOT)|A(UNCOND_CTI)|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 395   },
 396 /* l.bal ${disp-26} */
 397   {
 398     OPENRISC_INSN_L_BAL, "l-bal", "l.bal", 32,
 399     { 0|A(NOT_IN_DELAY_SLOT)|A(UNCOND_CTI)|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 400   },
 401 /* l.bnf ${disp-26} */
 402   {
 403     OPENRISC_INSN_L_BNF, "l-bnf", "l.bnf", 32,
 404     { 0|A(NOT_IN_DELAY_SLOT)|A(COND_CTI)|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 405   },
 406 /* l.bf ${disp-26} */
 407   {
 408     OPENRISC_INSN_L_BF, "l-bf", "l.bf", 32,
 409     { 0|A(NOT_IN_DELAY_SLOT)|A(COND_CTI)|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 410   },
 411 /* l.brk ${uimm-16} */
 412   {
 413     OPENRISC_INSN_L_BRK, "l-brk", "l.brk", 32,
 414     { 0|A(NOT_IN_DELAY_SLOT), { (1<<MACH_BASE) } }
 415   },
 416 /* l.rfe $rA */
 417   {
 418     OPENRISC_INSN_L_RFE, "l-rfe", "l.rfe", 32,
 419     { 0|A(NOT_IN_DELAY_SLOT)|A(UNCOND_CTI)|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 420   },
 421 /* l.sys ${uimm-16} */
 422   {
 423     OPENRISC_INSN_L_SYS, "l-sys", "l.sys", 32,
 424     { 0|A(NOT_IN_DELAY_SLOT)|A(UNCOND_CTI)|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 425   },
 426 /* l.nop */
 427   {
 428     OPENRISC_INSN_L_NOP, "l-nop", "l.nop", 32,
 429     { 0, { (1<<MACH_BASE) } }
 430   },
 431 /* l.movhi $rD,$hi16 */
 432   {
 433     OPENRISC_INSN_L_MOVHI, "l-movhi", "l.movhi", 32,
 434     { 0|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 435   },
 436 /* l.mfsr $rD,$rA */
 437   {
 438     OPENRISC_INSN_L_MFSR, "l-mfsr", "l.mfsr", 32,
 439     { 0|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 440   },
 441 /* l.mtsr $rA,$rB */
 442   {
 443     OPENRISC_INSN_L_MTSR, "l-mtsr", "l.mtsr", 32,
 444     { 0|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 445   },
 446 /* l.lw $rD,${simm-16}($rA) */
 447   {
 448     OPENRISC_INSN_L_LW, "l-lw", "l.lw", 32,
 449     { 0|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 450   },
 451 /* l.lbz $rD,${simm-16}($rA) */
 452   {
 453     OPENRISC_INSN_L_LBZ, "l-lbz", "l.lbz", 32,
 454     { 0|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 455   },
 456 /* l.lbs $rD,${simm-16}($rA) */
 457   {
 458     OPENRISC_INSN_L_LBS, "l-lbs", "l.lbs", 32,
 459     { 0|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 460   },
 461 /* l.lhz $rD,${simm-16}($rA) */
 462   {
 463     OPENRISC_INSN_L_LHZ, "l-lhz", "l.lhz", 32,
 464     { 0|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 465   },
 466 /* l.lhs $rD,${simm-16}($rA) */
 467   {
 468     OPENRISC_INSN_L_LHS, "l-lhs", "l.lhs", 32,
 469     { 0|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 470   },
 471 /* l.sw ${ui16nc}($rA),$rB */
 472   {
 473     OPENRISC_INSN_L_SW, "l-sw", "l.sw", 32,
 474     { 0|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 475   },
 476 /* l.sb ${ui16nc}($rA),$rB */
 477   {
 478     OPENRISC_INSN_L_SB, "l-sb", "l.sb", 32,
 479     { 0|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 480   },
 481 /* l.sh ${ui16nc}($rA),$rB */
 482   {
 483     OPENRISC_INSN_L_SH, "l-sh", "l.sh", 32,
 484     { 0|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 485   },
 486 /* l.sll $rD,$rA,$rB */
 487   {
 488     OPENRISC_INSN_L_SLL, "l-sll", "l.sll", 32,
 489     { 0, { (1<<MACH_BASE) } }
 490   },
 491 /* l.slli $rD,$rA,${uimm-5} */
 492   {
 493     OPENRISC_INSN_L_SLLI, "l-slli", "l.slli", 32,
 494     { 0, { (1<<MACH_BASE) } }
 495   },
 496 /* l.srl $rD,$rA,$rB */
 497   {
 498     OPENRISC_INSN_L_SRL, "l-srl", "l.srl", 32,
 499     { 0, { (1<<MACH_BASE) } }
 500   },
 501 /* l.srli $rD,$rA,${uimm-5} */
 502   {
 503     OPENRISC_INSN_L_SRLI, "l-srli", "l.srli", 32,
 504     { 0, { (1<<MACH_BASE) } }
 505   },
 506 /* l.sra $rD,$rA,$rB */
 507   {
 508     OPENRISC_INSN_L_SRA, "l-sra", "l.sra", 32,
 509     { 0, { (1<<MACH_BASE) } }
 510   },
 511 /* l.srai $rD,$rA,${uimm-5} */
 512   {
 513     OPENRISC_INSN_L_SRAI, "l-srai", "l.srai", 32,
 514     { 0, { (1<<MACH_BASE) } }
 515   },
 516 /* l.ror $rD,$rA,$rB */
 517   {
 518     OPENRISC_INSN_L_ROR, "l-ror", "l.ror", 32,
 519     { 0, { (1<<MACH_BASE) } }
 520   },
 521 /* l.rori $rD,$rA,${uimm-5} */
 522   {
 523     OPENRISC_INSN_L_RORI, "l-rori", "l.rori", 32,
 524     { 0, { (1<<MACH_BASE) } }
 525   },
 526 /* l.add $rD,$rA,$rB */
 527   {
 528     OPENRISC_INSN_L_ADD, "l-add", "l.add", 32,
 529     { 0, { (1<<MACH_BASE) } }
 530   },
 531 /* l.addi $rD,$rA,$lo16 */
 532   {
 533     OPENRISC_INSN_L_ADDI, "l-addi", "l.addi", 32,
 534     { 0, { (1<<MACH_BASE) } }
 535   },
 536 /* l.sub $rD,$rA,$rB */
 537   {
 538     OPENRISC_INSN_L_SUB, "l-sub", "l.sub", 32,
 539     { 0, { (1<<MACH_BASE) } }
 540   },
 541 /* l.subi $rD,$rA,$lo16 */
 542   {
 543     OPENRISC_INSN_L_SUBI, "l-subi", "l.subi", 32,
 544     { 0, { (1<<MACH_BASE) } }
 545   },
 546 /* l.and $rD,$rA,$rB */
 547   {
 548     OPENRISC_INSN_L_AND, "l-and", "l.and", 32,
 549     { 0, { (1<<MACH_BASE) } }
 550   },
 551 /* l.andi $rD,$rA,$lo16 */
 552   {
 553     OPENRISC_INSN_L_ANDI, "l-andi", "l.andi", 32,
 554     { 0, { (1<<MACH_BASE) } }
 555   },
 556 /* l.or $rD,$rA,$rB */
 557   {
 558     OPENRISC_INSN_L_OR, "l-or", "l.or", 32,
 559     { 0, { (1<<MACH_BASE) } }
 560   },
 561 /* l.ori $rD,$rA,$lo16 */
 562   {
 563     OPENRISC_INSN_L_ORI, "l-ori", "l.ori", 32,
 564     { 0, { (1<<MACH_BASE) } }
 565   },
 566 /* l.xor $rD,$rA,$rB */
 567   {
 568     OPENRISC_INSN_L_XOR, "l-xor", "l.xor", 32,
 569     { 0, { (1<<MACH_BASE) } }
 570   },
 571 /* l.xori $rD,$rA,$lo16 */
 572   {
 573     OPENRISC_INSN_L_XORI, "l-xori", "l.xori", 32,
 574     { 0, { (1<<MACH_BASE) } }
 575   },
 576 /* l.mul $rD,$rA,$rB */
 577   {
 578     OPENRISC_INSN_L_MUL, "l-mul", "l.mul", 32,
 579     { 0, { (1<<MACH_BASE) } }
 580   },
 581 /* l.muli $rD,$rA,$lo16 */
 582   {
 583     OPENRISC_INSN_L_MULI, "l-muli", "l.muli", 32,
 584     { 0, { (1<<MACH_BASE) } }
 585   },
 586 /* l.div $rD,$rA,$rB */
 587   {
 588     OPENRISC_INSN_L_DIV, "l-div", "l.div", 32,
 589     { 0|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 590   },
 591 /* l.divu $rD,$rA,$rB */
 592   {
 593     OPENRISC_INSN_L_DIVU, "l-divu", "l.divu", 32,
 594     { 0|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 595   },
 596 /* l.sfgts $rA,$rB */
 597   {
 598     OPENRISC_INSN_L_SFGTS, "l-sfgts", "l.sfgts", 32,
 599     { 0|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 600   },
 601 /* l.sfgtu $rA,$rB */
 602   {
 603     OPENRISC_INSN_L_SFGTU, "l-sfgtu", "l.sfgtu", 32,
 604     { 0|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 605   },
 606 /* l.sfges $rA,$rB */
 607   {
 608     OPENRISC_INSN_L_SFGES, "l-sfges", "l.sfges", 32,
 609     { 0|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 610   },
 611 /* l.sfgeu $rA,$rB */
 612   {
 613     OPENRISC_INSN_L_SFGEU, "l-sfgeu", "l.sfgeu", 32,
 614     { 0|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 615   },
 616 /* l.sflts $rA,$rB */
 617   {
 618     OPENRISC_INSN_L_SFLTS, "l-sflts", "l.sflts", 32,
 619     { 0|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 620   },
 621 /* l.sfltu $rA,$rB */
 622   {
 623     OPENRISC_INSN_L_SFLTU, "l-sfltu", "l.sfltu", 32,
 624     { 0|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 625   },
 626 /* l.sfles $rA,$rB */
 627   {
 628     OPENRISC_INSN_L_SFLES, "l-sfles", "l.sfles", 32,
 629     { 0|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 630   },
 631 /* l.sfleu $rA,$rB */
 632   {
 633     OPENRISC_INSN_L_SFLEU, "l-sfleu", "l.sfleu", 32,
 634     { 0|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 635   },
 636 /* l.sfgtsi $rA,${simm-16} */
 637   {
 638     OPENRISC_INSN_L_SFGTSI, "l-sfgtsi", "l.sfgtsi", 32,
 639     { 0|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 640   },
 641 /* l.sfgtui $rA,${uimm-16} */
 642   {
 643     OPENRISC_INSN_L_SFGTUI, "l-sfgtui", "l.sfgtui", 32,
 644     { 0|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 645   },
 646 /* l.sfgesi $rA,${simm-16} */
 647   {
 648     OPENRISC_INSN_L_SFGESI, "l-sfgesi", "l.sfgesi", 32,
 649     { 0|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 650   },
 651 /* l.sfgeui $rA,${uimm-16} */
 652   {
 653     OPENRISC_INSN_L_SFGEUI, "l-sfgeui", "l.sfgeui", 32,
 654     { 0|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 655   },
 656 /* l.sfltsi $rA,${simm-16} */
 657   {
 658     OPENRISC_INSN_L_SFLTSI, "l-sfltsi", "l.sfltsi", 32,
 659     { 0|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 660   },
 661 /* l.sfltui $rA,${uimm-16} */
 662   {
 663     OPENRISC_INSN_L_SFLTUI, "l-sfltui", "l.sfltui", 32,
 664     { 0|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 665   },
 666 /* l.sflesi $rA,${simm-16} */
 667   {
 668     OPENRISC_INSN_L_SFLESI, "l-sflesi", "l.sflesi", 32,
 669     { 0|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 670   },
 671 /* l.sfleui $rA,${uimm-16} */
 672   {
 673     OPENRISC_INSN_L_SFLEUI, "l-sfleui", "l.sfleui", 32,
 674     { 0|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 675   },
 676 /* l.sfeq $rA,$rB */
 677   {
 678     OPENRISC_INSN_L_SFEQ, "l-sfeq", "l.sfeq", 32,
 679     { 0|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 680   },
 681 /* l.sfeqi $rA,${simm-16} */
 682   {
 683     OPENRISC_INSN_L_SFEQI, "l-sfeqi", "l.sfeqi", 32,
 684     { 0|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 685   },
 686 /* l.sfne $rA,$rB */
 687   {
 688     OPENRISC_INSN_L_SFNE, "l-sfne", "l.sfne", 32,
 689     { 0|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 690   },
 691 /* l.sfnei $rA,${simm-16} */
 692   {
 693     OPENRISC_INSN_L_SFNEI, "l-sfnei", "l.sfnei", 32,
 694     { 0|A(DELAY_SLOT), { (1<<MACH_BASE) } }
 695   },
 696 };
 697
 698 #undef OP
 699 #undef A
 700
 701 /* Initialize anything needed to be done once, before any cpu_open call.  */
 702 static void init_tables PARAMS ((void));
 703
 704 static void
 705 init_tables ()
 706 {
 707 }
 708
 709 static const CGEN_MACH * lookup_mach_via_bfd_name
 710   PARAMS ((const CGEN_MACH *, const char *));
 711 static void build_hw_table  PARAMS ((CGEN_CPU_TABLE *));
 712 static void build_ifield_table  PARAMS ((CGEN_CPU_TABLE *));
 713 static void build_operand_table PARAMS ((CGEN_CPU_TABLE *));
 714 static void build_insn_table    PARAMS ((CGEN_CPU_TABLE *));
 715 static void openrisc_cgen_rebuild_tables PARAMS ((CGEN_CPU_TABLE *));
 716
 717 /* Subroutine of openrisc_cgen_cpu_open to look up a mach via its bfd name.  */
 718
 719 static const CGEN_MACH *
 720 lookup_mach_via_bfd_name (table, name)
 721      const CGEN_MACH *table;
 722      const char *name;
 723 {
 724   while (table->name)
 725     {
 726       if (strcmp (name, table->bfd_name) == 0)
 727         return table;
 728       ++table;
 729     }
 730   abort ();
 731 }
 732
 733 /* Subroutine of openrisc_cgen_cpu_open to build the hardware table.  */
 734
 735 static void
 736 build_hw_table (cd)
 737      CGEN_CPU_TABLE *cd;
 738 {
 739   int i;
 740   int machs = cd->machs;
 741   const CGEN_HW_ENTRY *init = & openrisc_cgen_hw_table[0];
 742   /* MAX_HW is only an upper bound on the number of selected entries.
 743      However each entry is indexed by it's enum so there can be holes in
 744      the table.  */
 745   const CGEN_HW_ENTRY **selected =
 746     (const CGEN_HW_ENTRY **) xmalloc (MAX_HW * sizeof (CGEN_HW_ENTRY *));
 747
 748   cd->hw_table.init_entries = init;
 749   cd->hw_table.entry_size = sizeof (CGEN_HW_ENTRY);
 750   memset (selected, 0, MAX_HW * sizeof (CGEN_HW_ENTRY *));
 751   /* ??? For now we just use machs to determine which ones we want.  */
 752   for (i = 0; init[i].name != NULL; ++i)
 753     if (CGEN_HW_ATTR_VALUE (&init[i], CGEN_HW_MACH)
 754         & machs)
 755       selected[init[i].type] = &init[i];
 756   cd->hw_table.entries = selected;
 757   cd->hw_table.num_entries = MAX_HW;
 758 }
 759
 760 /* Subroutine of openrisc_cgen_cpu_open to build the hardware table.  */
 761
 762 static void
 763 build_ifield_table (cd)
 764      CGEN_CPU_TABLE *cd;
 765 {
 766   cd->ifld_table = & openrisc_cgen_ifld_table[0];
 767 }
 768
 769 /* Subroutine of openrisc_cgen_cpu_open to build the hardware table.  */
 770
 771 static void
 772 build_operand_table (cd)
 773      CGEN_CPU_TABLE *cd;
 774 {
 775   int i;
 776   int machs = cd->machs;
 777   const CGEN_OPERAND *init = & openrisc_cgen_operand_table[0];
 778   /* MAX_OPERANDS is only an upper bound on the number of selected entries.
 779      However each entry is indexed by it's enum so there can be holes in
 780      the table.  */
 781   const CGEN_OPERAND **selected =
 782     (const CGEN_OPERAND **) xmalloc (MAX_OPERANDS * sizeof (CGEN_OPERAND *));
 783
 784   cd->operand_table.init_entries = init;
 785   cd->operand_table.entry_size = sizeof (CGEN_OPERAND);
 786   memset (selected, 0, MAX_OPERANDS * sizeof (CGEN_OPERAND *));
 787   /* ??? For now we just use mach to determine which ones we want.  */
 788   for (i = 0; init[i].name != NULL; ++i)
 789     if (CGEN_OPERAND_ATTR_VALUE (&init[i], CGEN_OPERAND_MACH)
 790         & machs)
 791       selected[init[i].type] = &init[i];
 792   cd->operand_table.entries = selected;
 793   cd->operand_table.num_entries = MAX_OPERANDS;
 794 }
 795
 796 /* Subroutine of openrisc_cgen_cpu_open to build the hardware table.
 797    ??? This could leave out insns not supported by the specified mach/isa,
 798    but that would cause errors like "foo only supported by bar" to become
 799    "unknown insn", so for now we include all insns and require the app to
 800    do the checking later.
 801    ??? On the other hand, parsing of such insns may require their hardware or
 802    operand elements to be in the table [which they mightn't be].  */
 803
 804 static void
 805 build_insn_table (cd)
 806      CGEN_CPU_TABLE *cd;
 807 {
 808   int i;
 809   const CGEN_IBASE *ib = & openrisc_cgen_insn_table[0];
 810   CGEN_INSN *insns = (CGEN_INSN *) xmalloc (MAX_INSNS * sizeof (CGEN_INSN));
 811
 812   memset (insns, 0, MAX_INSNS * sizeof (CGEN_INSN));
 813   for (i = 0; i < MAX_INSNS; ++i)
 814     insns[i].base = &ib[i];
 815   cd->insn_table.init_entries = insns;
 816   cd->insn_table.entry_size = sizeof (CGEN_IBASE);
 817   cd->insn_table.num_init_entries = MAX_INSNS;
 818 }
 819
 820 /* Subroutine of openrisc_cgen_cpu_open to rebuild the tables.  */
 821
 822 static void
 823 openrisc_cgen_rebuild_tables (cd)
 824      CGEN_CPU_TABLE *cd;
 825 {
 826   int i;
 827   unsigned int isas = cd->isas;
 828   unsigned int machs = cd->machs;
 829
 830   cd->int_insn_p = CGEN_INT_INSN_P;
 831
 832   /* Data derived from the isa spec.  */
 833 #define UNSET (CGEN_SIZE_UNKNOWN + 1)
 834   cd->default_insn_bitsize = UNSET;
 835   cd->base_insn_bitsize = UNSET;
 836   cd->min_insn_bitsize = 65535; /* some ridiculously big number */
 837   cd->max_insn_bitsize = 0;
 838   for (i = 0; i < MAX_ISAS; ++i)
 839     if (((1 << i) & isas) != 0)
 840       {
 841         const CGEN_ISA *isa = & openrisc_cgen_isa_table[i];
 842
 843         /* Default insn sizes of all selected isas must be
 844            equal or we set the result to 0, meaning "unknown".  */
 845         if (cd->default_insn_bitsize == UNSET)
 846           cd->default_insn_bitsize = isa->default_insn_bitsize;
 847         else if (isa->default_insn_bitsize == cd->default_insn_bitsize)
 848           ; /* this is ok */
 849         else
 850           cd->default_insn_bitsize = CGEN_SIZE_UNKNOWN;
 851
 852         /* Base insn sizes of all selected isas must be equal
 853            or we set the result to 0, meaning "unknown".  */
 854         if (cd->base_insn_bitsize == UNSET)
 855           cd->base_insn_bitsize = isa->base_insn_bitsize;
 856         else if (isa->base_insn_bitsize == cd->base_insn_bitsize)
 857           ; /* this is ok */
 858         else
 859           cd->base_insn_bitsize = CGEN_SIZE_UNKNOWN;
 860
 861         /* Set min,max insn sizes.  */
 862         if (isa->min_insn_bitsize < cd->min_insn_bitsize)
 863           cd->min_insn_bitsize = isa->min_insn_bitsize;
 864         if (isa->max_insn_bitsize > cd->max_insn_bitsize)
 865           cd->max_insn_bitsize = isa->max_insn_bitsize;
 866       }
 867
 868   /* Data derived from the mach spec.  */
 869   for (i = 0; i < MAX_MACHS; ++i)
 870     if (((1 << i) & machs) != 0)
 871       {
 872         const CGEN_MACH *mach = & openrisc_cgen_mach_table[i];
 873
 874         if (mach->insn_chunk_bitsize != 0)
 875         {
 876           if (cd->insn_chunk_bitsize != 0 && cd->insn_chunk_bitsize != mach->insn_chunk_bitsize)
 877             {
 878               fprintf (stderr, "openrisc_cgen_rebuild_tables: conflicting insn-chunk-bitsize values: `%d' vs. `%d'\n",
 879                        cd->insn_chunk_bitsize, mach->insn_chunk_bitsize);
 880               abort ();
 881             }
 882
 883           cd->insn_chunk_bitsize = mach->insn_chunk_bitsize;
 884         }
 885       }
 886
 887   /* Determine which hw elements are used by MACH.  */
 888   build_hw_table (cd);
 889
 890   /* Build the ifield table.  */
 891   build_ifield_table (cd);
 892
 893   /* Determine which operands are used by MACH/ISA.  */
 894   build_operand_table (cd);
 895
 896   /* Build the instruction table.  */
 897   build_insn_table (cd);
 898 }
 899
 900 /* Initialize a cpu table and return a descriptor.
 901    It's much like opening a file, and must be the first function called.
 902    The arguments are a set of (type/value) pairs, terminated with
 903    CGEN_CPU_OPEN_END.
 904
 905    Currently supported values:
 906    CGEN_CPU_OPEN_ISAS:    bitmap of values in enum isa_attr
 907    CGEN_CPU_OPEN_MACHS:   bitmap of values in enum mach_attr
 908    CGEN_CPU_OPEN_BFDMACH: specify 1 mach using bfd name
 909    CGEN_CPU_OPEN_ENDIAN:  specify endian choice
 910    CGEN_CPU_OPEN_END:     terminates arguments
 911
 912    ??? Simultaneous multiple isas might not make sense, but it's not (yet)
 913    precluded.
 914
 915    ??? We only support ISO C stdargs here, not K&R.
 916    Laziness, plus experiment to see if anything requires K&R - eventually
 917    K&R will no longer be supported - e.g. GDB is currently trying this.  */
 918
 919 CGEN_CPU_DESC
 920 openrisc_cgen_cpu_open (enum cgen_cpu_open_arg arg_type, ...)
 921 {
 922   CGEN_CPU_TABLE *cd = (CGEN_CPU_TABLE *) xmalloc (sizeof (CGEN_CPU_TABLE));
 923   static int init_p;
 924   unsigned int isas = 0;  /* 0 = "unspecified" */
 925   unsigned int machs = 0; /* 0 = "unspecified" */
 926   enum cgen_endian endian = CGEN_ENDIAN_UNKNOWN;
 927   va_list ap;
 928
 929   if (! init_p)
 930     {
 931       init_tables ();
 932       init_p = 1;
 933     }
 934
 935   memset (cd, 0, sizeof (*cd));
 936
 937   va_start (ap, arg_type);
 938   while (arg_type != CGEN_CPU_OPEN_END)
 939     {
 940       switch (arg_type)
 941         {
 942         case CGEN_CPU_OPEN_ISAS :
 943           isas = va_arg (ap, unsigned int);
 944           break;
 945         case CGEN_CPU_OPEN_MACHS :
 946           machs = va_arg (ap, unsigned int);
 947           break;
 948         case CGEN_CPU_OPEN_BFDMACH :
 949           {
 950             const char *name = va_arg (ap, const char *);
 951             const CGEN_MACH *mach =
 952               lookup_mach_via_bfd_name (openrisc_cgen_mach_table, name);
 953
 954             machs |= 1 << mach->num;
 955             break;
 956           }
 957         case CGEN_CPU_OPEN_ENDIAN :
 958           endian = va_arg (ap, enum cgen_endian);
 959           break;
 960         default :
 961           fprintf (stderr, "openrisc_cgen_cpu_open: unsupported argument `%d'\n",
 962                    arg_type);
 963           abort (); /* ??? return NULL? */
 964         }
 965       arg_type = va_arg (ap, enum cgen_cpu_open_arg);
 966     }
 967   va_end (ap);
 968
 969   /* mach unspecified means "all" */
 970   if (machs == 0)
 971     machs = (1 << MAX_MACHS) - 1;
 972   /* base mach is always selected */
 973   machs |= 1;
 974   /* isa unspecified means "all" */
 975   if (isas == 0)
 976     isas = (1 << MAX_ISAS) - 1;
 977   if (endian == CGEN_ENDIAN_UNKNOWN)
 978     {
 979       /* ??? If target has only one, could have a default.  */
 980       fprintf (stderr, "openrisc_cgen_cpu_open: no endianness specified\n");
 981       abort ();
 982     }
 983
 984   cd->isas = isas;
 985   cd->machs = machs;
 986   cd->endian = endian;
 987   /* FIXME: for the sparc case we can determine insn-endianness statically.
 988      The worry here is where both data and insn endian can be independently
 989      chosen, in which case this function will need another argument.
 990      Actually, will want to allow for more arguments in the future anyway.  */
 991   cd->insn_endian = endian;
 992
 993   /* Table (re)builder.  */
 994   cd->rebuild_tables = openrisc_cgen_rebuild_tables;
 995   openrisc_cgen_rebuild_tables (cd);
 996
 997   /* Default to not allowing signed overflow.  */
 998   cd->signed_overflow_ok_p = 0;
 999
1000   return (CGEN_CPU_DESC) cd;
1001 }
1002
1003 /* Cover fn to openrisc_cgen_cpu_open to handle the simple case of 1 isa, 1 mach.
1004    MACH_NAME is the bfd name of the mach.  */
1005
1006 CGEN_CPU_DESC
1007 openrisc_cgen_cpu_open_1 (mach_name, endian)
1008      const char *mach_name;
1009      enum cgen_endian endian;
1010 {
1011   return openrisc_cgen_cpu_open (CGEN_CPU_OPEN_BFDMACH, mach_name,
1012                                CGEN_CPU_OPEN_ENDIAN, endian,
1013                                CGEN_CPU_OPEN_END);
1014 }
1015
1016 /* Close a cpu table.
1017    ??? This can live in a machine independent file, but there's currently
1018    no place to put this file (there's no libcgen).  libopcodes is the wrong
1019    place as some simulator ports use this but they don't use libopcodes.  */
1020
1021 void
1022 openrisc_cgen_cpu_close (cd)
1023      CGEN_CPU_DESC cd;
1024 {
1025   unsigned int i;
1026   const CGEN_INSN *insns;
1027
1028   if (cd->macro_insn_table.init_entries)
1029     {
1030       insns = cd->macro_insn_table.init_entries;
1031       for (i = 0; i < cd->macro_insn_table.num_init_entries; ++i, ++insns)
1032         {
1033           if (CGEN_INSN_RX ((insns)))
1034             regfree (CGEN_INSN_RX (insns));
1035         }
1036     }
1037
1038   if (cd->insn_table.init_entries)
1039     {
1040       insns = cd->insn_table.init_entries;
1041       for (i = 0; i < cd->insn_table.num_init_entries; ++i, ++insns)
1042         {
1043           if (CGEN_INSN_RX (insns))
1044             regfree (CGEN_INSN_RX (insns));
1045         }
1046     }
1047
1048
1049
1050   if (cd->macro_insn_table.init_entries)
1051     free ((CGEN_INSN *) cd->macro_insn_table.init_entries);
1052
1053   if (cd->insn_table.init_entries)
1054     free ((CGEN_INSN *) cd->insn_table.init_entries);
1055
1056   if (cd->hw_table.entries)
1057     free ((CGEN_HW_ENTRY *) cd->hw_table.entries);
1058
1059   if (cd->operand_table.entries)
1060     free ((CGEN_HW_ENTRY *) cd->operand_table.entries);
1061
1062   free (cd);
1063 }
1064