opcodes/ip2k-opc.c

   1 /* Instruction opcode table for ip2k.
   2
   3 THIS FILE IS MACHINE GENERATED WITH CGEN.
   4
   5 Copyright 1996-2004 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 "ansidecl.h"
  27 #include "bfd.h"
  28 #include "symcat.h"
  29 #include "ip2k-desc.h"
  30 #include "ip2k-opc.h"
  31 #include "libiberty.h"
  32
  33 /* -- opc.c */
  34
  35 #include "safe-ctype.h"
  36
  37 /* A better hash function for instruction mnemonics. */
  38 unsigned int
  39 ip2k_asm_hash (insn)
  40      const char* insn;
  41 {
  42   unsigned int hash;
  43   const char* m = insn;
  44
  45   for (hash = 0; *m && !ISSPACE(*m); m++)
  46     hash = (hash * 23) ^ (0x1F & TOLOWER(*m));
  47
  48   /* printf ("%s %d\n", insn, (hash % CGEN_ASM_HASH_SIZE)); */
  49
  50   return hash % CGEN_ASM_HASH_SIZE;
  51 }
  52
  53
  54 /* Special check to ensure that instruction exists for given machine. */
  55 int
  56 ip2k_cgen_insn_supported (cd, insn)
  57      CGEN_CPU_DESC cd;
  58      const CGEN_INSN *insn;
  59 {
  60   int machs = CGEN_INSN_ATTR_VALUE (insn, CGEN_INSN_MACH);
  61
  62   /* No mach attribute?  Assume it's supported for all machs.  */
  63   if (machs == 0)
  64     return 1;
  65
  66   return ((machs & cd->machs) != 0);
  67 }
  68
  69 \f
  70 /* -- asm.c */
  71 /* The hash functions are recorded here to help keep assembler code out of
  72    the disassembler and vice versa.  */
  73
  74 static int asm_hash_insn_p PARAMS ((const CGEN_INSN *));
  75 static unsigned int asm_hash_insn PARAMS ((const char *));
  76 static int dis_hash_insn_p PARAMS ((const CGEN_INSN *));
  77 static unsigned int dis_hash_insn PARAMS ((const char *, CGEN_INSN_INT));
  78
  79 /* Instruction formats.  */
  80
  81 #if defined (__STDC__) || defined (ALMOST_STDC) || defined (HAVE_STRINGIZE)
  82 #define F(f) & ip2k_cgen_ifld_table[IP2K_##f]
  83 #else
  84 #define F(f) & ip2k_cgen_ifld_table[IP2K_/**/f]
  85 #endif
  86 static const CGEN_IFMT ifmt_empty ATTRIBUTE_UNUSED = {
  87   0, 0, 0x0, { { 0 } }
  88 };
  89
  90 static const CGEN_IFMT ifmt_jmp ATTRIBUTE_UNUSED = {
  91   16, 16, 0xe000, { { F (F_OP3) }, { F (F_ADDR16CJP) }, { 0 } }
  92 };
  93
  94 static const CGEN_IFMT ifmt_sb ATTRIBUTE_UNUSED = {
  95   16, 16, 0xf000, { { F (F_OP4) }, { F (F_BITNO) }, { F (F_REG) }, { 0 } }
  96 };
  97
  98 static const CGEN_IFMT ifmt_xorw_l ATTRIBUTE_UNUSED = {
  99   16, 16, 0xff00, { { F (F_OP4) }, { F (F_OP4MID) }, { F (F_IMM8) }, { 0 } }
 100 };
 101
 102 static const CGEN_IFMT ifmt_loadl_a ATTRIBUTE_UNUSED = {
 103   16, 16, 0xff00, { { F (F_OP4) }, { F (F_OP4MID) }, { F (F_IMM8) }, { 0 } }
 104 };
 105
 106 static const CGEN_IFMT ifmt_loadh_a ATTRIBUTE_UNUSED = {
 107   16, 16, 0xff00, { { F (F_OP4) }, { F (F_OP4MID) }, { F (F_IMM8) }, { 0 } }
 108 };
 109
 110 static const CGEN_IFMT ifmt_addcfr_w ATTRIBUTE_UNUSED = {
 111   16, 16, 0xfe00, { { F (F_OP6) }, { F (F_DIR) }, { F (F_REG) }, { 0 } }
 112 };
 113
 114 static const CGEN_IFMT ifmt_speed ATTRIBUTE_UNUSED = {
 115   16, 16, 0xff00, { { F (F_OP8) }, { F (F_IMM8) }, { 0 } }
 116 };
 117
 118 static const CGEN_IFMT ifmt_ireadi ATTRIBUTE_UNUSED = {
 119   16, 16, 0xffff, { { F (F_OP6) }, { F (F_OP6_10LOW) }, { 0 } }
 120 };
 121
 122 static const CGEN_IFMT ifmt_page ATTRIBUTE_UNUSED = {
 123   16, 16, 0xfff8, { { F (F_OP6) }, { F (F_OP6_7LOW) }, { F (F_PAGE3) }, { 0 } }
 124 };
 125
 126 static const CGEN_IFMT ifmt_reti ATTRIBUTE_UNUSED = {
 127   16, 16, 0xfff8, { { F (F_OP6) }, { F (F_OP6_7LOW) }, { F (F_RETI3) }, { 0 } }
 128 };
 129
 130 #undef F
 131
 132 #if defined (__STDC__) || defined (ALMOST_STDC) || defined (HAVE_STRINGIZE)
 133 #define A(a) (1 << CGEN_INSN_##a)
 134 #else
 135 #define A(a) (1 << CGEN_INSN_/**/a)
 136 #endif
 137 #if defined (__STDC__) || defined (ALMOST_STDC) || defined (HAVE_STRINGIZE)
 138 #define OPERAND(op) IP2K_OPERAND_##op
 139 #else
 140 #define OPERAND(op) IP2K_OPERAND_/**/op
 141 #endif
 142 #define MNEM CGEN_SYNTAX_MNEMONIC /* syntax value for mnemonic */
 143 #define OP(field) CGEN_SYNTAX_MAKE_FIELD (OPERAND (field))
 144
 145 /* The instruction table.  */
 146
 147 static const CGEN_OPCODE ip2k_cgen_insn_opcode_table[MAX_INSNS] =
 148 {
 149   /* Special null first entry.
 150      A `num' value of zero is thus invalid.
 151      Also, the special `invalid' insn resides here.  */
 152   { { 0, 0, 0, 0 }, {{0}}, 0, {0}},
 153 /* jmp $addr16cjp */
 154   {
 155     { 0, 0, 0, 0 },
 156     { { MNEM, ' ', OP (ADDR16CJP), 0 } },
 157     & ifmt_jmp, { 0xe000 }
 158   },
 159 /* call $addr16cjp */
 160   {
 161     { 0, 0, 0, 0 },
 162     { { MNEM, ' ', OP (ADDR16CJP), 0 } },
 163     & ifmt_jmp, { 0xc000 }
 164   },
 165 /* sb $fr,$bitno */
 166   {
 167     { 0, 0, 0, 0 },
 168     { { MNEM, ' ', OP (FR), ',', OP (BITNO), 0 } },
 169     & ifmt_sb, { 0xb000 }
 170   },
 171 /* snb $fr,$bitno */
 172   {
 173     { 0, 0, 0, 0 },
 174     { { MNEM, ' ', OP (FR), ',', OP (BITNO), 0 } },
 175     & ifmt_sb, { 0xa000 }
 176   },
 177 /* setb $fr,$bitno */
 178   {
 179     { 0, 0, 0, 0 },
 180     { { MNEM, ' ', OP (FR), ',', OP (BITNO), 0 } },
 181     & ifmt_sb, { 0x9000 }
 182   },
 183 /* clrb $fr,$bitno */
 184   {
 185     { 0, 0, 0, 0 },
 186     { { MNEM, ' ', OP (FR), ',', OP (BITNO), 0 } },
 187     & ifmt_sb, { 0x8000 }
 188   },
 189 /* xor W,#$lit8 */
 190   {
 191     { 0, 0, 0, 0 },
 192     { { MNEM, ' ', 'W', ',', '#', OP (LIT8), 0 } },
 193     & ifmt_xorw_l, { 0x7f00 }
 194   },
 195 /* and W,#$lit8 */
 196   {
 197     { 0, 0, 0, 0 },
 198     { { MNEM, ' ', 'W', ',', '#', OP (LIT8), 0 } },
 199     & ifmt_xorw_l, { 0x7e00 }
 200   },
 201 /* or W,#$lit8 */
 202   {
 203     { 0, 0, 0, 0 },
 204     { { MNEM, ' ', 'W', ',', '#', OP (LIT8), 0 } },
 205     & ifmt_xorw_l, { 0x7d00 }
 206   },
 207 /* add W,#$lit8 */
 208   {
 209     { 0, 0, 0, 0 },
 210     { { MNEM, ' ', 'W', ',', '#', OP (LIT8), 0 } },
 211     & ifmt_xorw_l, { 0x7b00 }
 212   },
 213 /* sub W,#$lit8 */
 214   {
 215     { 0, 0, 0, 0 },
 216     { { MNEM, ' ', 'W', ',', '#', OP (LIT8), 0 } },
 217     & ifmt_xorw_l, { 0x7a00 }
 218   },
 219 /* cmp W,#$lit8 */
 220   {
 221     { 0, 0, 0, 0 },
 222     { { MNEM, ' ', 'W', ',', '#', OP (LIT8), 0 } },
 223     & ifmt_xorw_l, { 0x7900 }
 224   },
 225 /* retw #$lit8 */
 226   {
 227     { 0, 0, 0, 0 },
 228     { { MNEM, ' ', '#', OP (LIT8), 0 } },
 229     & ifmt_xorw_l, { 0x7800 }
 230   },
 231 /* cse W,#$lit8 */
 232   {
 233     { 0, 0, 0, 0 },
 234     { { MNEM, ' ', 'W', ',', '#', OP (LIT8), 0 } },
 235     & ifmt_xorw_l, { 0x7700 }
 236   },
 237 /* csne W,#$lit8 */
 238   {
 239     { 0, 0, 0, 0 },
 240     { { MNEM, ' ', 'W', ',', '#', OP (LIT8), 0 } },
 241     & ifmt_xorw_l, { 0x7600 }
 242   },
 243 /* push #$lit8 */
 244   {
 245     { 0, 0, 0, 0 },
 246     { { MNEM, ' ', '#', OP (LIT8), 0 } },
 247     & ifmt_xorw_l, { 0x7400 }
 248   },
 249 /* muls W,#$lit8 */
 250   {
 251     { 0, 0, 0, 0 },
 252     { { MNEM, ' ', 'W', ',', '#', OP (LIT8), 0 } },
 253     & ifmt_xorw_l, { 0x7300 }
 254   },
 255 /* mulu W,#$lit8 */
 256   {
 257     { 0, 0, 0, 0 },
 258     { { MNEM, ' ', 'W', ',', '#', OP (LIT8), 0 } },
 259     & ifmt_xorw_l, { 0x7200 }
 260   },
 261 /* loadl #$lit8 */
 262   {
 263     { 0, 0, 0, 0 },
 264     { { MNEM, ' ', '#', OP (LIT8), 0 } },
 265     & ifmt_xorw_l, { 0x7100 }
 266   },
 267 /* loadh #$lit8 */
 268   {
 269     { 0, 0, 0, 0 },
 270     { { MNEM, ' ', '#', OP (LIT8), 0 } },
 271     & ifmt_xorw_l, { 0x7000 }
 272   },
 273 /* loadl $addr16l */
 274   {
 275     { 0, 0, 0, 0 },
 276     { { MNEM, ' ', OP (ADDR16L), 0 } },
 277     & ifmt_loadl_a, { 0x7100 }
 278   },
 279 /* loadh $addr16h */
 280   {
 281     { 0, 0, 0, 0 },
 282     { { MNEM, ' ', OP (ADDR16H), 0 } },
 283     & ifmt_loadh_a, { 0x7000 }
 284   },
 285 /* addc $fr,W */
 286   {
 287     { 0, 0, 0, 0 },
 288     { { MNEM, ' ', OP (FR), ',', 'W', 0 } },
 289     & ifmt_addcfr_w, { 0x5e00 }
 290   },
 291 /* addc W,$fr */
 292   {
 293     { 0, 0, 0, 0 },
 294     { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
 295     & ifmt_addcfr_w, { 0x5c00 }
 296   },
 297 /* incsnz $fr */
 298   {
 299     { 0, 0, 0, 0 },
 300     { { MNEM, ' ', OP (FR), 0 } },
 301     & ifmt_addcfr_w, { 0x5a00 }
 302   },
 303 /* incsnz W,$fr */
 304   {
 305     { 0, 0, 0, 0 },
 306     { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
 307     & ifmt_addcfr_w, { 0x5800 }
 308   },
 309 /* muls W,$fr */
 310   {
 311     { 0, 0, 0, 0 },
 312     { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
 313     & ifmt_addcfr_w, { 0x5400 }
 314   },
 315 /* mulu W,$fr */
 316   {
 317     { 0, 0, 0, 0 },
 318     { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
 319     & ifmt_addcfr_w, { 0x5000 }
 320   },
 321 /* decsnz $fr */
 322   {
 323     { 0, 0, 0, 0 },
 324     { { MNEM, ' ', OP (FR), 0 } },
 325     & ifmt_addcfr_w, { 0x4e00 }
 326   },
 327 /* decsnz W,$fr */
 328   {
 329     { 0, 0, 0, 0 },
 330     { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
 331     & ifmt_addcfr_w, { 0x4c00 }
 332   },
 333 /* subc W,$fr */
 334   {
 335     { 0, 0, 0, 0 },
 336     { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
 337     & ifmt_addcfr_w, { 0x4800 }
 338   },
 339 /* subc $fr,W */
 340   {
 341     { 0, 0, 0, 0 },
 342     { { MNEM, ' ', OP (FR), ',', 'W', 0 } },
 343     & ifmt_addcfr_w, { 0x4a00 }
 344   },
 345 /* pop $fr */
 346   {
 347     { 0, 0, 0, 0 },
 348     { { MNEM, ' ', OP (FR), 0 } },
 349     & ifmt_addcfr_w, { 0x4600 }
 350   },
 351 /* push $fr */
 352   {
 353     { 0, 0, 0, 0 },
 354     { { MNEM, ' ', OP (FR), 0 } },
 355     & ifmt_addcfr_w, { 0x4400 }
 356   },
 357 /* cse W,$fr */
 358   {
 359     { 0, 0, 0, 0 },
 360     { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
 361     & ifmt_addcfr_w, { 0x4200 }
 362   },
 363 /* csne W,$fr */
 364   {
 365     { 0, 0, 0, 0 },
 366     { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
 367     & ifmt_addcfr_w, { 0x4000 }
 368   },
 369 /* incsz $fr */
 370   {
 371     { 0, 0, 0, 0 },
 372     { { MNEM, ' ', OP (FR), 0 } },
 373     & ifmt_addcfr_w, { 0x3e00 }
 374   },
 375 /* incsz W,$fr */
 376   {
 377     { 0, 0, 0, 0 },
 378     { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
 379     & ifmt_addcfr_w, { 0x3c00 }
 380   },
 381 /* swap $fr */
 382   {
 383     { 0, 0, 0, 0 },
 384     { { MNEM, ' ', OP (FR), 0 } },
 385     & ifmt_addcfr_w, { 0x3a00 }
 386   },
 387 /* swap W,$fr */
 388   {
 389     { 0, 0, 0, 0 },
 390     { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
 391     & ifmt_addcfr_w, { 0x3800 }
 392   },
 393 /* rl $fr */
 394   {
 395     { 0, 0, 0, 0 },
 396     { { MNEM, ' ', OP (FR), 0 } },
 397     & ifmt_addcfr_w, { 0x3600 }
 398   },
 399 /* rl W,$fr */
 400   {
 401     { 0, 0, 0, 0 },
 402     { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
 403     & ifmt_addcfr_w, { 0x3400 }
 404   },
 405 /* rr $fr */
 406   {
 407     { 0, 0, 0, 0 },
 408     { { MNEM, ' ', OP (FR), 0 } },
 409     & ifmt_addcfr_w, { 0x3200 }
 410   },
 411 /* rr W,$fr */
 412   {
 413     { 0, 0, 0, 0 },
 414     { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
 415     & ifmt_addcfr_w, { 0x3000 }
 416   },
 417 /* decsz $fr */
 418   {
 419     { 0, 0, 0, 0 },
 420     { { MNEM, ' ', OP (FR), 0 } },
 421     & ifmt_addcfr_w, { 0x2e00 }
 422   },
 423 /* decsz W,$fr */
 424   {
 425     { 0, 0, 0, 0 },
 426     { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
 427     & ifmt_addcfr_w, { 0x2c00 }
 428   },
 429 /* inc $fr */
 430   {
 431     { 0, 0, 0, 0 },
 432     { { MNEM, ' ', OP (FR), 0 } },
 433     & ifmt_addcfr_w, { 0x2a00 }
 434   },
 435 /* inc W,$fr */
 436   {
 437     { 0, 0, 0, 0 },
 438     { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
 439     & ifmt_addcfr_w, { 0x2800 }
 440   },
 441 /* not $fr */
 442   {
 443     { 0, 0, 0, 0 },
 444     { { MNEM, ' ', OP (FR), 0 } },
 445     & ifmt_addcfr_w, { 0x2600 }
 446   },
 447 /* not W,$fr */
 448   {
 449     { 0, 0, 0, 0 },
 450     { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
 451     & ifmt_addcfr_w, { 0x2400 }
 452   },
 453 /* test $fr */
 454   {
 455     { 0, 0, 0, 0 },
 456     { { MNEM, ' ', OP (FR), 0 } },
 457     & ifmt_addcfr_w, { 0x2200 }
 458   },
 459 /* mov W,#$lit8 */
 460   {
 461     { 0, 0, 0, 0 },
 462     { { MNEM, ' ', 'W', ',', '#', OP (LIT8), 0 } },
 463     & ifmt_xorw_l, { 0x7c00 }
 464   },
 465 /* mov $fr,W */
 466   {
 467     { 0, 0, 0, 0 },
 468     { { MNEM, ' ', OP (FR), ',', 'W', 0 } },
 469     & ifmt_addcfr_w, { 0x200 }
 470   },
 471 /* mov W,$fr */
 472   {
 473     { 0, 0, 0, 0 },
 474     { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
 475     & ifmt_addcfr_w, { 0x2000 }
 476   },
 477 /* add $fr,W */
 478   {
 479     { 0, 0, 0, 0 },
 480     { { MNEM, ' ', OP (FR), ',', 'W', 0 } },
 481     & ifmt_addcfr_w, { 0x1e00 }
 482   },
 483 /* add W,$fr */
 484   {
 485     { 0, 0, 0, 0 },
 486     { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
 487     & ifmt_addcfr_w, { 0x1c00 }
 488   },
 489 /* xor $fr,W */
 490   {
 491     { 0, 0, 0, 0 },
 492     { { MNEM, ' ', OP (FR), ',', 'W', 0 } },
 493     & ifmt_addcfr_w, { 0x1a00 }
 494   },
 495 /* xor W,$fr */
 496   {
 497     { 0, 0, 0, 0 },
 498     { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
 499     & ifmt_addcfr_w, { 0x1800 }
 500   },
 501 /* and $fr,W */
 502   {
 503     { 0, 0, 0, 0 },
 504     { { MNEM, ' ', OP (FR), ',', 'W', 0 } },
 505     & ifmt_addcfr_w, { 0x1600 }
 506   },
 507 /* and W,$fr */
 508   {
 509     { 0, 0, 0, 0 },
 510     { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
 511     & ifmt_addcfr_w, { 0x1400 }
 512   },
 513 /* or $fr,W */
 514   {
 515     { 0, 0, 0, 0 },
 516     { { MNEM, ' ', OP (FR), ',', 'W', 0 } },
 517     & ifmt_addcfr_w, { 0x1200 }
 518   },
 519 /* or W,$fr */
 520   {
 521     { 0, 0, 0, 0 },
 522     { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
 523     & ifmt_addcfr_w, { 0x1000 }
 524   },
 525 /* dec $fr */
 526   {
 527     { 0, 0, 0, 0 },
 528     { { MNEM, ' ', OP (FR), 0 } },
 529     & ifmt_addcfr_w, { 0xe00 }
 530   },
 531 /* dec W,$fr */
 532   {
 533     { 0, 0, 0, 0 },
 534     { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
 535     & ifmt_addcfr_w, { 0xc00 }
 536   },
 537 /* sub $fr,W */
 538   {
 539     { 0, 0, 0, 0 },
 540     { { MNEM, ' ', OP (FR), ',', 'W', 0 } },
 541     & ifmt_addcfr_w, { 0xa00 }
 542   },
 543 /* sub W,$fr */
 544   {
 545     { 0, 0, 0, 0 },
 546     { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
 547     & ifmt_addcfr_w, { 0x800 }
 548   },
 549 /* clr $fr */
 550   {
 551     { 0, 0, 0, 0 },
 552     { { MNEM, ' ', OP (FR), 0 } },
 553     & ifmt_addcfr_w, { 0x600 }
 554   },
 555 /* cmp W,$fr */
 556   {
 557     { 0, 0, 0, 0 },
 558     { { MNEM, ' ', 'W', ',', OP (FR), 0 } },
 559     & ifmt_addcfr_w, { 0x400 }
 560   },
 561 /* speed #$lit8 */
 562   {
 563     { 0, 0, 0, 0 },
 564     { { MNEM, ' ', '#', OP (LIT8), 0 } },
 565     & ifmt_speed, { 0x100 }
 566   },
 567 /* ireadi */
 568   {
 569     { 0, 0, 0, 0 },
 570     { { MNEM, 0 } },
 571     & ifmt_ireadi, { 0x1d }
 572   },
 573 /* iwritei */
 574   {
 575     { 0, 0, 0, 0 },
 576     { { MNEM, 0 } },
 577     & ifmt_ireadi, { 0x1c }
 578   },
 579 /* fread */
 580   {
 581     { 0, 0, 0, 0 },
 582     { { MNEM, 0 } },
 583     & ifmt_ireadi, { 0x1b }
 584   },
 585 /* fwrite */
 586   {
 587     { 0, 0, 0, 0 },
 588     { { MNEM, 0 } },
 589     & ifmt_ireadi, { 0x1a }
 590   },
 591 /* iread */
 592   {
 593     { 0, 0, 0, 0 },
 594     { { MNEM, 0 } },
 595     & ifmt_ireadi, { 0x19 }
 596   },
 597 /* iwrite */
 598   {
 599     { 0, 0, 0, 0 },
 600     { { MNEM, 0 } },
 601     & ifmt_ireadi, { 0x18 }
 602   },
 603 /* page $addr16p */
 604   {
 605     { 0, 0, 0, 0 },
 606     { { MNEM, ' ', OP (ADDR16P), 0 } },
 607     & ifmt_page, { 0x10 }
 608   },
 609 /* system */
 610   {
 611     { 0, 0, 0, 0 },
 612     { { MNEM, 0 } },
 613     & ifmt_ireadi, { 0xff }
 614   },
 615 /* reti #$reti3 */
 616   {
 617     { 0, 0, 0, 0 },
 618     { { MNEM, ' ', '#', OP (RETI3), 0 } },
 619     & ifmt_reti, { 0x8 }
 620   },
 621 /* ret */
 622   {
 623     { 0, 0, 0, 0 },
 624     { { MNEM, 0 } },
 625     & ifmt_ireadi, { 0x7 }
 626   },
 627 /* int */
 628   {
 629     { 0, 0, 0, 0 },
 630     { { MNEM, 0 } },
 631     & ifmt_ireadi, { 0x6 }
 632   },
 633 /* breakx */
 634   {
 635     { 0, 0, 0, 0 },
 636     { { MNEM, 0 } },
 637     & ifmt_ireadi, { 0x5 }
 638   },
 639 /* cwdt */
 640   {
 641     { 0, 0, 0, 0 },
 642     { { MNEM, 0 } },
 643     & ifmt_ireadi, { 0x4 }
 644   },
 645 /* ferase */
 646   {
 647     { 0, 0, 0, 0 },
 648     { { MNEM, 0 } },
 649     & ifmt_ireadi, { 0x3 }
 650   },
 651 /* retnp */
 652   {
 653     { 0, 0, 0, 0 },
 654     { { MNEM, 0 } },
 655     & ifmt_ireadi, { 0x2 }
 656   },
 657 /* break */
 658   {
 659     { 0, 0, 0, 0 },
 660     { { MNEM, 0 } },
 661     & ifmt_ireadi, { 0x1 }
 662   },
 663 /* nop */
 664   {
 665     { 0, 0, 0, 0 },
 666     { { MNEM, 0 } },
 667     & ifmt_ireadi, { 0x0 }
 668   },
 669 };
 670
 671 #undef A
 672 #undef OPERAND
 673 #undef MNEM
 674 #undef OP
 675
 676 /* Formats for ALIAS macro-insns.  */
 677
 678 #if defined (__STDC__) || defined (ALMOST_STDC) || defined (HAVE_STRINGIZE)
 679 #define F(f) & ip2k_cgen_ifld_table[IP2K_##f]
 680 #else
 681 #define F(f) & ip2k_cgen_ifld_table[IP2K_/**/f]
 682 #endif
 683 static const CGEN_IFMT ifmt_sc ATTRIBUTE_UNUSED = {
 684   16, 16, 0xffff, { { F (F_OP4) }, { F (F_BITNO) }, { F (F_REG) }, { 0 } }
 685 };
 686
 687 static const CGEN_IFMT ifmt_snc ATTRIBUTE_UNUSED = {
 688   16, 16, 0xffff, { { F (F_OP4) }, { F (F_BITNO) }, { F (F_REG) }, { 0 } }
 689 };
 690
 691 static const CGEN_IFMT ifmt_sz ATTRIBUTE_UNUSED = {
 692   16, 16, 0xffff, { { F (F_OP4) }, { F (F_BITNO) }, { F (F_REG) }, { 0 } }
 693 };
 694
 695 static const CGEN_IFMT ifmt_snz ATTRIBUTE_UNUSED = {
 696   16, 16, 0xffff, { { F (F_OP4) }, { F (F_BITNO) }, { F (F_REG) }, { 0 } }
 697 };
 698
 699 static const CGEN_IFMT ifmt_skip ATTRIBUTE_UNUSED = {
 700   16, 16, 0xffff, { { F (F_OP4) }, { F (F_BITNO) }, { F (F_REG) }, { 0 } }
 701 };
 702
 703 static const CGEN_IFMT ifmt_skipb ATTRIBUTE_UNUSED = {
 704   16, 16, 0xffff, { { F (F_OP4) }, { F (F_BITNO) }, { F (F_REG) }, { 0 } }
 705 };
 706
 707 #undef F
 708
 709 /* Each non-simple macro entry points to an array of expansion possibilities.  */
 710
 711 #if defined (__STDC__) || defined (ALMOST_STDC) || defined (HAVE_STRINGIZE)
 712 #define A(a) (1 << CGEN_INSN_##a)
 713 #else
 714 #define A(a) (1 << CGEN_INSN_/**/a)
 715 #endif
 716 #if defined (__STDC__) || defined (ALMOST_STDC) || defined (HAVE_STRINGIZE)
 717 #define OPERAND(op) IP2K_OPERAND_##op
 718 #else
 719 #define OPERAND(op) IP2K_OPERAND_/**/op
 720 #endif
 721 #define MNEM CGEN_SYNTAX_MNEMONIC /* syntax value for mnemonic */
 722 #define OP(field) CGEN_SYNTAX_MAKE_FIELD (OPERAND (field))
 723
 724 /* The macro instruction table.  */
 725
 726 static const CGEN_IBASE ip2k_cgen_macro_insn_table[] =
 727 {
 728 /* sc */
 729   {
 730     -1, "sc", "sc", 16,
 731     { 0|A(ALIAS), { (1<<MACH_BASE) } }
 732   },
 733 /* snc */
 734   {
 735     -1, "snc", "snc", 16,
 736     { 0|A(ALIAS), { (1<<MACH_BASE) } }
 737   },
 738 /* sz */
 739   {
 740     -1, "sz", "sz", 16,
 741     { 0|A(ALIAS), { (1<<MACH_BASE) } }
 742   },
 743 /* snz */
 744   {
 745     -1, "snz", "snz", 16,
 746     { 0|A(ALIAS), { (1<<MACH_BASE) } }
 747   },
 748 /* skip */
 749   {
 750     -1, "skip", "skip", 16,
 751     { 0|A(SKIPA)|A(ALIAS), { (1<<MACH_BASE) } }
 752   },
 753 /* skip */
 754   {
 755     -1, "skipb", "skip", 16,
 756     { 0|A(SKIPA)|A(ALIAS), { (1<<MACH_BASE) } }
 757   },
 758 };
 759
 760 /* The macro instruction opcode table.  */
 761
 762 static const CGEN_OPCODE ip2k_cgen_macro_insn_opcode_table[] =
 763 {
 764 /* sc */
 765   {
 766     { 0, 0, 0, 0 },
 767     { { MNEM, 0 } },
 768     & ifmt_sc, { 0xb00b }
 769   },
 770 /* snc */
 771   {
 772     { 0, 0, 0, 0 },
 773     { { MNEM, 0 } },
 774     & ifmt_snc, { 0xa00b }
 775   },
 776 /* sz */
 777   {
 778     { 0, 0, 0, 0 },
 779     { { MNEM, 0 } },
 780     & ifmt_sz, { 0xb40b }
 781   },
 782 /* snz */
 783   {
 784     { 0, 0, 0, 0 },
 785     { { MNEM, 0 } },
 786     & ifmt_snz, { 0xa40b }
 787   },
 788 /* skip */
 789   {
 790     { 0, 0, 0, 0 },
 791     { { MNEM, 0 } },
 792     & ifmt_skip, { 0xa009 }
 793   },
 794 /* skip */
 795   {
 796     { 0, 0, 0, 0 },
 797     { { MNEM, 0 } },
 798     & ifmt_skipb, { 0xb009 }
 799   },
 800 };
 801
 802 #undef A
 803 #undef OPERAND
 804 #undef MNEM
 805 #undef OP
 806
 807 #ifndef CGEN_ASM_HASH_P
 808 #define CGEN_ASM_HASH_P(insn) 1
 809 #endif
 810
 811 #ifndef CGEN_DIS_HASH_P
 812 #define CGEN_DIS_HASH_P(insn) 1
 813 #endif
 814
 815 /* Return non-zero if INSN is to be added to the hash table.
 816    Targets are free to override CGEN_{ASM,DIS}_HASH_P in the .opc file.  */
 817
 818 static int
 819 asm_hash_insn_p (insn)
 820      const CGEN_INSN *insn ATTRIBUTE_UNUSED;
 821 {
 822   return CGEN_ASM_HASH_P (insn);
 823 }
 824
 825 static int
 826 dis_hash_insn_p (insn)
 827      const CGEN_INSN *insn;
 828 {
 829   /* If building the hash table and the NO-DIS attribute is present,
 830      ignore.  */
 831   if (CGEN_INSN_ATTR_VALUE (insn, CGEN_INSN_NO_DIS))
 832     return 0;
 833   return CGEN_DIS_HASH_P (insn);
 834 }
 835
 836 #ifndef CGEN_ASM_HASH
 837 #define CGEN_ASM_HASH_SIZE 127
 838 #ifdef CGEN_MNEMONIC_OPERANDS
 839 #define CGEN_ASM_HASH(mnem) (*(unsigned char *) (mnem) % CGEN_ASM_HASH_SIZE)
 840 #else
 841 #define CGEN_ASM_HASH(mnem) (*(unsigned char *) (mnem) % CGEN_ASM_HASH_SIZE) /*FIXME*/
 842 #endif
 843 #endif
 844
 845 /* It doesn't make much sense to provide a default here,
 846    but while this is under development we do.
 847    BUFFER is a pointer to the bytes of the insn, target order.
 848    VALUE is the first base_insn_bitsize bits as an int in host order.  */
 849
 850 #ifndef CGEN_DIS_HASH
 851 #define CGEN_DIS_HASH_SIZE 256
 852 #define CGEN_DIS_HASH(buf, value) (*(unsigned char *) (buf))
 853 #endif
 854
 855 /* The result is the hash value of the insn.
 856    Targets are free to override CGEN_{ASM,DIS}_HASH in the .opc file.  */
 857
 858 static unsigned int
 859 asm_hash_insn (mnem)
 860      const char * mnem;
 861 {
 862   return CGEN_ASM_HASH (mnem);
 863 }
 864
 865 /* BUF is a pointer to the bytes of the insn, target order.
 866    VALUE is the first base_insn_bitsize bits as an int in host order.  */
 867
 868 static unsigned int
 869 dis_hash_insn (buf, value)
 870      const char * buf ATTRIBUTE_UNUSED;
 871      CGEN_INSN_INT value ATTRIBUTE_UNUSED;
 872 {
 873   return CGEN_DIS_HASH (buf, value);
 874 }
 875
 876 static void set_fields_bitsize PARAMS ((CGEN_FIELDS *, int));
 877
 878 /* Set the recorded length of the insn in the CGEN_FIELDS struct.  */
 879
 880 static void
 881 set_fields_bitsize (fields, size)
 882      CGEN_FIELDS *fields;
 883      int size;
 884 {
 885   CGEN_FIELDS_BITSIZE (fields) = size;
 886 }
 887
 888 /* Function to call before using the operand instance table.
 889    This plugs the opcode entries and macro instructions into the cpu table.  */
 890
 891 void
 892 ip2k_cgen_init_opcode_table (cd)
 893      CGEN_CPU_DESC cd;
 894 {
 895   int i;
 896   int num_macros = (sizeof (ip2k_cgen_macro_insn_table) /
 897                     sizeof (ip2k_cgen_macro_insn_table[0]));
 898   const CGEN_IBASE *ib = & ip2k_cgen_macro_insn_table[0];
 899   const CGEN_OPCODE *oc = & ip2k_cgen_macro_insn_opcode_table[0];
 900   CGEN_INSN *insns = (CGEN_INSN *) xmalloc (num_macros * sizeof (CGEN_INSN));
 901   memset (insns, 0, num_macros * sizeof (CGEN_INSN));
 902   for (i = 0; i < num_macros; ++i)
 903     {
 904       insns[i].base = &ib[i];
 905       insns[i].opcode = &oc[i];
 906       ip2k_cgen_build_insn_regex (& insns[i]);
 907     }
 908   cd->macro_insn_table.init_entries = insns;
 909   cd->macro_insn_table.entry_size = sizeof (CGEN_IBASE);
 910   cd->macro_insn_table.num_init_entries = num_macros;
 911
 912   oc = & ip2k_cgen_insn_opcode_table[0];
 913   insns = (CGEN_INSN *) cd->insn_table.init_entries;
 914   for (i = 0; i < MAX_INSNS; ++i)
 915     {
 916       insns[i].opcode = &oc[i];
 917       ip2k_cgen_build_insn_regex (& insns[i]);
 918     }
 919
 920   cd->sizeof_fields = sizeof (CGEN_FIELDS);
 921   cd->set_fields_bitsize = set_fields_bitsize;
 922
 923   cd->asm_hash_p = asm_hash_insn_p;
 924   cd->asm_hash = asm_hash_insn;
 925   cd->asm_hash_size = CGEN_ASM_HASH_SIZE;
 926
 927   cd->dis_hash_p = dis_hash_insn_p;
 928   cd->dis_hash = dis_hash_insn;
 929   cd->dis_hash_size = CGEN_DIS_HASH_SIZE;
 930 }