sim/fr30/decode.c

   1 /* Simulator instruction decoder for fr30bf.
   2
   3 THIS FILE IS MACHINE GENERATED WITH CGEN.
   4
   5 Copyright (C) 1996, 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
   6
   7 This file is part of the GNU Simulators.
   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 #define WANT_CPU fr30bf
  26 #define WANT_CPU_FR30BF
  27
  28 #include "sim-main.h"
  29 #include "sim-assert.h"
  30
  31 /* The instruction descriptor array.
  32    This is computed at runtime.  Space for it is not malloc'd to save a
  33    teensy bit of cpu in the decoder.  Moving it to malloc space is trivial
  34    but won't be done until necessary (we don't currently support the runtime
  35    addition of instructions nor an SMP machine with different cpus).  */
  36 static IDESC fr30bf_insn_data[FR30BF_INSN_MAX];
  37
  38 /* Commas between elements are contained in the macros.
  39    Some of these are conditionally compiled out.  */
  40
  41 static const struct insn_sem fr30bf_insn_sem[] =
  42 {
  43   { VIRTUAL_INSN_X_INVALID, FR30BF_INSN_X_INVALID, FR30BF_SFMT_EMPTY },
  44   { VIRTUAL_INSN_X_AFTER, FR30BF_INSN_X_AFTER, FR30BF_SFMT_EMPTY },
  45   { VIRTUAL_INSN_X_BEFORE, FR30BF_INSN_X_BEFORE, FR30BF_SFMT_EMPTY },
  46   { VIRTUAL_INSN_X_CTI_CHAIN, FR30BF_INSN_X_CTI_CHAIN, FR30BF_SFMT_EMPTY },
  47   { VIRTUAL_INSN_X_CHAIN, FR30BF_INSN_X_CHAIN, FR30BF_SFMT_EMPTY },
  48   { VIRTUAL_INSN_X_BEGIN, FR30BF_INSN_X_BEGIN, FR30BF_SFMT_EMPTY },
  49   { FR30_INSN_ADD, FR30BF_INSN_ADD, FR30BF_SFMT_ADD },
  50   { FR30_INSN_ADDI, FR30BF_INSN_ADDI, FR30BF_SFMT_ADDI },
  51   { FR30_INSN_ADD2, FR30BF_INSN_ADD2, FR30BF_SFMT_ADD2 },
  52   { FR30_INSN_ADDC, FR30BF_INSN_ADDC, FR30BF_SFMT_ADDC },
  53   { FR30_INSN_ADDN, FR30BF_INSN_ADDN, FR30BF_SFMT_ADDN },
  54   { FR30_INSN_ADDNI, FR30BF_INSN_ADDNI, FR30BF_SFMT_ADDNI },
  55   { FR30_INSN_ADDN2, FR30BF_INSN_ADDN2, FR30BF_SFMT_ADDN2 },
  56   { FR30_INSN_SUB, FR30BF_INSN_SUB, FR30BF_SFMT_ADD },
  57   { FR30_INSN_SUBC, FR30BF_INSN_SUBC, FR30BF_SFMT_ADDC },
  58   { FR30_INSN_SUBN, FR30BF_INSN_SUBN, FR30BF_SFMT_ADDN },
  59   { FR30_INSN_CMP, FR30BF_INSN_CMP, FR30BF_SFMT_CMP },
  60   { FR30_INSN_CMPI, FR30BF_INSN_CMPI, FR30BF_SFMT_CMPI },
  61   { FR30_INSN_CMP2, FR30BF_INSN_CMP2, FR30BF_SFMT_CMP2 },
  62   { FR30_INSN_AND, FR30BF_INSN_AND, FR30BF_SFMT_AND },
  63   { FR30_INSN_OR, FR30BF_INSN_OR, FR30BF_SFMT_AND },
  64   { FR30_INSN_EOR, FR30BF_INSN_EOR, FR30BF_SFMT_AND },
  65   { FR30_INSN_ANDM, FR30BF_INSN_ANDM, FR30BF_SFMT_ANDM },
  66   { FR30_INSN_ANDH, FR30BF_INSN_ANDH, FR30BF_SFMT_ANDH },
  67   { FR30_INSN_ANDB, FR30BF_INSN_ANDB, FR30BF_SFMT_ANDB },
  68   { FR30_INSN_ORM, FR30BF_INSN_ORM, FR30BF_SFMT_ANDM },
  69   { FR30_INSN_ORH, FR30BF_INSN_ORH, FR30BF_SFMT_ANDH },
  70   { FR30_INSN_ORB, FR30BF_INSN_ORB, FR30BF_SFMT_ANDB },
  71   { FR30_INSN_EORM, FR30BF_INSN_EORM, FR30BF_SFMT_ANDM },
  72   { FR30_INSN_EORH, FR30BF_INSN_EORH, FR30BF_SFMT_ANDH },
  73   { FR30_INSN_EORB, FR30BF_INSN_EORB, FR30BF_SFMT_ANDB },
  74   { FR30_INSN_BANDL, FR30BF_INSN_BANDL, FR30BF_SFMT_BANDL },
  75   { FR30_INSN_BORL, FR30BF_INSN_BORL, FR30BF_SFMT_BANDL },
  76   { FR30_INSN_BEORL, FR30BF_INSN_BEORL, FR30BF_SFMT_BANDL },
  77   { FR30_INSN_BANDH, FR30BF_INSN_BANDH, FR30BF_SFMT_BANDL },
  78   { FR30_INSN_BORH, FR30BF_INSN_BORH, FR30BF_SFMT_BANDL },
  79   { FR30_INSN_BEORH, FR30BF_INSN_BEORH, FR30BF_SFMT_BANDL },
  80   { FR30_INSN_BTSTL, FR30BF_INSN_BTSTL, FR30BF_SFMT_BTSTL },
  81   { FR30_INSN_BTSTH, FR30BF_INSN_BTSTH, FR30BF_SFMT_BTSTL },
  82   { FR30_INSN_MUL, FR30BF_INSN_MUL, FR30BF_SFMT_MUL },
  83   { FR30_INSN_MULU, FR30BF_INSN_MULU, FR30BF_SFMT_MULU },
  84   { FR30_INSN_MULH, FR30BF_INSN_MULH, FR30BF_SFMT_MULH },
  85   { FR30_INSN_MULUH, FR30BF_INSN_MULUH, FR30BF_SFMT_MULH },
  86   { FR30_INSN_DIV0S, FR30BF_INSN_DIV0S, FR30BF_SFMT_DIV0S },
  87   { FR30_INSN_DIV0U, FR30BF_INSN_DIV0U, FR30BF_SFMT_DIV0U },
  88   { FR30_INSN_DIV1, FR30BF_INSN_DIV1, FR30BF_SFMT_DIV1 },
  89   { FR30_INSN_DIV2, FR30BF_INSN_DIV2, FR30BF_SFMT_DIV2 },
  90   { FR30_INSN_DIV3, FR30BF_INSN_DIV3, FR30BF_SFMT_DIV3 },
  91   { FR30_INSN_DIV4S, FR30BF_INSN_DIV4S, FR30BF_SFMT_DIV4S },
  92   { FR30_INSN_LSL, FR30BF_INSN_LSL, FR30BF_SFMT_LSL },
  93   { FR30_INSN_LSLI, FR30BF_INSN_LSLI, FR30BF_SFMT_LSLI },
  94   { FR30_INSN_LSL2, FR30BF_INSN_LSL2, FR30BF_SFMT_LSLI },
  95   { FR30_INSN_LSR, FR30BF_INSN_LSR, FR30BF_SFMT_LSL },
  96   { FR30_INSN_LSRI, FR30BF_INSN_LSRI, FR30BF_SFMT_LSLI },
  97   { FR30_INSN_LSR2, FR30BF_INSN_LSR2, FR30BF_SFMT_LSLI },
  98   { FR30_INSN_ASR, FR30BF_INSN_ASR, FR30BF_SFMT_LSL },
  99   { FR30_INSN_ASRI, FR30BF_INSN_ASRI, FR30BF_SFMT_LSLI },
 100   { FR30_INSN_ASR2, FR30BF_INSN_ASR2, FR30BF_SFMT_LSLI },
 101   { FR30_INSN_LDI8, FR30BF_INSN_LDI8, FR30BF_SFMT_LDI8 },
 102   { FR30_INSN_LDI20, FR30BF_INSN_LDI20, FR30BF_SFMT_LDI20 },
 103   { FR30_INSN_LDI32, FR30BF_INSN_LDI32, FR30BF_SFMT_LDI32 },
 104   { FR30_INSN_LD, FR30BF_INSN_LD, FR30BF_SFMT_LD },
 105   { FR30_INSN_LDUH, FR30BF_INSN_LDUH, FR30BF_SFMT_LD },
 106   { FR30_INSN_LDUB, FR30BF_INSN_LDUB, FR30BF_SFMT_LD },
 107   { FR30_INSN_LDR13, FR30BF_INSN_LDR13, FR30BF_SFMT_LDR13 },
 108   { FR30_INSN_LDR13UH, FR30BF_INSN_LDR13UH, FR30BF_SFMT_LDR13 },
 109   { FR30_INSN_LDR13UB, FR30BF_INSN_LDR13UB, FR30BF_SFMT_LDR13 },
 110   { FR30_INSN_LDR14, FR30BF_INSN_LDR14, FR30BF_SFMT_LDR14 },
 111   { FR30_INSN_LDR14UH, FR30BF_INSN_LDR14UH, FR30BF_SFMT_LDR14UH },
 112   { FR30_INSN_LDR14UB, FR30BF_INSN_LDR14UB, FR30BF_SFMT_LDR14UB },
 113   { FR30_INSN_LDR15, FR30BF_INSN_LDR15, FR30BF_SFMT_LDR15 },
 114   { FR30_INSN_LDR15GR, FR30BF_INSN_LDR15GR, FR30BF_SFMT_LDR15GR },
 115   { FR30_INSN_LDR15DR, FR30BF_INSN_LDR15DR, FR30BF_SFMT_LDR15DR },
 116   { FR30_INSN_LDR15PS, FR30BF_INSN_LDR15PS, FR30BF_SFMT_LDR15PS },
 117   { FR30_INSN_ST, FR30BF_INSN_ST, FR30BF_SFMT_ST },
 118   { FR30_INSN_STH, FR30BF_INSN_STH, FR30BF_SFMT_ST },
 119   { FR30_INSN_STB, FR30BF_INSN_STB, FR30BF_SFMT_ST },
 120   { FR30_INSN_STR13, FR30BF_INSN_STR13, FR30BF_SFMT_STR13 },
 121   { FR30_INSN_STR13H, FR30BF_INSN_STR13H, FR30BF_SFMT_STR13 },
 122   { FR30_INSN_STR13B, FR30BF_INSN_STR13B, FR30BF_SFMT_STR13 },
 123   { FR30_INSN_STR14, FR30BF_INSN_STR14, FR30BF_SFMT_STR14 },
 124   { FR30_INSN_STR14H, FR30BF_INSN_STR14H, FR30BF_SFMT_STR14H },
 125   { FR30_INSN_STR14B, FR30BF_INSN_STR14B, FR30BF_SFMT_STR14B },
 126   { FR30_INSN_STR15, FR30BF_INSN_STR15, FR30BF_SFMT_STR15 },
 127   { FR30_INSN_STR15GR, FR30BF_INSN_STR15GR, FR30BF_SFMT_STR15GR },
 128   { FR30_INSN_STR15DR, FR30BF_INSN_STR15DR, FR30BF_SFMT_STR15DR },
 129   { FR30_INSN_STR15PS, FR30BF_INSN_STR15PS, FR30BF_SFMT_STR15PS },
 130   { FR30_INSN_MOV, FR30BF_INSN_MOV, FR30BF_SFMT_MOV },
 131   { FR30_INSN_MOVDR, FR30BF_INSN_MOVDR, FR30BF_SFMT_MOVDR },
 132   { FR30_INSN_MOVPS, FR30BF_INSN_MOVPS, FR30BF_SFMT_MOVPS },
 133   { FR30_INSN_MOV2DR, FR30BF_INSN_MOV2DR, FR30BF_SFMT_MOV2DR },
 134   { FR30_INSN_MOV2PS, FR30BF_INSN_MOV2PS, FR30BF_SFMT_MOV2PS },
 135   { FR30_INSN_JMP, FR30BF_INSN_JMP, FR30BF_SFMT_JMP },
 136   { FR30_INSN_JMPD, FR30BF_INSN_JMPD, FR30BF_SFMT_JMP },
 137   { FR30_INSN_CALLR, FR30BF_INSN_CALLR, FR30BF_SFMT_CALLR },
 138   { FR30_INSN_CALLRD, FR30BF_INSN_CALLRD, FR30BF_SFMT_CALLR },
 139   { FR30_INSN_CALL, FR30BF_INSN_CALL, FR30BF_SFMT_CALL },
 140   { FR30_INSN_CALLD, FR30BF_INSN_CALLD, FR30BF_SFMT_CALL },
 141   { FR30_INSN_RET, FR30BF_INSN_RET, FR30BF_SFMT_RET },
 142   { FR30_INSN_RET_D, FR30BF_INSN_RET_D, FR30BF_SFMT_RET },
 143   { FR30_INSN_INT, FR30BF_INSN_INT, FR30BF_SFMT_INT },
 144   { FR30_INSN_INTE, FR30BF_INSN_INTE, FR30BF_SFMT_INTE },
 145   { FR30_INSN_RETI, FR30BF_INSN_RETI, FR30BF_SFMT_RETI },
 146   { FR30_INSN_BRAD, FR30BF_INSN_BRAD, FR30BF_SFMT_BRAD },
 147   { FR30_INSN_BRA, FR30BF_INSN_BRA, FR30BF_SFMT_BRAD },
 148   { FR30_INSN_BNOD, FR30BF_INSN_BNOD, FR30BF_SFMT_BNOD },
 149   { FR30_INSN_BNO, FR30BF_INSN_BNO, FR30BF_SFMT_BNOD },
 150   { FR30_INSN_BEQD, FR30BF_INSN_BEQD, FR30BF_SFMT_BEQD },
 151   { FR30_INSN_BEQ, FR30BF_INSN_BEQ, FR30BF_SFMT_BEQD },
 152   { FR30_INSN_BNED, FR30BF_INSN_BNED, FR30BF_SFMT_BEQD },
 153   { FR30_INSN_BNE, FR30BF_INSN_BNE, FR30BF_SFMT_BEQD },
 154   { FR30_INSN_BCD, FR30BF_INSN_BCD, FR30BF_SFMT_BCD },
 155   { FR30_INSN_BC, FR30BF_INSN_BC, FR30BF_SFMT_BCD },
 156   { FR30_INSN_BNCD, FR30BF_INSN_BNCD, FR30BF_SFMT_BCD },
 157   { FR30_INSN_BNC, FR30BF_INSN_BNC, FR30BF_SFMT_BCD },
 158   { FR30_INSN_BND, FR30BF_INSN_BND, FR30BF_SFMT_BND },
 159   { FR30_INSN_BN, FR30BF_INSN_BN, FR30BF_SFMT_BND },
 160   { FR30_INSN_BPD, FR30BF_INSN_BPD, FR30BF_SFMT_BND },
 161   { FR30_INSN_BP, FR30BF_INSN_BP, FR30BF_SFMT_BND },
 162   { FR30_INSN_BVD, FR30BF_INSN_BVD, FR30BF_SFMT_BVD },
 163   { FR30_INSN_BV, FR30BF_INSN_BV, FR30BF_SFMT_BVD },
 164   { FR30_INSN_BNVD, FR30BF_INSN_BNVD, FR30BF_SFMT_BVD },
 165   { FR30_INSN_BNV, FR30BF_INSN_BNV, FR30BF_SFMT_BVD },
 166   { FR30_INSN_BLTD, FR30BF_INSN_BLTD, FR30BF_SFMT_BLTD },
 167   { FR30_INSN_BLT, FR30BF_INSN_BLT, FR30BF_SFMT_BLTD },
 168   { FR30_INSN_BGED, FR30BF_INSN_BGED, FR30BF_SFMT_BLTD },
 169   { FR30_INSN_BGE, FR30BF_INSN_BGE, FR30BF_SFMT_BLTD },
 170   { FR30_INSN_BLED, FR30BF_INSN_BLED, FR30BF_SFMT_BLED },
 171   { FR30_INSN_BLE, FR30BF_INSN_BLE, FR30BF_SFMT_BLED },
 172   { FR30_INSN_BGTD, FR30BF_INSN_BGTD, FR30BF_SFMT_BLED },
 173   { FR30_INSN_BGT, FR30BF_INSN_BGT, FR30BF_SFMT_BLED },
 174   { FR30_INSN_BLSD, FR30BF_INSN_BLSD, FR30BF_SFMT_BLSD },
 175   { FR30_INSN_BLS, FR30BF_INSN_BLS, FR30BF_SFMT_BLSD },
 176   { FR30_INSN_BHID, FR30BF_INSN_BHID, FR30BF_SFMT_BLSD },
 177   { FR30_INSN_BHI, FR30BF_INSN_BHI, FR30BF_SFMT_BLSD },
 178   { FR30_INSN_DMOVR13, FR30BF_INSN_DMOVR13, FR30BF_SFMT_DMOVR13 },
 179   { FR30_INSN_DMOVR13H, FR30BF_INSN_DMOVR13H, FR30BF_SFMT_DMOVR13H },
 180   { FR30_INSN_DMOVR13B, FR30BF_INSN_DMOVR13B, FR30BF_SFMT_DMOVR13B },
 181   { FR30_INSN_DMOVR13PI, FR30BF_INSN_DMOVR13PI, FR30BF_SFMT_DMOVR13PI },
 182   { FR30_INSN_DMOVR13PIH, FR30BF_INSN_DMOVR13PIH, FR30BF_SFMT_DMOVR13PIH },
 183   { FR30_INSN_DMOVR13PIB, FR30BF_INSN_DMOVR13PIB, FR30BF_SFMT_DMOVR13PIB },
 184   { FR30_INSN_DMOVR15PI, FR30BF_INSN_DMOVR15PI, FR30BF_SFMT_DMOVR15PI },
 185   { FR30_INSN_DMOV2R13, FR30BF_INSN_DMOV2R13, FR30BF_SFMT_DMOV2R13 },
 186   { FR30_INSN_DMOV2R13H, FR30BF_INSN_DMOV2R13H, FR30BF_SFMT_DMOV2R13H },
 187   { FR30_INSN_DMOV2R13B, FR30BF_INSN_DMOV2R13B, FR30BF_SFMT_DMOV2R13B },
 188   { FR30_INSN_DMOV2R13PI, FR30BF_INSN_DMOV2R13PI, FR30BF_SFMT_DMOV2R13PI },
 189   { FR30_INSN_DMOV2R13PIH, FR30BF_INSN_DMOV2R13PIH, FR30BF_SFMT_DMOV2R13PIH },
 190   { FR30_INSN_DMOV2R13PIB, FR30BF_INSN_DMOV2R13PIB, FR30BF_SFMT_DMOV2R13PIB },
 191   { FR30_INSN_DMOV2R15PD, FR30BF_INSN_DMOV2R15PD, FR30BF_SFMT_DMOV2R15PD },
 192   { FR30_INSN_LDRES, FR30BF_INSN_LDRES, FR30BF_SFMT_LDRES },
 193   { FR30_INSN_STRES, FR30BF_INSN_STRES, FR30BF_SFMT_LDRES },
 194   { FR30_INSN_COPOP, FR30BF_INSN_COPOP, FR30BF_SFMT_COPOP },
 195   { FR30_INSN_COPLD, FR30BF_INSN_COPLD, FR30BF_SFMT_COPOP },
 196   { FR30_INSN_COPST, FR30BF_INSN_COPST, FR30BF_SFMT_COPOP },
 197   { FR30_INSN_COPSV, FR30BF_INSN_COPSV, FR30BF_SFMT_COPOP },
 198   { FR30_INSN_NOP, FR30BF_INSN_NOP, FR30BF_SFMT_BNOD },
 199   { FR30_INSN_ANDCCR, FR30BF_INSN_ANDCCR, FR30BF_SFMT_ANDCCR },
 200   { FR30_INSN_ORCCR, FR30BF_INSN_ORCCR, FR30BF_SFMT_ANDCCR },
 201   { FR30_INSN_STILM, FR30BF_INSN_STILM, FR30BF_SFMT_STILM },
 202   { FR30_INSN_ADDSP, FR30BF_INSN_ADDSP, FR30BF_SFMT_ADDSP },
 203   { FR30_INSN_EXTSB, FR30BF_INSN_EXTSB, FR30BF_SFMT_EXTSB },
 204   { FR30_INSN_EXTUB, FR30BF_INSN_EXTUB, FR30BF_SFMT_EXTUB },
 205   { FR30_INSN_EXTSH, FR30BF_INSN_EXTSH, FR30BF_SFMT_EXTSH },
 206   { FR30_INSN_EXTUH, FR30BF_INSN_EXTUH, FR30BF_SFMT_EXTUH },
 207   { FR30_INSN_LDM0, FR30BF_INSN_LDM0, FR30BF_SFMT_LDM0 },
 208   { FR30_INSN_LDM1, FR30BF_INSN_LDM1, FR30BF_SFMT_LDM1 },
 209   { FR30_INSN_STM0, FR30BF_INSN_STM0, FR30BF_SFMT_STM0 },
 210   { FR30_INSN_STM1, FR30BF_INSN_STM1, FR30BF_SFMT_STM1 },
 211   { FR30_INSN_ENTER, FR30BF_INSN_ENTER, FR30BF_SFMT_ENTER },
 212   { FR30_INSN_LEAVE, FR30BF_INSN_LEAVE, FR30BF_SFMT_LEAVE },
 213   { FR30_INSN_XCHB, FR30BF_INSN_XCHB, FR30BF_SFMT_XCHB },
 214 };
 215
 216 static const struct insn_sem fr30bf_insn_sem_invalid = {
 217   VIRTUAL_INSN_X_INVALID, FR30BF_INSN_X_INVALID, FR30BF_SFMT_EMPTY
 218 };
 219
 220 /* Initialize an IDESC from the compile-time computable parts.  */
 221
 222 static INLINE void
 223 init_idesc (SIM_CPU *cpu, IDESC *id, const struct insn_sem *t)
 224 {
 225   const CGEN_INSN *insn_table = CGEN_CPU_INSN_TABLE (CPU_CPU_DESC (cpu))->init_entries;
 226
 227   id->num = t->index;
 228   id->sfmt = t->sfmt;
 229   if ((int) t->type <= 0)
 230     id->idata = & cgen_virtual_insn_table[- (int) t->type];
 231   else
 232     id->idata = & insn_table[t->type];
 233   id->attrs = CGEN_INSN_ATTRS (id->idata);
 234   /* Oh my god, a magic number.  */
 235   id->length = CGEN_INSN_BITSIZE (id->idata) / 8;
 236
 237 #if WITH_PROFILE_MODEL_P
 238   id->timing = & MODEL_TIMING (CPU_MODEL (cpu)) [t->index];
 239   {
 240     SIM_DESC sd = CPU_STATE (cpu);
 241     SIM_ASSERT (t->index == id->timing->num);
 242   }
 243 #endif
 244
 245   /* Semantic pointers are initialized elsewhere.  */
 246 }
 247
 248 /* Initialize the instruction descriptor table.  */
 249
 250 void
 251 fr30bf_init_idesc_table (SIM_CPU *cpu)
 252 {
 253   IDESC *id,*tabend;
 254   const struct insn_sem *t,*tend;
 255   int tabsize = FR30BF_INSN_MAX;
 256   IDESC *table = fr30bf_insn_data;
 257
 258   memset (table, 0, tabsize * sizeof (IDESC));
 259
 260   /* First set all entries to the `invalid insn'.  */
 261   t = & fr30bf_insn_sem_invalid;
 262   for (id = table, tabend = table + tabsize; id < tabend; ++id)
 263     init_idesc (cpu, id, t);
 264
 265   /* Now fill in the values for the chosen cpu.  */
 266   for (t = fr30bf_insn_sem, tend = t + sizeof (fr30bf_insn_sem) / sizeof (*t);
 267        t != tend; ++t)
 268     {
 269       init_idesc (cpu, & table[t->index], t);
 270     }
 271
 272   /* Link the IDESC table into the cpu.  */
 273   CPU_IDESC (cpu) = table;
 274 }
 275
 276 /* Given an instruction, return a pointer to its IDESC entry.  */
 277
 278 const IDESC *
 279 fr30bf_decode (SIM_CPU *current_cpu, IADDR pc,
 280               CGEN_INSN_INT base_insn,
 281               ARGBUF *abuf)
 282 {
 283   /* Result of decoder.  */
 284   FR30BF_INSN_TYPE itype;
 285   CGEN_INSN_INT insn = base_insn;
 286
 287   {
 288
 289     {
 290       unsigned int val = (((insn >> 8) & (255 << 0)));
 291       switch (val)
 292       {
 293       case 0 : itype = FR30BF_INSN_LDR13; goto extract_sfmt_ldr13;      case 1 : itype = FR30BF_INSN_LDR13UH; goto extract_sfmt_ldr13;      case 2 : itype = FR30BF_INSN_LDR13UB; goto extract_sfmt_ldr13;      case 3 : itype = FR30BF_INSN_LDR15; goto extract_sfmt_ldr15;      case 4 : itype = FR30BF_INSN_LD; goto extract_sfmt_ld;      case 5 : itype = FR30BF_INSN_LDUH; goto extract_sfmt_ld;      case 6 : itype = FR30BF_INSN_LDUB; goto extract_sfmt_ld;      case 7 :
 294         {
 295           unsigned int val = (((insn >> 6) & (1 << 1)) | ((insn >> 4) & (1 << 0)));
 296           switch (val)
 297           {
 298           case 0 : itype = FR30BF_INSN_LDR15GR; goto extract_sfmt_ldr15gr;          case 1 : itype = FR30BF_INSN_MOV2PS; goto extract_sfmt_mov2ps;          case 2 : itype = FR30BF_INSN_LDR15DR; goto extract_sfmt_ldr15dr;          case 3 : itype = FR30BF_INSN_LDR15PS; goto extract_sfmt_ldr15ps;          default : itype = FR30BF_INSN_X_INVALID; goto extract_sfmt_empty;
 299           }
 300         }
 301       case 8 : itype = FR30BF_INSN_DMOV2R13; goto extract_sfmt_dmov2r13;      case 9 : itype = FR30BF_INSN_DMOV2R13H; goto extract_sfmt_dmov2r13h;      case 10 : itype = FR30BF_INSN_DMOV2R13B; goto extract_sfmt_dmov2r13b;      case 11 : itype = FR30BF_INSN_DMOV2R15PD; goto extract_sfmt_dmov2r15pd;      case 12 : itype = FR30BF_INSN_DMOV2R13PI; goto extract_sfmt_dmov2r13pi;      case 13 : itype = FR30BF_INSN_DMOV2R13PIH; goto extract_sfmt_dmov2r13pih;      case 14 : itype = FR30BF_INSN_DMOV2R13PIB; goto extract_sfmt_dmov2r13pib;      case 15 : itype = FR30BF_INSN_ENTER; goto extract_sfmt_enter;      case 16 : itype = FR30BF_INSN_STR13; goto extract_sfmt_str13;      case 17 : itype = FR30BF_INSN_STR13H; goto extract_sfmt_str13;      case 18 : itype = FR30BF_INSN_STR13B; goto extract_sfmt_str13;      case 19 : itype = FR30BF_INSN_STR15; goto extract_sfmt_str15;      case 20 : itype = FR30BF_INSN_ST; goto extract_sfmt_st;      case 21 : itype = FR30BF_INSN_STH; goto extract_sfmt_st;      case 22 : itype = FR30BF_INSN_STB; goto extract_sfmt_st;      case 23 :
 302         {
 303           unsigned int val = (((insn >> 6) & (1 << 1)) | ((insn >> 4) & (1 << 0)));
 304           switch (val)
 305           {
 306           case 0 : itype = FR30BF_INSN_STR15GR; goto extract_sfmt_str15gr;          case 1 : itype = FR30BF_INSN_MOVPS; goto extract_sfmt_movps;          case 2 : itype = FR30BF_INSN_STR15DR; goto extract_sfmt_str15dr;          case 3 : itype = FR30BF_INSN_STR15PS; goto extract_sfmt_str15ps;          default : itype = FR30BF_INSN_X_INVALID; goto extract_sfmt_empty;
 307           }
 308         }
 309       case 24 : itype = FR30BF_INSN_DMOVR13; goto extract_sfmt_dmovr13;      case 25 : itype = FR30BF_INSN_DMOVR13H; goto extract_sfmt_dmovr13h;      case 26 : itype = FR30BF_INSN_DMOVR13B; goto extract_sfmt_dmovr13b;      case 27 : itype = FR30BF_INSN_DMOVR15PI; goto extract_sfmt_dmovr15pi;      case 28 : itype = FR30BF_INSN_DMOVR13PI; goto extract_sfmt_dmovr13pi;      case 29 : itype = FR30BF_INSN_DMOVR13PIH; goto extract_sfmt_dmovr13pih;      case 30 : itype = FR30BF_INSN_DMOVR13PIB; goto extract_sfmt_dmovr13pib;      case 31 : itype = FR30BF_INSN_INT; goto extract_sfmt_int;      case 32 : /* fall through */
 310       case 33 : /* fall through */
 311       case 34 : /* fall through */
 312       case 35 : /* fall through */
 313       case 36 : /* fall through */
 314       case 37 : /* fall through */
 315       case 38 : /* fall through */
 316       case 39 : /* fall through */
 317       case 40 : /* fall through */
 318       case 41 : /* fall through */
 319       case 42 : /* fall through */
 320       case 43 : /* fall through */
 321       case 44 : /* fall through */
 322       case 45 : /* fall through */
 323       case 46 : /* fall through */
 324       case 47 : itype = FR30BF_INSN_LDR14; goto extract_sfmt_ldr14;      case 48 : /* fall through */
 325       case 49 : /* fall through */
 326       case 50 : /* fall through */
 327       case 51 : /* fall through */
 328       case 52 : /* fall through */
 329       case 53 : /* fall through */
 330       case 54 : /* fall through */
 331       case 55 : /* fall through */
 332       case 56 : /* fall through */
 333       case 57 : /* fall through */
 334       case 58 : /* fall through */
 335       case 59 : /* fall through */
 336       case 60 : /* fall through */
 337       case 61 : /* fall through */
 338       case 62 : /* fall through */
 339       case 63 : itype = FR30BF_INSN_STR14; goto extract_sfmt_str14;      case 64 : /* fall through */
 340       case 65 : /* fall through */
 341       case 66 : /* fall through */
 342       case 67 : /* fall through */
 343       case 68 : /* fall through */
 344       case 69 : /* fall through */
 345       case 70 : /* fall through */
 346       case 71 : /* fall through */
 347       case 72 : /* fall through */
 348       case 73 : /* fall through */
 349       case 74 : /* fall through */
 350       case 75 : /* fall through */
 351       case 76 : /* fall through */
 352       case 77 : /* fall through */
 353       case 78 : /* fall through */
 354       case 79 : itype = FR30BF_INSN_LDR14UH; goto extract_sfmt_ldr14uh;      case 80 : /* fall through */
 355       case 81 : /* fall through */
 356       case 82 : /* fall through */
 357       case 83 : /* fall through */
 358       case 84 : /* fall through */
 359       case 85 : /* fall through */
 360       case 86 : /* fall through */
 361       case 87 : /* fall through */
 362       case 88 : /* fall through */
 363       case 89 : /* fall through */
 364       case 90 : /* fall through */
 365       case 91 : /* fall through */
 366       case 92 : /* fall through */
 367       case 93 : /* fall through */
 368       case 94 : /* fall through */
 369       case 95 : itype = FR30BF_INSN_STR14H; goto extract_sfmt_str14h;      case 96 : /* fall through */
 370       case 97 : /* fall through */
 371       case 98 : /* fall through */
 372       case 99 : /* fall through */
 373       case 100 : /* fall through */
 374       case 101 : /* fall through */
 375       case 102 : /* fall through */
 376       case 103 : /* fall through */
 377       case 104 : /* fall through */
 378       case 105 : /* fall through */
 379       case 106 : /* fall through */
 380       case 107 : /* fall through */
 381       case 108 : /* fall through */
 382       case 109 : /* fall through */
 383       case 110 : /* fall through */
 384       case 111 : itype = FR30BF_INSN_LDR14UB; goto extract_sfmt_ldr14ub;      case 112 : /* fall through */
 385       case 113 : /* fall through */
 386       case 114 : /* fall through */
 387       case 115 : /* fall through */
 388       case 116 : /* fall through */
 389       case 117 : /* fall through */
 390       case 118 : /* fall through */
 391       case 119 : /* fall through */
 392       case 120 : /* fall through */
 393       case 121 : /* fall through */
 394       case 122 : /* fall through */
 395       case 123 : /* fall through */
 396       case 124 : /* fall through */
 397       case 125 : /* fall through */
 398       case 126 : /* fall through */
 399       case 127 : itype = FR30BF_INSN_STR14B; goto extract_sfmt_str14b;      case 128 : itype = FR30BF_INSN_BANDL; goto extract_sfmt_bandl;      case 129 : itype = FR30BF_INSN_BANDH; goto extract_sfmt_bandl;      case 130 : itype = FR30BF_INSN_AND; goto extract_sfmt_and;      case 131 : itype = FR30BF_INSN_ANDCCR; goto extract_sfmt_andccr;      case 132 : itype = FR30BF_INSN_ANDM; goto extract_sfmt_andm;      case 133 : itype = FR30BF_INSN_ANDH; goto extract_sfmt_andh;      case 134 : itype = FR30BF_INSN_ANDB; goto extract_sfmt_andb;      case 135 : itype = FR30BF_INSN_STILM; goto extract_sfmt_stilm;      case 136 : itype = FR30BF_INSN_BTSTL; goto extract_sfmt_btstl;      case 137 : itype = FR30BF_INSN_BTSTH; goto extract_sfmt_btstl;      case 138 : itype = FR30BF_INSN_XCHB; goto extract_sfmt_xchb;      case 139 : itype = FR30BF_INSN_MOV; goto extract_sfmt_mov;      case 140 : itype = FR30BF_INSN_LDM0; goto extract_sfmt_ldm0;      case 141 : itype = FR30BF_INSN_LDM1; goto extract_sfmt_ldm1;      case 142 : itype = FR30BF_INSN_STM0; goto extract_sfmt_stm0;      case 143 : itype = FR30BF_INSN_STM1; goto extract_sfmt_stm1;      case 144 : itype = FR30BF_INSN_BORL; goto extract_sfmt_bandl;      case 145 : itype = FR30BF_INSN_BORH; goto extract_sfmt_bandl;      case 146 : itype = FR30BF_INSN_OR; goto extract_sfmt_and;      case 147 : itype = FR30BF_INSN_ORCCR; goto extract_sfmt_andccr;      case 148 : itype = FR30BF_INSN_ORM; goto extract_sfmt_andm;      case 149 : itype = FR30BF_INSN_ORH; goto extract_sfmt_andh;      case 150 : itype = FR30BF_INSN_ORB; goto extract_sfmt_andb;      case 151 :
 400         {
 401           unsigned int val = (((insn >> 4) & (15 << 0)));
 402           switch (val)
 403           {
 404           case 0 : itype = FR30BF_INSN_JMP; goto extract_sfmt_jmp;          case 1 : itype = FR30BF_INSN_CALLR; goto extract_sfmt_callr;          case 2 : itype = FR30BF_INSN_RET; goto extract_sfmt_ret;          case 3 : itype = FR30BF_INSN_RETI; goto extract_sfmt_reti;          case 4 : itype = FR30BF_INSN_DIV0S; goto extract_sfmt_div0s;          case 5 : itype = FR30BF_INSN_DIV0U; goto extract_sfmt_div0u;          case 6 : itype = FR30BF_INSN_DIV1; goto extract_sfmt_div1;          case 7 : itype = FR30BF_INSN_DIV2; goto extract_sfmt_div2;          case 8 : itype = FR30BF_INSN_EXTSB; goto extract_sfmt_extsb;          case 9 : itype = FR30BF_INSN_EXTUB; goto extract_sfmt_extub;          case 10 : itype = FR30BF_INSN_EXTSH; goto extract_sfmt_extsh;          case 11 : itype = FR30BF_INSN_EXTUH; goto extract_sfmt_extuh;          default : itype = FR30BF_INSN_X_INVALID; goto extract_sfmt_empty;
 405           }
 406         }
 407       case 152 : itype = FR30BF_INSN_BEORL; goto extract_sfmt_bandl;      case 153 : itype = FR30BF_INSN_BEORH; goto extract_sfmt_bandl;      case 154 : itype = FR30BF_INSN_EOR; goto extract_sfmt_and;      case 155 : itype = FR30BF_INSN_LDI20; goto extract_sfmt_ldi20;      case 156 : itype = FR30BF_INSN_EORM; goto extract_sfmt_andm;      case 157 : itype = FR30BF_INSN_EORH; goto extract_sfmt_andh;      case 158 : itype = FR30BF_INSN_EORB; goto extract_sfmt_andb;      case 159 :
 408         {
 409           unsigned int val = (((insn >> 4) & (15 << 0)));
 410           switch (val)
 411           {
 412           case 0 : itype = FR30BF_INSN_JMPD; goto extract_sfmt_jmp;          case 1 : itype = FR30BF_INSN_CALLRD; goto extract_sfmt_callr;          case 2 : itype = FR30BF_INSN_RET_D; goto extract_sfmt_ret;          case 3 : itype = FR30BF_INSN_INTE; goto extract_sfmt_inte;          case 6 : itype = FR30BF_INSN_DIV3; goto extract_sfmt_div3;          case 7 : itype = FR30BF_INSN_DIV4S; goto extract_sfmt_div4s;          case 8 : itype = FR30BF_INSN_LDI32; goto extract_sfmt_ldi32;          case 9 : itype = FR30BF_INSN_LEAVE; goto extract_sfmt_leave;          case 10 : itype = FR30BF_INSN_NOP; goto extract_sfmt_bnod;          case 12 : itype = FR30BF_INSN_COPOP; goto extract_sfmt_copop;          case 13 : itype = FR30BF_INSN_COPLD; goto extract_sfmt_copop;          case 14 : itype = FR30BF_INSN_COPST; goto extract_sfmt_copop;          case 15 : itype = FR30BF_INSN_COPSV; goto extract_sfmt_copop;          default : itype = FR30BF_INSN_X_INVALID; goto extract_sfmt_empty;
 413           }
 414         }
 415       case 160 : itype = FR30BF_INSN_ADDNI; goto extract_sfmt_addni;      case 161 : itype = FR30BF_INSN_ADDN2; goto extract_sfmt_addn2;      case 162 : itype = FR30BF_INSN_ADDN; goto extract_sfmt_addn;      case 163 : itype = FR30BF_INSN_ADDSP; goto extract_sfmt_addsp;      case 164 : itype = FR30BF_INSN_ADDI; goto extract_sfmt_addi;      case 165 : itype = FR30BF_INSN_ADD2; goto extract_sfmt_add2;      case 166 : itype = FR30BF_INSN_ADD; goto extract_sfmt_add;      case 167 : itype = FR30BF_INSN_ADDC; goto extract_sfmt_addc;      case 168 : itype = FR30BF_INSN_CMPI; goto extract_sfmt_cmpi;      case 169 : itype = FR30BF_INSN_CMP2; goto extract_sfmt_cmp2;      case 170 : itype = FR30BF_INSN_CMP; goto extract_sfmt_cmp;      case 171 : itype = FR30BF_INSN_MULU; goto extract_sfmt_mulu;      case 172 : itype = FR30BF_INSN_SUB; goto extract_sfmt_add;      case 173 : itype = FR30BF_INSN_SUBC; goto extract_sfmt_addc;      case 174 : itype = FR30BF_INSN_SUBN; goto extract_sfmt_addn;      case 175 : itype = FR30BF_INSN_MUL; goto extract_sfmt_mul;      case 176 : itype = FR30BF_INSN_LSRI; goto extract_sfmt_lsli;      case 177 : itype = FR30BF_INSN_LSR2; goto extract_sfmt_lsli;      case 178 : itype = FR30BF_INSN_LSR; goto extract_sfmt_lsl;      case 179 : itype = FR30BF_INSN_MOV2DR; goto extract_sfmt_mov2dr;      case 180 : itype = FR30BF_INSN_LSLI; goto extract_sfmt_lsli;      case 181 : itype = FR30BF_INSN_LSL2; goto extract_sfmt_lsli;      case 182 : itype = FR30BF_INSN_LSL; goto extract_sfmt_lsl;      case 183 : itype = FR30BF_INSN_MOVDR; goto extract_sfmt_movdr;      case 184 : itype = FR30BF_INSN_ASRI; goto extract_sfmt_lsli;      case 185 : itype = FR30BF_INSN_ASR2; goto extract_sfmt_lsli;      case 186 : itype = FR30BF_INSN_ASR; goto extract_sfmt_lsl;      case 187 : itype = FR30BF_INSN_MULUH; goto extract_sfmt_mulh;      case 188 : itype = FR30BF_INSN_LDRES; goto extract_sfmt_ldres;      case 189 : itype = FR30BF_INSN_STRES; goto extract_sfmt_ldres;      case 191 : itype = FR30BF_INSN_MULH; goto extract_sfmt_mulh;      case 192 : /* fall through */
 416       case 193 : /* fall through */
 417       case 194 : /* fall through */
 418       case 195 : /* fall through */
 419       case 196 : /* fall through */
 420       case 197 : /* fall through */
 421       case 198 : /* fall through */
 422       case 199 : /* fall through */
 423       case 200 : /* fall through */
 424       case 201 : /* fall through */
 425       case 202 : /* fall through */
 426       case 203 : /* fall through */
 427       case 204 : /* fall through */
 428       case 205 : /* fall through */
 429       case 206 : /* fall through */
 430       case 207 : itype = FR30BF_INSN_LDI8; goto extract_sfmt_ldi8;      case 208 : /* fall through */
 431       case 209 : /* fall through */
 432       case 210 : /* fall through */
 433       case 211 : /* fall through */
 434       case 212 : /* fall through */
 435       case 213 : /* fall through */
 436       case 214 : /* fall through */
 437       case 215 : itype = FR30BF_INSN_CALL; goto extract_sfmt_call;      case 216 : /* fall through */
 438       case 217 : /* fall through */
 439       case 218 : /* fall through */
 440       case 219 : /* fall through */
 441       case 220 : /* fall through */
 442       case 221 : /* fall through */
 443       case 222 : /* fall through */
 444       case 223 : itype = FR30BF_INSN_CALLD; goto extract_sfmt_call;      case 224 : itype = FR30BF_INSN_BRA; goto extract_sfmt_brad;      case 225 : itype = FR30BF_INSN_BNO; goto extract_sfmt_bnod;      case 226 : itype = FR30BF_INSN_BEQ; goto extract_sfmt_beqd;      case 227 : itype = FR30BF_INSN_BNE; goto extract_sfmt_beqd;      case 228 : itype = FR30BF_INSN_BC; goto extract_sfmt_bcd;      case 229 : itype = FR30BF_INSN_BNC; goto extract_sfmt_bcd;      case 230 : itype = FR30BF_INSN_BN; goto extract_sfmt_bnd;      case 231 : itype = FR30BF_INSN_BP; goto extract_sfmt_bnd;      case 232 : itype = FR30BF_INSN_BV; goto extract_sfmt_bvd;      case 233 : itype = FR30BF_INSN_BNV; goto extract_sfmt_bvd;      case 234 : itype = FR30BF_INSN_BLT; goto extract_sfmt_bltd;      case 235 : itype = FR30BF_INSN_BGE; goto extract_sfmt_bltd;      case 236 : itype = FR30BF_INSN_BLE; goto extract_sfmt_bled;      case 237 : itype = FR30BF_INSN_BGT; goto extract_sfmt_bled;      case 238 : itype = FR30BF_INSN_BLS; goto extract_sfmt_blsd;      case 239 : itype = FR30BF_INSN_BHI; goto extract_sfmt_blsd;      case 240 : itype = FR30BF_INSN_BRAD; goto extract_sfmt_brad;      case 241 : itype = FR30BF_INSN_BNOD; goto extract_sfmt_bnod;      case 242 : itype = FR30BF_INSN_BEQD; goto extract_sfmt_beqd;      case 243 : itype = FR30BF_INSN_BNED; goto extract_sfmt_beqd;      case 244 : itype = FR30BF_INSN_BCD; goto extract_sfmt_bcd;      case 245 : itype = FR30BF_INSN_BNCD; goto extract_sfmt_bcd;      case 246 : itype = FR30BF_INSN_BND; goto extract_sfmt_bnd;      case 247 : itype = FR30BF_INSN_BPD; goto extract_sfmt_bnd;      case 248 : itype = FR30BF_INSN_BVD; goto extract_sfmt_bvd;      case 249 : itype = FR30BF_INSN_BNVD; goto extract_sfmt_bvd;      case 250 : itype = FR30BF_INSN_BLTD; goto extract_sfmt_bltd;      case 251 : itype = FR30BF_INSN_BGED; goto extract_sfmt_bltd;      case 252 : itype = FR30BF_INSN_BLED; goto extract_sfmt_bled;      case 253 : itype = FR30BF_INSN_BGTD; goto extract_sfmt_bled;      case 254 : itype = FR30BF_INSN_BLSD; goto extract_sfmt_blsd;      case 255 : itype = FR30BF_INSN_BHID; goto extract_sfmt_blsd;      default : itype = FR30BF_INSN_X_INVALID; goto extract_sfmt_empty;
 445       }
 446     }
 447   }
 448
 449   /* The instruction has been decoded, now extract the fields.  */
 450
 451  extract_sfmt_empty:
 452   {
 453     const IDESC *idesc = &fr30bf_insn_data[itype];
 454 #define FLD(f) abuf->fields.fmt_empty.f
 455
 456
 457   /* Record the fields for the semantic handler.  */
 458   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_empty", (char *) 0));
 459
 460 #undef FLD
 461     return idesc;
 462   }
 463
 464  extract_sfmt_add:
 465   {
 466     const IDESC *idesc = &fr30bf_insn_data[itype];
 467 #define FLD(f) abuf->fields.sfmt_add.f
 468     UINT f_Rj;
 469     UINT f_Ri;
 470
 471     f_Rj = EXTRACT_MSB0_UINT (insn, 16, 8, 4);
 472     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
 473
 474   /* Record the fields for the semantic handler.  */
 475   FLD (f_Ri) = f_Ri;
 476   FLD (f_Rj) = f_Rj;
 477   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
 478   FLD (i_Rj) = & CPU (h_gr)[f_Rj];
 479   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_add", "f_Ri 0x%x", 'x', f_Ri, "f_Rj 0x%x", 'x', f_Rj, "Ri 0x%x", 'x', f_Ri, "Rj 0x%x", 'x', f_Rj, (char *) 0));
 480
 481 #if WITH_PROFILE_MODEL_P
 482   /* Record the fields for profiling.  */
 483   if (PROFILE_MODEL_P (current_cpu))
 484     {
 485       FLD (in_Ri) = f_Ri;
 486       FLD (in_Rj) = f_Rj;
 487       FLD (out_Ri) = f_Ri;
 488     }
 489 #endif
 490 #undef FLD
 491     return idesc;
 492   }
 493
 494  extract_sfmt_addi:
 495   {
 496     const IDESC *idesc = &fr30bf_insn_data[itype];
 497 #define FLD(f) abuf->fields.sfmt_addi.f
 498     UINT f_u4;
 499     UINT f_Ri;
 500
 501     f_u4 = EXTRACT_MSB0_UINT (insn, 16, 8, 4);
 502     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
 503
 504   /* Record the fields for the semantic handler.  */
 505   FLD (f_Ri) = f_Ri;
 506   FLD (f_u4) = f_u4;
 507   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
 508   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_addi", "f_Ri 0x%x", 'x', f_Ri, "f_u4 0x%x", 'x', f_u4, "Ri 0x%x", 'x', f_Ri, (char *) 0));
 509
 510 #if WITH_PROFILE_MODEL_P
 511   /* Record the fields for profiling.  */
 512   if (PROFILE_MODEL_P (current_cpu))
 513     {
 514       FLD (in_Ri) = f_Ri;
 515       FLD (out_Ri) = f_Ri;
 516     }
 517 #endif
 518 #undef FLD
 519     return idesc;
 520   }
 521
 522  extract_sfmt_add2:
 523   {
 524     const IDESC *idesc = &fr30bf_insn_data[itype];
 525 #define FLD(f) abuf->fields.sfmt_add2.f
 526     SI f_m4;
 527     UINT f_Ri;
 528
 529     f_m4 = ((EXTRACT_MSB0_UINT (insn, 16, 8, 4)) | (((-1) << (4))));
 530     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
 531
 532   /* Record the fields for the semantic handler.  */
 533   FLD (f_Ri) = f_Ri;
 534   FLD (f_m4) = f_m4;
 535   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
 536   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_add2", "f_Ri 0x%x", 'x', f_Ri, "f_m4 0x%x", 'x', f_m4, "Ri 0x%x", 'x', f_Ri, (char *) 0));
 537
 538 #if WITH_PROFILE_MODEL_P
 539   /* Record the fields for profiling.  */
 540   if (PROFILE_MODEL_P (current_cpu))
 541     {
 542       FLD (in_Ri) = f_Ri;
 543       FLD (out_Ri) = f_Ri;
 544     }
 545 #endif
 546 #undef FLD
 547     return idesc;
 548   }
 549
 550  extract_sfmt_addc:
 551   {
 552     const IDESC *idesc = &fr30bf_insn_data[itype];
 553 #define FLD(f) abuf->fields.sfmt_add.f
 554     UINT f_Rj;
 555     UINT f_Ri;
 556
 557     f_Rj = EXTRACT_MSB0_UINT (insn, 16, 8, 4);
 558     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
 559
 560   /* Record the fields for the semantic handler.  */
 561   FLD (f_Ri) = f_Ri;
 562   FLD (f_Rj) = f_Rj;
 563   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
 564   FLD (i_Rj) = & CPU (h_gr)[f_Rj];
 565   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_addc", "f_Ri 0x%x", 'x', f_Ri, "f_Rj 0x%x", 'x', f_Rj, "Ri 0x%x", 'x', f_Ri, "Rj 0x%x", 'x', f_Rj, (char *) 0));
 566
 567 #if WITH_PROFILE_MODEL_P
 568   /* Record the fields for profiling.  */
 569   if (PROFILE_MODEL_P (current_cpu))
 570     {
 571       FLD (in_Ri) = f_Ri;
 572       FLD (in_Rj) = f_Rj;
 573       FLD (out_Ri) = f_Ri;
 574     }
 575 #endif
 576 #undef FLD
 577     return idesc;
 578   }
 579
 580  extract_sfmt_addn:
 581   {
 582     const IDESC *idesc = &fr30bf_insn_data[itype];
 583 #define FLD(f) abuf->fields.sfmt_add.f
 584     UINT f_Rj;
 585     UINT f_Ri;
 586
 587     f_Rj = EXTRACT_MSB0_UINT (insn, 16, 8, 4);
 588     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
 589
 590   /* Record the fields for the semantic handler.  */
 591   FLD (f_Ri) = f_Ri;
 592   FLD (f_Rj) = f_Rj;
 593   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
 594   FLD (i_Rj) = & CPU (h_gr)[f_Rj];
 595   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_addn", "f_Ri 0x%x", 'x', f_Ri, "f_Rj 0x%x", 'x', f_Rj, "Ri 0x%x", 'x', f_Ri, "Rj 0x%x", 'x', f_Rj, (char *) 0));
 596
 597 #if WITH_PROFILE_MODEL_P
 598   /* Record the fields for profiling.  */
 599   if (PROFILE_MODEL_P (current_cpu))
 600     {
 601       FLD (in_Ri) = f_Ri;
 602       FLD (in_Rj) = f_Rj;
 603       FLD (out_Ri) = f_Ri;
 604     }
 605 #endif
 606 #undef FLD
 607     return idesc;
 608   }
 609
 610  extract_sfmt_addni:
 611   {
 612     const IDESC *idesc = &fr30bf_insn_data[itype];
 613 #define FLD(f) abuf->fields.sfmt_addi.f
 614     UINT f_u4;
 615     UINT f_Ri;
 616
 617     f_u4 = EXTRACT_MSB0_UINT (insn, 16, 8, 4);
 618     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
 619
 620   /* Record the fields for the semantic handler.  */
 621   FLD (f_Ri) = f_Ri;
 622   FLD (f_u4) = f_u4;
 623   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
 624   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_addni", "f_Ri 0x%x", 'x', f_Ri, "f_u4 0x%x", 'x', f_u4, "Ri 0x%x", 'x', f_Ri, (char *) 0));
 625
 626 #if WITH_PROFILE_MODEL_P
 627   /* Record the fields for profiling.  */
 628   if (PROFILE_MODEL_P (current_cpu))
 629     {
 630       FLD (in_Ri) = f_Ri;
 631       FLD (out_Ri) = f_Ri;
 632     }
 633 #endif
 634 #undef FLD
 635     return idesc;
 636   }
 637
 638  extract_sfmt_addn2:
 639   {
 640     const IDESC *idesc = &fr30bf_insn_data[itype];
 641 #define FLD(f) abuf->fields.sfmt_add2.f
 642     SI f_m4;
 643     UINT f_Ri;
 644
 645     f_m4 = ((EXTRACT_MSB0_UINT (insn, 16, 8, 4)) | (((-1) << (4))));
 646     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
 647
 648   /* Record the fields for the semantic handler.  */
 649   FLD (f_Ri) = f_Ri;
 650   FLD (f_m4) = f_m4;
 651   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
 652   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_addn2", "f_Ri 0x%x", 'x', f_Ri, "f_m4 0x%x", 'x', f_m4, "Ri 0x%x", 'x', f_Ri, (char *) 0));
 653
 654 #if WITH_PROFILE_MODEL_P
 655   /* Record the fields for profiling.  */
 656   if (PROFILE_MODEL_P (current_cpu))
 657     {
 658       FLD (in_Ri) = f_Ri;
 659       FLD (out_Ri) = f_Ri;
 660     }
 661 #endif
 662 #undef FLD
 663     return idesc;
 664   }
 665
 666  extract_sfmt_cmp:
 667   {
 668     const IDESC *idesc = &fr30bf_insn_data[itype];
 669 #define FLD(f) abuf->fields.sfmt_str13.f
 670     UINT f_Rj;
 671     UINT f_Ri;
 672
 673     f_Rj = EXTRACT_MSB0_UINT (insn, 16, 8, 4);
 674     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
 675
 676   /* Record the fields for the semantic handler.  */
 677   FLD (f_Ri) = f_Ri;
 678   FLD (f_Rj) = f_Rj;
 679   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
 680   FLD (i_Rj) = & CPU (h_gr)[f_Rj];
 681   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_cmp", "f_Ri 0x%x", 'x', f_Ri, "f_Rj 0x%x", 'x', f_Rj, "Ri 0x%x", 'x', f_Ri, "Rj 0x%x", 'x', f_Rj, (char *) 0));
 682
 683 #if WITH_PROFILE_MODEL_P
 684   /* Record the fields for profiling.  */
 685   if (PROFILE_MODEL_P (current_cpu))
 686     {
 687       FLD (in_Ri) = f_Ri;
 688       FLD (in_Rj) = f_Rj;
 689     }
 690 #endif
 691 #undef FLD
 692     return idesc;
 693   }
 694
 695  extract_sfmt_cmpi:
 696   {
 697     const IDESC *idesc = &fr30bf_insn_data[itype];
 698 #define FLD(f) abuf->fields.sfmt_addi.f
 699     UINT f_u4;
 700     UINT f_Ri;
 701
 702     f_u4 = EXTRACT_MSB0_UINT (insn, 16, 8, 4);
 703     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
 704
 705   /* Record the fields for the semantic handler.  */
 706   FLD (f_Ri) = f_Ri;
 707   FLD (f_u4) = f_u4;
 708   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
 709   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_cmpi", "f_Ri 0x%x", 'x', f_Ri, "f_u4 0x%x", 'x', f_u4, "Ri 0x%x", 'x', f_Ri, (char *) 0));
 710
 711 #if WITH_PROFILE_MODEL_P
 712   /* Record the fields for profiling.  */
 713   if (PROFILE_MODEL_P (current_cpu))
 714     {
 715       FLD (in_Ri) = f_Ri;
 716     }
 717 #endif
 718 #undef FLD
 719     return idesc;
 720   }
 721
 722  extract_sfmt_cmp2:
 723   {
 724     const IDESC *idesc = &fr30bf_insn_data[itype];
 725 #define FLD(f) abuf->fields.sfmt_add2.f
 726     SI f_m4;
 727     UINT f_Ri;
 728
 729     f_m4 = ((EXTRACT_MSB0_UINT (insn, 16, 8, 4)) | (((-1) << (4))));
 730     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
 731
 732   /* Record the fields for the semantic handler.  */
 733   FLD (f_Ri) = f_Ri;
 734   FLD (f_m4) = f_m4;
 735   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
 736   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_cmp2", "f_Ri 0x%x", 'x', f_Ri, "f_m4 0x%x", 'x', f_m4, "Ri 0x%x", 'x', f_Ri, (char *) 0));
 737
 738 #if WITH_PROFILE_MODEL_P
 739   /* Record the fields for profiling.  */
 740   if (PROFILE_MODEL_P (current_cpu))
 741     {
 742       FLD (in_Ri) = f_Ri;
 743     }
 744 #endif
 745 #undef FLD
 746     return idesc;
 747   }
 748
 749  extract_sfmt_and:
 750   {
 751     const IDESC *idesc = &fr30bf_insn_data[itype];
 752 #define FLD(f) abuf->fields.sfmt_add.f
 753     UINT f_Rj;
 754     UINT f_Ri;
 755
 756     f_Rj = EXTRACT_MSB0_UINT (insn, 16, 8, 4);
 757     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
 758
 759   /* Record the fields for the semantic handler.  */
 760   FLD (f_Ri) = f_Ri;
 761   FLD (f_Rj) = f_Rj;
 762   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
 763   FLD (i_Rj) = & CPU (h_gr)[f_Rj];
 764   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_and", "f_Ri 0x%x", 'x', f_Ri, "f_Rj 0x%x", 'x', f_Rj, "Ri 0x%x", 'x', f_Ri, "Rj 0x%x", 'x', f_Rj, (char *) 0));
 765
 766 #if WITH_PROFILE_MODEL_P
 767   /* Record the fields for profiling.  */
 768   if (PROFILE_MODEL_P (current_cpu))
 769     {
 770       FLD (in_Ri) = f_Ri;
 771       FLD (in_Rj) = f_Rj;
 772       FLD (out_Ri) = f_Ri;
 773     }
 774 #endif
 775 #undef FLD
 776     return idesc;
 777   }
 778
 779  extract_sfmt_andm:
 780   {
 781     const IDESC *idesc = &fr30bf_insn_data[itype];
 782 #define FLD(f) abuf->fields.sfmt_str13.f
 783     UINT f_Rj;
 784     UINT f_Ri;
 785
 786     f_Rj = EXTRACT_MSB0_UINT (insn, 16, 8, 4);
 787     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
 788
 789   /* Record the fields for the semantic handler.  */
 790   FLD (f_Ri) = f_Ri;
 791   FLD (f_Rj) = f_Rj;
 792   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
 793   FLD (i_Rj) = & CPU (h_gr)[f_Rj];
 794   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_andm", "f_Ri 0x%x", 'x', f_Ri, "f_Rj 0x%x", 'x', f_Rj, "Ri 0x%x", 'x', f_Ri, "Rj 0x%x", 'x', f_Rj, (char *) 0));
 795
 796 #if WITH_PROFILE_MODEL_P
 797   /* Record the fields for profiling.  */
 798   if (PROFILE_MODEL_P (current_cpu))
 799     {
 800       FLD (in_Ri) = f_Ri;
 801       FLD (in_Rj) = f_Rj;
 802     }
 803 #endif
 804 #undef FLD
 805     return idesc;
 806   }
 807
 808  extract_sfmt_andh:
 809   {
 810     const IDESC *idesc = &fr30bf_insn_data[itype];
 811 #define FLD(f) abuf->fields.sfmt_str13.f
 812     UINT f_Rj;
 813     UINT f_Ri;
 814
 815     f_Rj = EXTRACT_MSB0_UINT (insn, 16, 8, 4);
 816     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
 817
 818   /* Record the fields for the semantic handler.  */
 819   FLD (f_Ri) = f_Ri;
 820   FLD (f_Rj) = f_Rj;
 821   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
 822   FLD (i_Rj) = & CPU (h_gr)[f_Rj];
 823   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_andh", "f_Ri 0x%x", 'x', f_Ri, "f_Rj 0x%x", 'x', f_Rj, "Ri 0x%x", 'x', f_Ri, "Rj 0x%x", 'x', f_Rj, (char *) 0));
 824
 825 #if WITH_PROFILE_MODEL_P
 826   /* Record the fields for profiling.  */
 827   if (PROFILE_MODEL_P (current_cpu))
 828     {
 829       FLD (in_Ri) = f_Ri;
 830       FLD (in_Rj) = f_Rj;
 831     }
 832 #endif
 833 #undef FLD
 834     return idesc;
 835   }
 836
 837  extract_sfmt_andb:
 838   {
 839     const IDESC *idesc = &fr30bf_insn_data[itype];
 840 #define FLD(f) abuf->fields.sfmt_str13.f
 841     UINT f_Rj;
 842     UINT f_Ri;
 843
 844     f_Rj = EXTRACT_MSB0_UINT (insn, 16, 8, 4);
 845     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
 846
 847   /* Record the fields for the semantic handler.  */
 848   FLD (f_Ri) = f_Ri;
 849   FLD (f_Rj) = f_Rj;
 850   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
 851   FLD (i_Rj) = & CPU (h_gr)[f_Rj];
 852   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_andb", "f_Ri 0x%x", 'x', f_Ri, "f_Rj 0x%x", 'x', f_Rj, "Ri 0x%x", 'x', f_Ri, "Rj 0x%x", 'x', f_Rj, (char *) 0));
 853
 854 #if WITH_PROFILE_MODEL_P
 855   /* Record the fields for profiling.  */
 856   if (PROFILE_MODEL_P (current_cpu))
 857     {
 858       FLD (in_Ri) = f_Ri;
 859       FLD (in_Rj) = f_Rj;
 860     }
 861 #endif
 862 #undef FLD
 863     return idesc;
 864   }
 865
 866  extract_sfmt_bandl:
 867   {
 868     const IDESC *idesc = &fr30bf_insn_data[itype];
 869 #define FLD(f) abuf->fields.sfmt_addi.f
 870     UINT f_u4;
 871     UINT f_Ri;
 872
 873     f_u4 = EXTRACT_MSB0_UINT (insn, 16, 8, 4);
 874     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
 875
 876   /* Record the fields for the semantic handler.  */
 877   FLD (f_Ri) = f_Ri;
 878   FLD (f_u4) = f_u4;
 879   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
 880   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_bandl", "f_Ri 0x%x", 'x', f_Ri, "f_u4 0x%x", 'x', f_u4, "Ri 0x%x", 'x', f_Ri, (char *) 0));
 881
 882 #if WITH_PROFILE_MODEL_P
 883   /* Record the fields for profiling.  */
 884   if (PROFILE_MODEL_P (current_cpu))
 885     {
 886       FLD (in_Ri) = f_Ri;
 887     }
 888 #endif
 889 #undef FLD
 890     return idesc;
 891   }
 892
 893  extract_sfmt_btstl:
 894   {
 895     const IDESC *idesc = &fr30bf_insn_data[itype];
 896 #define FLD(f) abuf->fields.sfmt_addi.f
 897     UINT f_u4;
 898     UINT f_Ri;
 899
 900     f_u4 = EXTRACT_MSB0_UINT (insn, 16, 8, 4);
 901     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
 902
 903   /* Record the fields for the semantic handler.  */
 904   FLD (f_Ri) = f_Ri;
 905   FLD (f_u4) = f_u4;
 906   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
 907   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_btstl", "f_Ri 0x%x", 'x', f_Ri, "f_u4 0x%x", 'x', f_u4, "Ri 0x%x", 'x', f_Ri, (char *) 0));
 908
 909 #if WITH_PROFILE_MODEL_P
 910   /* Record the fields for profiling.  */
 911   if (PROFILE_MODEL_P (current_cpu))
 912     {
 913       FLD (in_Ri) = f_Ri;
 914     }
 915 #endif
 916 #undef FLD
 917     return idesc;
 918   }
 919
 920  extract_sfmt_mul:
 921   {
 922     const IDESC *idesc = &fr30bf_insn_data[itype];
 923 #define FLD(f) abuf->fields.sfmt_str13.f
 924     UINT f_Rj;
 925     UINT f_Ri;
 926
 927     f_Rj = EXTRACT_MSB0_UINT (insn, 16, 8, 4);
 928     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
 929
 930   /* Record the fields for the semantic handler.  */
 931   FLD (f_Ri) = f_Ri;
 932   FLD (f_Rj) = f_Rj;
 933   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
 934   FLD (i_Rj) = & CPU (h_gr)[f_Rj];
 935   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_mul", "f_Ri 0x%x", 'x', f_Ri, "f_Rj 0x%x", 'x', f_Rj, "Ri 0x%x", 'x', f_Ri, "Rj 0x%x", 'x', f_Rj, (char *) 0));
 936
 937 #if WITH_PROFILE_MODEL_P
 938   /* Record the fields for profiling.  */
 939   if (PROFILE_MODEL_P (current_cpu))
 940     {
 941       FLD (in_Ri) = f_Ri;
 942       FLD (in_Rj) = f_Rj;
 943     }
 944 #endif
 945 #undef FLD
 946     return idesc;
 947   }
 948
 949  extract_sfmt_mulu:
 950   {
 951     const IDESC *idesc = &fr30bf_insn_data[itype];
 952 #define FLD(f) abuf->fields.sfmt_str13.f
 953     UINT f_Rj;
 954     UINT f_Ri;
 955
 956     f_Rj = EXTRACT_MSB0_UINT (insn, 16, 8, 4);
 957     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
 958
 959   /* Record the fields for the semantic handler.  */
 960   FLD (f_Ri) = f_Ri;
 961   FLD (f_Rj) = f_Rj;
 962   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
 963   FLD (i_Rj) = & CPU (h_gr)[f_Rj];
 964   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_mulu", "f_Ri 0x%x", 'x', f_Ri, "f_Rj 0x%x", 'x', f_Rj, "Ri 0x%x", 'x', f_Ri, "Rj 0x%x", 'x', f_Rj, (char *) 0));
 965
 966 #if WITH_PROFILE_MODEL_P
 967   /* Record the fields for profiling.  */
 968   if (PROFILE_MODEL_P (current_cpu))
 969     {
 970       FLD (in_Ri) = f_Ri;
 971       FLD (in_Rj) = f_Rj;
 972     }
 973 #endif
 974 #undef FLD
 975     return idesc;
 976   }
 977
 978  extract_sfmt_mulh:
 979   {
 980     const IDESC *idesc = &fr30bf_insn_data[itype];
 981 #define FLD(f) abuf->fields.sfmt_str13.f
 982     UINT f_Rj;
 983     UINT f_Ri;
 984
 985     f_Rj = EXTRACT_MSB0_UINT (insn, 16, 8, 4);
 986     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
 987
 988   /* Record the fields for the semantic handler.  */
 989   FLD (f_Ri) = f_Ri;
 990   FLD (f_Rj) = f_Rj;
 991   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
 992   FLD (i_Rj) = & CPU (h_gr)[f_Rj];
 993   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_mulh", "f_Ri 0x%x", 'x', f_Ri, "f_Rj 0x%x", 'x', f_Rj, "Ri 0x%x", 'x', f_Ri, "Rj 0x%x", 'x', f_Rj, (char *) 0));
 994
 995 #if WITH_PROFILE_MODEL_P
 996   /* Record the fields for profiling.  */
 997   if (PROFILE_MODEL_P (current_cpu))
 998     {
 999       FLD (in_Ri) = f_Ri;
1000       FLD (in_Rj) = f_Rj;
1001     }
1002 #endif
1003 #undef FLD
1004     return idesc;
1005   }
1006
1007  extract_sfmt_div0s:
1008   {
1009     const IDESC *idesc = &fr30bf_insn_data[itype];
1010 #define FLD(f) abuf->fields.sfmt_mov2dr.f
1011     UINT f_Ri;
1012
1013     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
1014
1015   /* Record the fields for the semantic handler.  */
1016   FLD (f_Ri) = f_Ri;
1017   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
1018   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_div0s", "f_Ri 0x%x", 'x', f_Ri, "Ri 0x%x", 'x', f_Ri, (char *) 0));
1019
1020 #if WITH_PROFILE_MODEL_P
1021   /* Record the fields for profiling.  */
1022   if (PROFILE_MODEL_P (current_cpu))
1023     {
1024       FLD (in_Ri) = f_Ri;
1025     }
1026 #endif
1027 #undef FLD
1028     return idesc;
1029   }
1030
1031  extract_sfmt_div0u:
1032   {
1033     const IDESC *idesc = &fr30bf_insn_data[itype];
1034 #define FLD(f) abuf->fields.fmt_empty.f
1035
1036
1037   /* Record the fields for the semantic handler.  */
1038   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_div0u", (char *) 0));
1039
1040 #undef FLD
1041     return idesc;
1042   }
1043
1044  extract_sfmt_div1:
1045   {
1046     const IDESC *idesc = &fr30bf_insn_data[itype];
1047 #define FLD(f) abuf->fields.sfmt_mov2dr.f
1048     UINT f_Ri;
1049
1050     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
1051
1052   /* Record the fields for the semantic handler.  */
1053   FLD (f_Ri) = f_Ri;
1054   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
1055   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_div1", "f_Ri 0x%x", 'x', f_Ri, "Ri 0x%x", 'x', f_Ri, (char *) 0));
1056
1057 #if WITH_PROFILE_MODEL_P
1058   /* Record the fields for profiling.  */
1059   if (PROFILE_MODEL_P (current_cpu))
1060     {
1061       FLD (in_Ri) = f_Ri;
1062     }
1063 #endif
1064 #undef FLD
1065     return idesc;
1066   }
1067
1068  extract_sfmt_div2:
1069   {
1070     const IDESC *idesc = &fr30bf_insn_data[itype];
1071 #define FLD(f) abuf->fields.sfmt_mov2dr.f
1072     UINT f_Ri;
1073
1074     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
1075
1076   /* Record the fields for the semantic handler.  */
1077   FLD (f_Ri) = f_Ri;
1078   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
1079   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_div2", "f_Ri 0x%x", 'x', f_Ri, "Ri 0x%x", 'x', f_Ri, (char *) 0));
1080
1081 #if WITH_PROFILE_MODEL_P
1082   /* Record the fields for profiling.  */
1083   if (PROFILE_MODEL_P (current_cpu))
1084     {
1085       FLD (in_Ri) = f_Ri;
1086     }
1087 #endif
1088 #undef FLD
1089     return idesc;
1090   }
1091
1092  extract_sfmt_div3:
1093   {
1094     const IDESC *idesc = &fr30bf_insn_data[itype];
1095 #define FLD(f) abuf->fields.fmt_empty.f
1096
1097
1098   /* Record the fields for the semantic handler.  */
1099   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_div3", (char *) 0));
1100
1101 #undef FLD
1102     return idesc;
1103   }
1104
1105  extract_sfmt_div4s:
1106   {
1107     const IDESC *idesc = &fr30bf_insn_data[itype];
1108 #define FLD(f) abuf->fields.fmt_empty.f
1109
1110
1111   /* Record the fields for the semantic handler.  */
1112   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_div4s", (char *) 0));
1113
1114 #undef FLD
1115     return idesc;
1116   }
1117
1118  extract_sfmt_lsl:
1119   {
1120     const IDESC *idesc = &fr30bf_insn_data[itype];
1121 #define FLD(f) abuf->fields.sfmt_add.f
1122     UINT f_Rj;
1123     UINT f_Ri;
1124
1125     f_Rj = EXTRACT_MSB0_UINT (insn, 16, 8, 4);
1126     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
1127
1128   /* Record the fields for the semantic handler.  */
1129   FLD (f_Ri) = f_Ri;
1130   FLD (f_Rj) = f_Rj;
1131   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
1132   FLD (i_Rj) = & CPU (h_gr)[f_Rj];
1133   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_lsl", "f_Ri 0x%x", 'x', f_Ri, "f_Rj 0x%x", 'x', f_Rj, "Ri 0x%x", 'x', f_Ri, "Rj 0x%x", 'x', f_Rj, (char *) 0));
1134
1135 #if WITH_PROFILE_MODEL_P
1136   /* Record the fields for profiling.  */
1137   if (PROFILE_MODEL_P (current_cpu))
1138     {
1139       FLD (in_Ri) = f_Ri;
1140       FLD (in_Rj) = f_Rj;
1141       FLD (out_Ri) = f_Ri;
1142     }
1143 #endif
1144 #undef FLD
1145     return idesc;
1146   }
1147
1148  extract_sfmt_lsli:
1149   {
1150     const IDESC *idesc = &fr30bf_insn_data[itype];
1151 #define FLD(f) abuf->fields.sfmt_addi.f
1152     UINT f_u4;
1153     UINT f_Ri;
1154
1155     f_u4 = EXTRACT_MSB0_UINT (insn, 16, 8, 4);
1156     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
1157
1158   /* Record the fields for the semantic handler.  */
1159   FLD (f_Ri) = f_Ri;
1160   FLD (f_u4) = f_u4;
1161   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
1162   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_lsli", "f_Ri 0x%x", 'x', f_Ri, "f_u4 0x%x", 'x', f_u4, "Ri 0x%x", 'x', f_Ri, (char *) 0));
1163
1164 #if WITH_PROFILE_MODEL_P
1165   /* Record the fields for profiling.  */
1166   if (PROFILE_MODEL_P (current_cpu))
1167     {
1168       FLD (in_Ri) = f_Ri;
1169       FLD (out_Ri) = f_Ri;
1170     }
1171 #endif
1172 #undef FLD
1173     return idesc;
1174   }
1175
1176  extract_sfmt_ldi8:
1177   {
1178     const IDESC *idesc = &fr30bf_insn_data[itype];
1179 #define FLD(f) abuf->fields.sfmt_ldi8.f
1180     UINT f_i8;
1181     UINT f_Ri;
1182
1183     f_i8 = EXTRACT_MSB0_UINT (insn, 16, 4, 8);
1184     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
1185
1186   /* Record the fields for the semantic handler.  */
1187   FLD (f_i8) = f_i8;
1188   FLD (f_Ri) = f_Ri;
1189   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
1190   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_ldi8", "f_i8 0x%x", 'x', f_i8, "f_Ri 0x%x", 'x', f_Ri, "Ri 0x%x", 'x', f_Ri, (char *) 0));
1191
1192 #if WITH_PROFILE_MODEL_P
1193   /* Record the fields for profiling.  */
1194   if (PROFILE_MODEL_P (current_cpu))
1195     {
1196       FLD (out_Ri) = f_Ri;
1197     }
1198 #endif
1199 #undef FLD
1200     return idesc;
1201   }
1202
1203  extract_sfmt_ldi20:
1204   {
1205     const IDESC *idesc = &fr30bf_insn_data[itype];
1206 #define FLD(f) abuf->fields.sfmt_ldi20.f
1207     UINT f_i20_16;
1208     UINT f_i20_4;
1209     UINT f_Ri;
1210     UINT f_i20;
1211     /* Contents of trailing part of insn.  */
1212     UINT word_1;
1213
1214   word_1 = GETIMEMUHI (current_cpu, pc + 2);
1215     f_i20_16 = (0|(EXTRACT_MSB0_UINT (word_1, 16, 0, 16) << 0));
1216     f_i20_4 = EXTRACT_MSB0_UINT (insn, 16, 8, 4);
1217     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
1218 {
1219   f_i20 = ((((f_i20_4) << (16))) | (f_i20_16));
1220 }
1221
1222   /* Record the fields for the semantic handler.  */
1223   FLD (f_i20) = f_i20;
1224   FLD (f_Ri) = f_Ri;
1225   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
1226   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_ldi20", "f_i20 0x%x", 'x', f_i20, "f_Ri 0x%x", 'x', f_Ri, "Ri 0x%x", 'x', f_Ri, (char *) 0));
1227
1228 #if WITH_PROFILE_MODEL_P
1229   /* Record the fields for profiling.  */
1230   if (PROFILE_MODEL_P (current_cpu))
1231     {
1232       FLD (out_Ri) = f_Ri;
1233     }
1234 #endif
1235 #undef FLD
1236     return idesc;
1237   }
1238
1239  extract_sfmt_ldi32:
1240   {
1241     const IDESC *idesc = &fr30bf_insn_data[itype];
1242 #define FLD(f) abuf->fields.sfmt_ldi32.f
1243     UINT f_i32;
1244     UINT f_Ri;
1245     /* Contents of trailing part of insn.  */
1246     UINT word_1;
1247     UINT word_2;
1248
1249   word_1 = GETIMEMUHI (current_cpu, pc + 2);
1250   word_2 = GETIMEMUHI (current_cpu, pc + 4);
1251     f_i32 = (0|(EXTRACT_MSB0_UINT (word_2, 16, 0, 16) << 0)|(EXTRACT_MSB0_UINT (word_1, 16, 0, 16) << 16));
1252     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
1253
1254   /* Record the fields for the semantic handler.  */
1255   FLD (f_i32) = f_i32;
1256   FLD (f_Ri) = f_Ri;
1257   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
1258   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_ldi32", "f_i32 0x%x", 'x', f_i32, "f_Ri 0x%x", 'x', f_Ri, "Ri 0x%x", 'x', f_Ri, (char *) 0));
1259
1260 #if WITH_PROFILE_MODEL_P
1261   /* Record the fields for profiling.  */
1262   if (PROFILE_MODEL_P (current_cpu))
1263     {
1264       FLD (out_Ri) = f_Ri;
1265     }
1266 #endif
1267 #undef FLD
1268     return idesc;
1269   }
1270
1271  extract_sfmt_ld:
1272   {
1273     const IDESC *idesc = &fr30bf_insn_data[itype];
1274 #define FLD(f) abuf->fields.sfmt_ldr13.f
1275     UINT f_Rj;
1276     UINT f_Ri;
1277
1278     f_Rj = EXTRACT_MSB0_UINT (insn, 16, 8, 4);
1279     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
1280
1281   /* Record the fields for the semantic handler.  */
1282   FLD (f_Rj) = f_Rj;
1283   FLD (f_Ri) = f_Ri;
1284   FLD (i_Rj) = & CPU (h_gr)[f_Rj];
1285   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
1286   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_ld", "f_Rj 0x%x", 'x', f_Rj, "f_Ri 0x%x", 'x', f_Ri, "Rj 0x%x", 'x', f_Rj, "Ri 0x%x", 'x', f_Ri, (char *) 0));
1287
1288 #if WITH_PROFILE_MODEL_P
1289   /* Record the fields for profiling.  */
1290   if (PROFILE_MODEL_P (current_cpu))
1291     {
1292       FLD (in_Rj) = f_Rj;
1293       FLD (out_Ri) = f_Ri;
1294     }
1295 #endif
1296 #undef FLD
1297     return idesc;
1298   }
1299
1300  extract_sfmt_ldr13:
1301   {
1302     const IDESC *idesc = &fr30bf_insn_data[itype];
1303 #define FLD(f) abuf->fields.sfmt_ldr13.f
1304     UINT f_Rj;
1305     UINT f_Ri;
1306
1307     f_Rj = EXTRACT_MSB0_UINT (insn, 16, 8, 4);
1308     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
1309
1310   /* Record the fields for the semantic handler.  */
1311   FLD (f_Rj) = f_Rj;
1312   FLD (f_Ri) = f_Ri;
1313   FLD (i_Rj) = & CPU (h_gr)[f_Rj];
1314   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
1315   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_ldr13", "f_Rj 0x%x", 'x', f_Rj, "f_Ri 0x%x", 'x', f_Ri, "Rj 0x%x", 'x', f_Rj, "Ri 0x%x", 'x', f_Ri, (char *) 0));
1316
1317 #if WITH_PROFILE_MODEL_P
1318   /* Record the fields for profiling.  */
1319   if (PROFILE_MODEL_P (current_cpu))
1320     {
1321       FLD (in_Rj) = f_Rj;
1322       FLD (in_h_gr_13) = 13;
1323       FLD (out_Ri) = f_Ri;
1324     }
1325 #endif
1326 #undef FLD
1327     return idesc;
1328   }
1329
1330  extract_sfmt_ldr14:
1331   {
1332     const IDESC *idesc = &fr30bf_insn_data[itype];
1333 #define FLD(f) abuf->fields.sfmt_ldr14.f
1334     SI f_disp10;
1335     UINT f_Ri;
1336
1337     f_disp10 = ((EXTRACT_MSB0_INT (insn, 16, 4, 8)) << (2));
1338     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
1339
1340   /* Record the fields for the semantic handler.  */
1341   FLD (f_disp10) = f_disp10;
1342   FLD (f_Ri) = f_Ri;
1343   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
1344   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_ldr14", "f_disp10 0x%x", 'x', f_disp10, "f_Ri 0x%x", 'x', f_Ri, "Ri 0x%x", 'x', f_Ri, (char *) 0));
1345
1346 #if WITH_PROFILE_MODEL_P
1347   /* Record the fields for profiling.  */
1348   if (PROFILE_MODEL_P (current_cpu))
1349     {
1350       FLD (in_h_gr_14) = 14;
1351       FLD (out_Ri) = f_Ri;
1352     }
1353 #endif
1354 #undef FLD
1355     return idesc;
1356   }
1357
1358  extract_sfmt_ldr14uh:
1359   {
1360     const IDESC *idesc = &fr30bf_insn_data[itype];
1361 #define FLD(f) abuf->fields.sfmt_ldr14uh.f
1362     SI f_disp9;
1363     UINT f_Ri;
1364
1365     f_disp9 = ((EXTRACT_MSB0_INT (insn, 16, 4, 8)) << (1));
1366     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
1367
1368   /* Record the fields for the semantic handler.  */
1369   FLD (f_disp9) = f_disp9;
1370   FLD (f_Ri) = f_Ri;
1371   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
1372   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_ldr14uh", "f_disp9 0x%x", 'x', f_disp9, "f_Ri 0x%x", 'x', f_Ri, "Ri 0x%x", 'x', f_Ri, (char *) 0));
1373
1374 #if WITH_PROFILE_MODEL_P
1375   /* Record the fields for profiling.  */
1376   if (PROFILE_MODEL_P (current_cpu))
1377     {
1378       FLD (in_h_gr_14) = 14;
1379       FLD (out_Ri) = f_Ri;
1380     }
1381 #endif
1382 #undef FLD
1383     return idesc;
1384   }
1385
1386  extract_sfmt_ldr14ub:
1387   {
1388     const IDESC *idesc = &fr30bf_insn_data[itype];
1389 #define FLD(f) abuf->fields.sfmt_ldr14ub.f
1390     INT f_disp8;
1391     UINT f_Ri;
1392
1393     f_disp8 = EXTRACT_MSB0_INT (insn, 16, 4, 8);
1394     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
1395
1396   /* Record the fields for the semantic handler.  */
1397   FLD (f_disp8) = f_disp8;
1398   FLD (f_Ri) = f_Ri;
1399   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
1400   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_ldr14ub", "f_disp8 0x%x", 'x', f_disp8, "f_Ri 0x%x", 'x', f_Ri, "Ri 0x%x", 'x', f_Ri, (char *) 0));
1401
1402 #if WITH_PROFILE_MODEL_P
1403   /* Record the fields for profiling.  */
1404   if (PROFILE_MODEL_P (current_cpu))
1405     {
1406       FLD (in_h_gr_14) = 14;
1407       FLD (out_Ri) = f_Ri;
1408     }
1409 #endif
1410 #undef FLD
1411     return idesc;
1412   }
1413
1414  extract_sfmt_ldr15:
1415   {
1416     const IDESC *idesc = &fr30bf_insn_data[itype];
1417 #define FLD(f) abuf->fields.sfmt_ldr15.f
1418     USI f_udisp6;
1419     UINT f_Ri;
1420
1421     f_udisp6 = ((EXTRACT_MSB0_UINT (insn, 16, 8, 4)) << (2));
1422     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
1423
1424   /* Record the fields for the semantic handler.  */
1425   FLD (f_udisp6) = f_udisp6;
1426   FLD (f_Ri) = f_Ri;
1427   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
1428   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_ldr15", "f_udisp6 0x%x", 'x', f_udisp6, "f_Ri 0x%x", 'x', f_Ri, "Ri 0x%x", 'x', f_Ri, (char *) 0));
1429
1430 #if WITH_PROFILE_MODEL_P
1431   /* Record the fields for profiling.  */
1432   if (PROFILE_MODEL_P (current_cpu))
1433     {
1434       FLD (in_h_gr_15) = 15;
1435       FLD (out_Ri) = f_Ri;
1436     }
1437 #endif
1438 #undef FLD
1439     return idesc;
1440   }
1441
1442  extract_sfmt_ldr15gr:
1443   {
1444     const IDESC *idesc = &fr30bf_insn_data[itype];
1445 #define FLD(f) abuf->fields.sfmt_ldr15gr.f
1446     UINT f_Ri;
1447
1448     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
1449
1450   /* Record the fields for the semantic handler.  */
1451   FLD (f_Ri) = f_Ri;
1452   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
1453   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_ldr15gr", "f_Ri 0x%x", 'x', f_Ri, "Ri 0x%x", 'x', f_Ri, (char *) 0));
1454
1455 #if WITH_PROFILE_MODEL_P
1456   /* Record the fields for profiling.  */
1457   if (PROFILE_MODEL_P (current_cpu))
1458     {
1459       FLD (in_h_gr_15) = 15;
1460       FLD (out_Ri) = f_Ri;
1461       FLD (out_h_gr_15) = 15;
1462     }
1463 #endif
1464 #undef FLD
1465     return idesc;
1466   }
1467
1468  extract_sfmt_ldr15dr:
1469   {
1470     const IDESC *idesc = &fr30bf_insn_data[itype];
1471 #define FLD(f) abuf->fields.sfmt_ldr15dr.f
1472     UINT f_Rs2;
1473
1474     f_Rs2 = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
1475
1476   /* Record the fields for the semantic handler.  */
1477   FLD (f_Rs2) = f_Rs2;
1478   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_ldr15dr", "f_Rs2 0x%x", 'x', f_Rs2, (char *) 0));
1479
1480 #if WITH_PROFILE_MODEL_P
1481   /* Record the fields for profiling.  */
1482   if (PROFILE_MODEL_P (current_cpu))
1483     {
1484       FLD (in_h_gr_15) = 15;
1485       FLD (out_h_gr_15) = 15;
1486     }
1487 #endif
1488 #undef FLD
1489     return idesc;
1490   }
1491
1492  extract_sfmt_ldr15ps:
1493   {
1494     const IDESC *idesc = &fr30bf_insn_data[itype];
1495 #define FLD(f) abuf->fields.sfmt_addsp.f
1496
1497
1498   /* Record the fields for the semantic handler.  */
1499   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_ldr15ps", (char *) 0));
1500
1501 #if WITH_PROFILE_MODEL_P
1502   /* Record the fields for profiling.  */
1503   if (PROFILE_MODEL_P (current_cpu))
1504     {
1505       FLD (in_h_gr_15) = 15;
1506       FLD (out_h_gr_15) = 15;
1507     }
1508 #endif
1509 #undef FLD
1510     return idesc;
1511   }
1512
1513  extract_sfmt_st:
1514   {
1515     const IDESC *idesc = &fr30bf_insn_data[itype];
1516 #define FLD(f) abuf->fields.sfmt_str13.f
1517     UINT f_Rj;
1518     UINT f_Ri;
1519
1520     f_Rj = EXTRACT_MSB0_UINT (insn, 16, 8, 4);
1521     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
1522
1523   /* Record the fields for the semantic handler.  */
1524   FLD (f_Ri) = f_Ri;
1525   FLD (f_Rj) = f_Rj;
1526   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
1527   FLD (i_Rj) = & CPU (h_gr)[f_Rj];
1528   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_st", "f_Ri 0x%x", 'x', f_Ri, "f_Rj 0x%x", 'x', f_Rj, "Ri 0x%x", 'x', f_Ri, "Rj 0x%x", 'x', f_Rj, (char *) 0));
1529
1530 #if WITH_PROFILE_MODEL_P
1531   /* Record the fields for profiling.  */
1532   if (PROFILE_MODEL_P (current_cpu))
1533     {
1534       FLD (in_Ri) = f_Ri;
1535       FLD (in_Rj) = f_Rj;
1536     }
1537 #endif
1538 #undef FLD
1539     return idesc;
1540   }
1541
1542  extract_sfmt_str13:
1543   {
1544     const IDESC *idesc = &fr30bf_insn_data[itype];
1545 #define FLD(f) abuf->fields.sfmt_str13.f
1546     UINT f_Rj;
1547     UINT f_Ri;
1548
1549     f_Rj = EXTRACT_MSB0_UINT (insn, 16, 8, 4);
1550     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
1551
1552   /* Record the fields for the semantic handler.  */
1553   FLD (f_Ri) = f_Ri;
1554   FLD (f_Rj) = f_Rj;
1555   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
1556   FLD (i_Rj) = & CPU (h_gr)[f_Rj];
1557   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_str13", "f_Ri 0x%x", 'x', f_Ri, "f_Rj 0x%x", 'x', f_Rj, "Ri 0x%x", 'x', f_Ri, "Rj 0x%x", 'x', f_Rj, (char *) 0));
1558
1559 #if WITH_PROFILE_MODEL_P
1560   /* Record the fields for profiling.  */
1561   if (PROFILE_MODEL_P (current_cpu))
1562     {
1563       FLD (in_Ri) = f_Ri;
1564       FLD (in_Rj) = f_Rj;
1565       FLD (in_h_gr_13) = 13;
1566     }
1567 #endif
1568 #undef FLD
1569     return idesc;
1570   }
1571
1572  extract_sfmt_str14:
1573   {
1574     const IDESC *idesc = &fr30bf_insn_data[itype];
1575 #define FLD(f) abuf->fields.sfmt_str14.f
1576     SI f_disp10;
1577     UINT f_Ri;
1578
1579     f_disp10 = ((EXTRACT_MSB0_INT (insn, 16, 4, 8)) << (2));
1580     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
1581
1582   /* Record the fields for the semantic handler.  */
1583   FLD (f_Ri) = f_Ri;
1584   FLD (f_disp10) = f_disp10;
1585   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
1586   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_str14", "f_Ri 0x%x", 'x', f_Ri, "f_disp10 0x%x", 'x', f_disp10, "Ri 0x%x", 'x', f_Ri, (char *) 0));
1587
1588 #if WITH_PROFILE_MODEL_P
1589   /* Record the fields for profiling.  */
1590   if (PROFILE_MODEL_P (current_cpu))
1591     {
1592       FLD (in_Ri) = f_Ri;
1593       FLD (in_h_gr_14) = 14;
1594     }
1595 #endif
1596 #undef FLD
1597     return idesc;
1598   }
1599
1600  extract_sfmt_str14h:
1601   {
1602     const IDESC *idesc = &fr30bf_insn_data[itype];
1603 #define FLD(f) abuf->fields.sfmt_str14h.f
1604     SI f_disp9;
1605     UINT f_Ri;
1606
1607     f_disp9 = ((EXTRACT_MSB0_INT (insn, 16, 4, 8)) << (1));
1608     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
1609
1610   /* Record the fields for the semantic handler.  */
1611   FLD (f_Ri) = f_Ri;
1612   FLD (f_disp9) = f_disp9;
1613   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
1614   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_str14h", "f_Ri 0x%x", 'x', f_Ri, "f_disp9 0x%x", 'x', f_disp9, "Ri 0x%x", 'x', f_Ri, (char *) 0));
1615
1616 #if WITH_PROFILE_MODEL_P
1617   /* Record the fields for profiling.  */
1618   if (PROFILE_MODEL_P (current_cpu))
1619     {
1620       FLD (in_Ri) = f_Ri;
1621       FLD (in_h_gr_14) = 14;
1622     }
1623 #endif
1624 #undef FLD
1625     return idesc;
1626   }
1627
1628  extract_sfmt_str14b:
1629   {
1630     const IDESC *idesc = &fr30bf_insn_data[itype];
1631 #define FLD(f) abuf->fields.sfmt_str14b.f
1632     INT f_disp8;
1633     UINT f_Ri;
1634
1635     f_disp8 = EXTRACT_MSB0_INT (insn, 16, 4, 8);
1636     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
1637
1638   /* Record the fields for the semantic handler.  */
1639   FLD (f_Ri) = f_Ri;
1640   FLD (f_disp8) = f_disp8;
1641   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
1642   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_str14b", "f_Ri 0x%x", 'x', f_Ri, "f_disp8 0x%x", 'x', f_disp8, "Ri 0x%x", 'x', f_Ri, (char *) 0));
1643
1644 #if WITH_PROFILE_MODEL_P
1645   /* Record the fields for profiling.  */
1646   if (PROFILE_MODEL_P (current_cpu))
1647     {
1648       FLD (in_Ri) = f_Ri;
1649       FLD (in_h_gr_14) = 14;
1650     }
1651 #endif
1652 #undef FLD
1653     return idesc;
1654   }
1655
1656  extract_sfmt_str15:
1657   {
1658     const IDESC *idesc = &fr30bf_insn_data[itype];
1659 #define FLD(f) abuf->fields.sfmt_str15.f
1660     USI f_udisp6;
1661     UINT f_Ri;
1662
1663     f_udisp6 = ((EXTRACT_MSB0_UINT (insn, 16, 8, 4)) << (2));
1664     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
1665
1666   /* Record the fields for the semantic handler.  */
1667   FLD (f_Ri) = f_Ri;
1668   FLD (f_udisp6) = f_udisp6;
1669   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
1670   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_str15", "f_Ri 0x%x", 'x', f_Ri, "f_udisp6 0x%x", 'x', f_udisp6, "Ri 0x%x", 'x', f_Ri, (char *) 0));
1671
1672 #if WITH_PROFILE_MODEL_P
1673   /* Record the fields for profiling.  */
1674   if (PROFILE_MODEL_P (current_cpu))
1675     {
1676       FLD (in_Ri) = f_Ri;
1677       FLD (in_h_gr_15) = 15;
1678     }
1679 #endif
1680 #undef FLD
1681     return idesc;
1682   }
1683
1684  extract_sfmt_str15gr:
1685   {
1686     const IDESC *idesc = &fr30bf_insn_data[itype];
1687 #define FLD(f) abuf->fields.sfmt_str15gr.f
1688     UINT f_Ri;
1689
1690     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
1691
1692   /* Record the fields for the semantic handler.  */
1693   FLD (f_Ri) = f_Ri;
1694   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
1695   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_str15gr", "f_Ri 0x%x", 'x', f_Ri, "Ri 0x%x", 'x', f_Ri, (char *) 0));
1696
1697 #if WITH_PROFILE_MODEL_P
1698   /* Record the fields for profiling.  */
1699   if (PROFILE_MODEL_P (current_cpu))
1700     {
1701       FLD (in_Ri) = f_Ri;
1702       FLD (in_h_gr_15) = 15;
1703       FLD (out_h_gr_15) = 15;
1704     }
1705 #endif
1706 #undef FLD
1707     return idesc;
1708   }
1709
1710  extract_sfmt_str15dr:
1711   {
1712     const IDESC *idesc = &fr30bf_insn_data[itype];
1713 #define FLD(f) abuf->fields.sfmt_ldr15dr.f
1714     UINT f_Rs2;
1715
1716     f_Rs2 = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
1717
1718   /* Record the fields for the semantic handler.  */
1719   FLD (f_Rs2) = f_Rs2;
1720   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_str15dr", "f_Rs2 0x%x", 'x', f_Rs2, (char *) 0));
1721
1722 #if WITH_PROFILE_MODEL_P
1723   /* Record the fields for profiling.  */
1724   if (PROFILE_MODEL_P (current_cpu))
1725     {
1726       FLD (in_h_gr_15) = 15;
1727       FLD (out_h_gr_15) = 15;
1728     }
1729 #endif
1730 #undef FLD
1731     return idesc;
1732   }
1733
1734  extract_sfmt_str15ps:
1735   {
1736     const IDESC *idesc = &fr30bf_insn_data[itype];
1737 #define FLD(f) abuf->fields.sfmt_addsp.f
1738
1739
1740   /* Record the fields for the semantic handler.  */
1741   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_str15ps", (char *) 0));
1742
1743 #if WITH_PROFILE_MODEL_P
1744   /* Record the fields for profiling.  */
1745   if (PROFILE_MODEL_P (current_cpu))
1746     {
1747       FLD (in_h_gr_15) = 15;
1748       FLD (out_h_gr_15) = 15;
1749     }
1750 #endif
1751 #undef FLD
1752     return idesc;
1753   }
1754
1755  extract_sfmt_mov:
1756   {
1757     const IDESC *idesc = &fr30bf_insn_data[itype];
1758 #define FLD(f) abuf->fields.sfmt_ldr13.f
1759     UINT f_Rj;
1760     UINT f_Ri;
1761
1762     f_Rj = EXTRACT_MSB0_UINT (insn, 16, 8, 4);
1763     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
1764
1765   /* Record the fields for the semantic handler.  */
1766   FLD (f_Rj) = f_Rj;
1767   FLD (f_Ri) = f_Ri;
1768   FLD (i_Rj) = & CPU (h_gr)[f_Rj];
1769   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
1770   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_mov", "f_Rj 0x%x", 'x', f_Rj, "f_Ri 0x%x", 'x', f_Ri, "Rj 0x%x", 'x', f_Rj, "Ri 0x%x", 'x', f_Ri, (char *) 0));
1771
1772 #if WITH_PROFILE_MODEL_P
1773   /* Record the fields for profiling.  */
1774   if (PROFILE_MODEL_P (current_cpu))
1775     {
1776       FLD (in_Rj) = f_Rj;
1777       FLD (out_Ri) = f_Ri;
1778     }
1779 #endif
1780 #undef FLD
1781     return idesc;
1782   }
1783
1784  extract_sfmt_movdr:
1785   {
1786     const IDESC *idesc = &fr30bf_insn_data[itype];
1787 #define FLD(f) abuf->fields.sfmt_movdr.f
1788     UINT f_Rs1;
1789     UINT f_Ri;
1790
1791     f_Rs1 = EXTRACT_MSB0_UINT (insn, 16, 8, 4);
1792     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
1793
1794   /* Record the fields for the semantic handler.  */
1795   FLD (f_Rs1) = f_Rs1;
1796   FLD (f_Ri) = f_Ri;
1797   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
1798   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_movdr", "f_Rs1 0x%x", 'x', f_Rs1, "f_Ri 0x%x", 'x', f_Ri, "Ri 0x%x", 'x', f_Ri, (char *) 0));
1799
1800 #if WITH_PROFILE_MODEL_P
1801   /* Record the fields for profiling.  */
1802   if (PROFILE_MODEL_P (current_cpu))
1803     {
1804       FLD (out_Ri) = f_Ri;
1805     }
1806 #endif
1807 #undef FLD
1808     return idesc;
1809   }
1810
1811  extract_sfmt_movps:
1812   {
1813     const IDESC *idesc = &fr30bf_insn_data[itype];
1814 #define FLD(f) abuf->fields.sfmt_movdr.f
1815     UINT f_Ri;
1816
1817     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
1818
1819   /* Record the fields for the semantic handler.  */
1820   FLD (f_Ri) = f_Ri;
1821   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
1822   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_movps", "f_Ri 0x%x", 'x', f_Ri, "Ri 0x%x", 'x', f_Ri, (char *) 0));
1823
1824 #if WITH_PROFILE_MODEL_P
1825   /* Record the fields for profiling.  */
1826   if (PROFILE_MODEL_P (current_cpu))
1827     {
1828       FLD (out_Ri) = f_Ri;
1829     }
1830 #endif
1831 #undef FLD
1832     return idesc;
1833   }
1834
1835  extract_sfmt_mov2dr:
1836   {
1837     const IDESC *idesc = &fr30bf_insn_data[itype];
1838 #define FLD(f) abuf->fields.sfmt_mov2dr.f
1839     UINT f_Rs1;
1840     UINT f_Ri;
1841
1842     f_Rs1 = EXTRACT_MSB0_UINT (insn, 16, 8, 4);
1843     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
1844
1845   /* Record the fields for the semantic handler.  */
1846   FLD (f_Ri) = f_Ri;
1847   FLD (f_Rs1) = f_Rs1;
1848   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
1849   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_mov2dr", "f_Ri 0x%x", 'x', f_Ri, "f_Rs1 0x%x", 'x', f_Rs1, "Ri 0x%x", 'x', f_Ri, (char *) 0));
1850
1851 #if WITH_PROFILE_MODEL_P
1852   /* Record the fields for profiling.  */
1853   if (PROFILE_MODEL_P (current_cpu))
1854     {
1855       FLD (in_Ri) = f_Ri;
1856     }
1857 #endif
1858 #undef FLD
1859     return idesc;
1860   }
1861
1862  extract_sfmt_mov2ps:
1863   {
1864     const IDESC *idesc = &fr30bf_insn_data[itype];
1865 #define FLD(f) abuf->fields.sfmt_mov2dr.f
1866     UINT f_Ri;
1867
1868     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
1869
1870   /* Record the fields for the semantic handler.  */
1871   FLD (f_Ri) = f_Ri;
1872   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
1873   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_mov2ps", "f_Ri 0x%x", 'x', f_Ri, "Ri 0x%x", 'x', f_Ri, (char *) 0));
1874
1875 #if WITH_PROFILE_MODEL_P
1876   /* Record the fields for profiling.  */
1877   if (PROFILE_MODEL_P (current_cpu))
1878     {
1879       FLD (in_Ri) = f_Ri;
1880     }
1881 #endif
1882 #undef FLD
1883     return idesc;
1884   }
1885
1886  extract_sfmt_jmp:
1887   {
1888     const IDESC *idesc = &fr30bf_insn_data[itype];
1889 #define FLD(f) abuf->fields.sfmt_mov2dr.f
1890     UINT f_Ri;
1891
1892     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
1893
1894   /* Record the fields for the semantic handler.  */
1895   FLD (f_Ri) = f_Ri;
1896   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
1897   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_jmp", "f_Ri 0x%x", 'x', f_Ri, "Ri 0x%x", 'x', f_Ri, (char *) 0));
1898
1899 #if WITH_PROFILE_MODEL_P
1900   /* Record the fields for profiling.  */
1901   if (PROFILE_MODEL_P (current_cpu))
1902     {
1903       FLD (in_Ri) = f_Ri;
1904     }
1905 #endif
1906 #undef FLD
1907     return idesc;
1908   }
1909
1910  extract_sfmt_callr:
1911   {
1912     const IDESC *idesc = &fr30bf_insn_data[itype];
1913 #define FLD(f) abuf->fields.sfmt_mov2dr.f
1914     UINT f_Ri;
1915
1916     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
1917
1918   /* Record the fields for the semantic handler.  */
1919   FLD (f_Ri) = f_Ri;
1920   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
1921   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_callr", "f_Ri 0x%x", 'x', f_Ri, "Ri 0x%x", 'x', f_Ri, (char *) 0));
1922
1923 #if WITH_PROFILE_MODEL_P
1924   /* Record the fields for profiling.  */
1925   if (PROFILE_MODEL_P (current_cpu))
1926     {
1927       FLD (in_Ri) = f_Ri;
1928     }
1929 #endif
1930 #undef FLD
1931     return idesc;
1932   }
1933
1934  extract_sfmt_call:
1935   {
1936     const IDESC *idesc = &fr30bf_insn_data[itype];
1937 #define FLD(f) abuf->fields.sfmt_call.f
1938     SI f_rel12;
1939
1940     f_rel12 = ((((EXTRACT_MSB0_INT (insn, 16, 5, 11)) << (1))) + (((pc) + (2))));
1941
1942   /* Record the fields for the semantic handler.  */
1943   FLD (i_label12) = f_rel12;
1944   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_call", "label12 0x%x", 'x', f_rel12, (char *) 0));
1945
1946 #if WITH_PROFILE_MODEL_P
1947   /* Record the fields for profiling.  */
1948   if (PROFILE_MODEL_P (current_cpu))
1949     {
1950     }
1951 #endif
1952 #undef FLD
1953     return idesc;
1954   }
1955
1956  extract_sfmt_ret:
1957   {
1958     const IDESC *idesc = &fr30bf_insn_data[itype];
1959 #define FLD(f) abuf->fields.fmt_empty.f
1960
1961
1962   /* Record the fields for the semantic handler.  */
1963   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_ret", (char *) 0));
1964
1965 #if WITH_PROFILE_MODEL_P
1966   /* Record the fields for profiling.  */
1967   if (PROFILE_MODEL_P (current_cpu))
1968     {
1969     }
1970 #endif
1971 #undef FLD
1972     return idesc;
1973   }
1974
1975  extract_sfmt_int:
1976   {
1977     const IDESC *idesc = &fr30bf_insn_data[itype];
1978 #define FLD(f) abuf->fields.sfmt_int.f
1979     UINT f_u8;
1980
1981     f_u8 = EXTRACT_MSB0_UINT (insn, 16, 8, 8);
1982
1983   /* Record the fields for the semantic handler.  */
1984   FLD (f_u8) = f_u8;
1985   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_int", "f_u8 0x%x", 'x', f_u8, (char *) 0));
1986
1987 #if WITH_PROFILE_MODEL_P
1988   /* Record the fields for profiling.  */
1989   if (PROFILE_MODEL_P (current_cpu))
1990     {
1991     }
1992 #endif
1993 #undef FLD
1994     return idesc;
1995   }
1996
1997  extract_sfmt_inte:
1998   {
1999     const IDESC *idesc = &fr30bf_insn_data[itype];
2000 #define FLD(f) abuf->fields.fmt_empty.f
2001
2002
2003   /* Record the fields for the semantic handler.  */
2004   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_inte", (char *) 0));
2005
2006 #if WITH_PROFILE_MODEL_P
2007   /* Record the fields for profiling.  */
2008   if (PROFILE_MODEL_P (current_cpu))
2009     {
2010     }
2011 #endif
2012 #undef FLD
2013     return idesc;
2014   }
2015
2016  extract_sfmt_reti:
2017   {
2018     const IDESC *idesc = &fr30bf_insn_data[itype];
2019 #define FLD(f) abuf->fields.fmt_empty.f
2020
2021
2022   /* Record the fields for the semantic handler.  */
2023   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_reti", (char *) 0));
2024
2025 #if WITH_PROFILE_MODEL_P
2026   /* Record the fields for profiling.  */
2027   if (PROFILE_MODEL_P (current_cpu))
2028     {
2029     }
2030 #endif
2031 #undef FLD
2032     return idesc;
2033   }
2034
2035  extract_sfmt_brad:
2036   {
2037     const IDESC *idesc = &fr30bf_insn_data[itype];
2038 #define FLD(f) abuf->fields.sfmt_brad.f
2039     SI f_rel9;
2040
2041     f_rel9 = ((((EXTRACT_MSB0_INT (insn, 16, 8, 8)) << (1))) + (((pc) + (2))));
2042
2043   /* Record the fields for the semantic handler.  */
2044   FLD (i_label9) = f_rel9;
2045   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_brad", "label9 0x%x", 'x', f_rel9, (char *) 0));
2046
2047 #if WITH_PROFILE_MODEL_P
2048   /* Record the fields for profiling.  */
2049   if (PROFILE_MODEL_P (current_cpu))
2050     {
2051     }
2052 #endif
2053 #undef FLD
2054     return idesc;
2055   }
2056
2057  extract_sfmt_bnod:
2058   {
2059     const IDESC *idesc = &fr30bf_insn_data[itype];
2060 #define FLD(f) abuf->fields.fmt_empty.f
2061
2062
2063   /* Record the fields for the semantic handler.  */
2064   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_bnod", (char *) 0));
2065
2066 #undef FLD
2067     return idesc;
2068   }
2069
2070  extract_sfmt_beqd:
2071   {
2072     const IDESC *idesc = &fr30bf_insn_data[itype];
2073 #define FLD(f) abuf->fields.sfmt_brad.f
2074     SI f_rel9;
2075
2076     f_rel9 = ((((EXTRACT_MSB0_INT (insn, 16, 8, 8)) << (1))) + (((pc) + (2))));
2077
2078   /* Record the fields for the semantic handler.  */
2079   FLD (i_label9) = f_rel9;
2080   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_beqd", "label9 0x%x", 'x', f_rel9, (char *) 0));
2081
2082 #if WITH_PROFILE_MODEL_P
2083   /* Record the fields for profiling.  */
2084   if (PROFILE_MODEL_P (current_cpu))
2085     {
2086     }
2087 #endif
2088 #undef FLD
2089     return idesc;
2090   }
2091
2092  extract_sfmt_bcd:
2093   {
2094     const IDESC *idesc = &fr30bf_insn_data[itype];
2095 #define FLD(f) abuf->fields.sfmt_brad.f
2096     SI f_rel9;
2097
2098     f_rel9 = ((((EXTRACT_MSB0_INT (insn, 16, 8, 8)) << (1))) + (((pc) + (2))));
2099
2100   /* Record the fields for the semantic handler.  */
2101   FLD (i_label9) = f_rel9;
2102   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_bcd", "label9 0x%x", 'x', f_rel9, (char *) 0));
2103
2104 #if WITH_PROFILE_MODEL_P
2105   /* Record the fields for profiling.  */
2106   if (PROFILE_MODEL_P (current_cpu))
2107     {
2108     }
2109 #endif
2110 #undef FLD
2111     return idesc;
2112   }
2113
2114  extract_sfmt_bnd:
2115   {
2116     const IDESC *idesc = &fr30bf_insn_data[itype];
2117 #define FLD(f) abuf->fields.sfmt_brad.f
2118     SI f_rel9;
2119
2120     f_rel9 = ((((EXTRACT_MSB0_INT (insn, 16, 8, 8)) << (1))) + (((pc) + (2))));
2121
2122   /* Record the fields for the semantic handler.  */
2123   FLD (i_label9) = f_rel9;
2124   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_bnd", "label9 0x%x", 'x', f_rel9, (char *) 0));
2125
2126 #if WITH_PROFILE_MODEL_P
2127   /* Record the fields for profiling.  */
2128   if (PROFILE_MODEL_P (current_cpu))
2129     {
2130     }
2131 #endif
2132 #undef FLD
2133     return idesc;
2134   }
2135
2136  extract_sfmt_bvd:
2137   {
2138     const IDESC *idesc = &fr30bf_insn_data[itype];
2139 #define FLD(f) abuf->fields.sfmt_brad.f
2140     SI f_rel9;
2141
2142     f_rel9 = ((((EXTRACT_MSB0_INT (insn, 16, 8, 8)) << (1))) + (((pc) + (2))));
2143
2144   /* Record the fields for the semantic handler.  */
2145   FLD (i_label9) = f_rel9;
2146   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_bvd", "label9 0x%x", 'x', f_rel9, (char *) 0));
2147
2148 #if WITH_PROFILE_MODEL_P
2149   /* Record the fields for profiling.  */
2150   if (PROFILE_MODEL_P (current_cpu))
2151     {
2152     }
2153 #endif
2154 #undef FLD
2155     return idesc;
2156   }
2157
2158  extract_sfmt_bltd:
2159   {
2160     const IDESC *idesc = &fr30bf_insn_data[itype];
2161 #define FLD(f) abuf->fields.sfmt_brad.f
2162     SI f_rel9;
2163
2164     f_rel9 = ((((EXTRACT_MSB0_INT (insn, 16, 8, 8)) << (1))) + (((pc) + (2))));
2165
2166   /* Record the fields for the semantic handler.  */
2167   FLD (i_label9) = f_rel9;
2168   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_bltd", "label9 0x%x", 'x', f_rel9, (char *) 0));
2169
2170 #if WITH_PROFILE_MODEL_P
2171   /* Record the fields for profiling.  */
2172   if (PROFILE_MODEL_P (current_cpu))
2173     {
2174     }
2175 #endif
2176 #undef FLD
2177     return idesc;
2178   }
2179
2180  extract_sfmt_bled:
2181   {
2182     const IDESC *idesc = &fr30bf_insn_data[itype];
2183 #define FLD(f) abuf->fields.sfmt_brad.f
2184     SI f_rel9;
2185
2186     f_rel9 = ((((EXTRACT_MSB0_INT (insn, 16, 8, 8)) << (1))) + (((pc) + (2))));
2187
2188   /* Record the fields for the semantic handler.  */
2189   FLD (i_label9) = f_rel9;
2190   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_bled", "label9 0x%x", 'x', f_rel9, (char *) 0));
2191
2192 #if WITH_PROFILE_MODEL_P
2193   /* Record the fields for profiling.  */
2194   if (PROFILE_MODEL_P (current_cpu))
2195     {
2196     }
2197 #endif
2198 #undef FLD
2199     return idesc;
2200   }
2201
2202  extract_sfmt_blsd:
2203   {
2204     const IDESC *idesc = &fr30bf_insn_data[itype];
2205 #define FLD(f) abuf->fields.sfmt_brad.f
2206     SI f_rel9;
2207
2208     f_rel9 = ((((EXTRACT_MSB0_INT (insn, 16, 8, 8)) << (1))) + (((pc) + (2))));
2209
2210   /* Record the fields for the semantic handler.  */
2211   FLD (i_label9) = f_rel9;
2212   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_blsd", "label9 0x%x", 'x', f_rel9, (char *) 0));
2213
2214 #if WITH_PROFILE_MODEL_P
2215   /* Record the fields for profiling.  */
2216   if (PROFILE_MODEL_P (current_cpu))
2217     {
2218     }
2219 #endif
2220 #undef FLD
2221     return idesc;
2222   }
2223
2224  extract_sfmt_dmovr13:
2225   {
2226     const IDESC *idesc = &fr30bf_insn_data[itype];
2227 #define FLD(f) abuf->fields.sfmt_dmovr13pi.f
2228     USI f_dir10;
2229
2230     f_dir10 = ((EXTRACT_MSB0_UINT (insn, 16, 8, 8)) << (2));
2231
2232   /* Record the fields for the semantic handler.  */
2233   FLD (f_dir10) = f_dir10;
2234   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_dmovr13", "f_dir10 0x%x", 'x', f_dir10, (char *) 0));
2235
2236 #if WITH_PROFILE_MODEL_P
2237   /* Record the fields for profiling.  */
2238   if (PROFILE_MODEL_P (current_cpu))
2239     {
2240       FLD (in_h_gr_13) = 13;
2241     }
2242 #endif
2243 #undef FLD
2244     return idesc;
2245   }
2246
2247  extract_sfmt_dmovr13h:
2248   {
2249     const IDESC *idesc = &fr30bf_insn_data[itype];
2250 #define FLD(f) abuf->fields.sfmt_dmovr13pih.f
2251     USI f_dir9;
2252
2253     f_dir9 = ((EXTRACT_MSB0_UINT (insn, 16, 8, 8)) << (1));
2254
2255   /* Record the fields for the semantic handler.  */
2256   FLD (f_dir9) = f_dir9;
2257   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_dmovr13h", "f_dir9 0x%x", 'x', f_dir9, (char *) 0));
2258
2259 #if WITH_PROFILE_MODEL_P
2260   /* Record the fields for profiling.  */
2261   if (PROFILE_MODEL_P (current_cpu))
2262     {
2263       FLD (in_h_gr_13) = 13;
2264     }
2265 #endif
2266 #undef FLD
2267     return idesc;
2268   }
2269
2270  extract_sfmt_dmovr13b:
2271   {
2272     const IDESC *idesc = &fr30bf_insn_data[itype];
2273 #define FLD(f) abuf->fields.sfmt_dmovr13pib.f
2274     UINT f_dir8;
2275
2276     f_dir8 = EXTRACT_MSB0_UINT (insn, 16, 8, 8);
2277
2278   /* Record the fields for the semantic handler.  */
2279   FLD (f_dir8) = f_dir8;
2280   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_dmovr13b", "f_dir8 0x%x", 'x', f_dir8, (char *) 0));
2281
2282 #if WITH_PROFILE_MODEL_P
2283   /* Record the fields for profiling.  */
2284   if (PROFILE_MODEL_P (current_cpu))
2285     {
2286       FLD (in_h_gr_13) = 13;
2287     }
2288 #endif
2289 #undef FLD
2290     return idesc;
2291   }
2292
2293  extract_sfmt_dmovr13pi:
2294   {
2295     const IDESC *idesc = &fr30bf_insn_data[itype];
2296 #define FLD(f) abuf->fields.sfmt_dmovr13pi.f
2297     USI f_dir10;
2298
2299     f_dir10 = ((EXTRACT_MSB0_UINT (insn, 16, 8, 8)) << (2));
2300
2301   /* Record the fields for the semantic handler.  */
2302   FLD (f_dir10) = f_dir10;
2303   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_dmovr13pi", "f_dir10 0x%x", 'x', f_dir10, (char *) 0));
2304
2305 #if WITH_PROFILE_MODEL_P
2306   /* Record the fields for profiling.  */
2307   if (PROFILE_MODEL_P (current_cpu))
2308     {
2309       FLD (in_h_gr_13) = 13;
2310       FLD (out_h_gr_13) = 13;
2311     }
2312 #endif
2313 #undef FLD
2314     return idesc;
2315   }
2316
2317  extract_sfmt_dmovr13pih:
2318   {
2319     const IDESC *idesc = &fr30bf_insn_data[itype];
2320 #define FLD(f) abuf->fields.sfmt_dmovr13pih.f
2321     USI f_dir9;
2322
2323     f_dir9 = ((EXTRACT_MSB0_UINT (insn, 16, 8, 8)) << (1));
2324
2325   /* Record the fields for the semantic handler.  */
2326   FLD (f_dir9) = f_dir9;
2327   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_dmovr13pih", "f_dir9 0x%x", 'x', f_dir9, (char *) 0));
2328
2329 #if WITH_PROFILE_MODEL_P
2330   /* Record the fields for profiling.  */
2331   if (PROFILE_MODEL_P (current_cpu))
2332     {
2333       FLD (in_h_gr_13) = 13;
2334       FLD (out_h_gr_13) = 13;
2335     }
2336 #endif
2337 #undef FLD
2338     return idesc;
2339   }
2340
2341  extract_sfmt_dmovr13pib:
2342   {
2343     const IDESC *idesc = &fr30bf_insn_data[itype];
2344 #define FLD(f) abuf->fields.sfmt_dmovr13pib.f
2345     UINT f_dir8;
2346
2347     f_dir8 = EXTRACT_MSB0_UINT (insn, 16, 8, 8);
2348
2349   /* Record the fields for the semantic handler.  */
2350   FLD (f_dir8) = f_dir8;
2351   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_dmovr13pib", "f_dir8 0x%x", 'x', f_dir8, (char *) 0));
2352
2353 #if WITH_PROFILE_MODEL_P
2354   /* Record the fields for profiling.  */
2355   if (PROFILE_MODEL_P (current_cpu))
2356     {
2357       FLD (in_h_gr_13) = 13;
2358       FLD (out_h_gr_13) = 13;
2359     }
2360 #endif
2361 #undef FLD
2362     return idesc;
2363   }
2364
2365  extract_sfmt_dmovr15pi:
2366   {
2367     const IDESC *idesc = &fr30bf_insn_data[itype];
2368 #define FLD(f) abuf->fields.sfmt_dmovr15pi.f
2369     USI f_dir10;
2370
2371     f_dir10 = ((EXTRACT_MSB0_UINT (insn, 16, 8, 8)) << (2));
2372
2373   /* Record the fields for the semantic handler.  */
2374   FLD (f_dir10) = f_dir10;
2375   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_dmovr15pi", "f_dir10 0x%x", 'x', f_dir10, (char *) 0));
2376
2377 #if WITH_PROFILE_MODEL_P
2378   /* Record the fields for profiling.  */
2379   if (PROFILE_MODEL_P (current_cpu))
2380     {
2381       FLD (in_h_gr_15) = 15;
2382       FLD (out_h_gr_15) = 15;
2383     }
2384 #endif
2385 #undef FLD
2386     return idesc;
2387   }
2388
2389  extract_sfmt_dmov2r13:
2390   {
2391     const IDESC *idesc = &fr30bf_insn_data[itype];
2392 #define FLD(f) abuf->fields.sfmt_dmovr13pi.f
2393     USI f_dir10;
2394
2395     f_dir10 = ((EXTRACT_MSB0_UINT (insn, 16, 8, 8)) << (2));
2396
2397   /* Record the fields for the semantic handler.  */
2398   FLD (f_dir10) = f_dir10;
2399   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_dmov2r13", "f_dir10 0x%x", 'x', f_dir10, (char *) 0));
2400
2401 #if WITH_PROFILE_MODEL_P
2402   /* Record the fields for profiling.  */
2403   if (PROFILE_MODEL_P (current_cpu))
2404     {
2405       FLD (out_h_gr_13) = 13;
2406     }
2407 #endif
2408 #undef FLD
2409     return idesc;
2410   }
2411
2412  extract_sfmt_dmov2r13h:
2413   {
2414     const IDESC *idesc = &fr30bf_insn_data[itype];
2415 #define FLD(f) abuf->fields.sfmt_dmovr13pih.f
2416     USI f_dir9;
2417
2418     f_dir9 = ((EXTRACT_MSB0_UINT (insn, 16, 8, 8)) << (1));
2419
2420   /* Record the fields for the semantic handler.  */
2421   FLD (f_dir9) = f_dir9;
2422   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_dmov2r13h", "f_dir9 0x%x", 'x', f_dir9, (char *) 0));
2423
2424 #if WITH_PROFILE_MODEL_P
2425   /* Record the fields for profiling.  */
2426   if (PROFILE_MODEL_P (current_cpu))
2427     {
2428       FLD (out_h_gr_13) = 13;
2429     }
2430 #endif
2431 #undef FLD
2432     return idesc;
2433   }
2434
2435  extract_sfmt_dmov2r13b:
2436   {
2437     const IDESC *idesc = &fr30bf_insn_data[itype];
2438 #define FLD(f) abuf->fields.sfmt_dmovr13pib.f
2439     UINT f_dir8;
2440
2441     f_dir8 = EXTRACT_MSB0_UINT (insn, 16, 8, 8);
2442
2443   /* Record the fields for the semantic handler.  */
2444   FLD (f_dir8) = f_dir8;
2445   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_dmov2r13b", "f_dir8 0x%x", 'x', f_dir8, (char *) 0));
2446
2447 #if WITH_PROFILE_MODEL_P
2448   /* Record the fields for profiling.  */
2449   if (PROFILE_MODEL_P (current_cpu))
2450     {
2451       FLD (out_h_gr_13) = 13;
2452     }
2453 #endif
2454 #undef FLD
2455     return idesc;
2456   }
2457
2458  extract_sfmt_dmov2r13pi:
2459   {
2460     const IDESC *idesc = &fr30bf_insn_data[itype];
2461 #define FLD(f) abuf->fields.sfmt_dmovr13pi.f
2462     USI f_dir10;
2463
2464     f_dir10 = ((EXTRACT_MSB0_UINT (insn, 16, 8, 8)) << (2));
2465
2466   /* Record the fields for the semantic handler.  */
2467   FLD (f_dir10) = f_dir10;
2468   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_dmov2r13pi", "f_dir10 0x%x", 'x', f_dir10, (char *) 0));
2469
2470 #if WITH_PROFILE_MODEL_P
2471   /* Record the fields for profiling.  */
2472   if (PROFILE_MODEL_P (current_cpu))
2473     {
2474       FLD (in_h_gr_13) = 13;
2475       FLD (out_h_gr_13) = 13;
2476     }
2477 #endif
2478 #undef FLD
2479     return idesc;
2480   }
2481
2482  extract_sfmt_dmov2r13pih:
2483   {
2484     const IDESC *idesc = &fr30bf_insn_data[itype];
2485 #define FLD(f) abuf->fields.sfmt_dmovr13pih.f
2486     USI f_dir9;
2487
2488     f_dir9 = ((EXTRACT_MSB0_UINT (insn, 16, 8, 8)) << (1));
2489
2490   /* Record the fields for the semantic handler.  */
2491   FLD (f_dir9) = f_dir9;
2492   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_dmov2r13pih", "f_dir9 0x%x", 'x', f_dir9, (char *) 0));
2493
2494 #if WITH_PROFILE_MODEL_P
2495   /* Record the fields for profiling.  */
2496   if (PROFILE_MODEL_P (current_cpu))
2497     {
2498       FLD (in_h_gr_13) = 13;
2499       FLD (out_h_gr_13) = 13;
2500     }
2501 #endif
2502 #undef FLD
2503     return idesc;
2504   }
2505
2506  extract_sfmt_dmov2r13pib:
2507   {
2508     const IDESC *idesc = &fr30bf_insn_data[itype];
2509 #define FLD(f) abuf->fields.sfmt_dmovr13pib.f
2510     UINT f_dir8;
2511
2512     f_dir8 = EXTRACT_MSB0_UINT (insn, 16, 8, 8);
2513
2514   /* Record the fields for the semantic handler.  */
2515   FLD (f_dir8) = f_dir8;
2516   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_dmov2r13pib", "f_dir8 0x%x", 'x', f_dir8, (char *) 0));
2517
2518 #if WITH_PROFILE_MODEL_P
2519   /* Record the fields for profiling.  */
2520   if (PROFILE_MODEL_P (current_cpu))
2521     {
2522       FLD (in_h_gr_13) = 13;
2523       FLD (out_h_gr_13) = 13;
2524     }
2525 #endif
2526 #undef FLD
2527     return idesc;
2528   }
2529
2530  extract_sfmt_dmov2r15pd:
2531   {
2532     const IDESC *idesc = &fr30bf_insn_data[itype];
2533 #define FLD(f) abuf->fields.sfmt_dmovr15pi.f
2534     USI f_dir10;
2535
2536     f_dir10 = ((EXTRACT_MSB0_UINT (insn, 16, 8, 8)) << (2));
2537
2538   /* Record the fields for the semantic handler.  */
2539   FLD (f_dir10) = f_dir10;
2540   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_dmov2r15pd", "f_dir10 0x%x", 'x', f_dir10, (char *) 0));
2541
2542 #if WITH_PROFILE_MODEL_P
2543   /* Record the fields for profiling.  */
2544   if (PROFILE_MODEL_P (current_cpu))
2545     {
2546       FLD (in_h_gr_15) = 15;
2547       FLD (out_h_gr_15) = 15;
2548     }
2549 #endif
2550 #undef FLD
2551     return idesc;
2552   }
2553
2554  extract_sfmt_ldres:
2555   {
2556     const IDESC *idesc = &fr30bf_insn_data[itype];
2557 #define FLD(f) abuf->fields.sfmt_add2.f
2558     UINT f_Ri;
2559
2560     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
2561
2562   /* Record the fields for the semantic handler.  */
2563   FLD (f_Ri) = f_Ri;
2564   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
2565   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_ldres", "f_Ri 0x%x", 'x', f_Ri, "Ri 0x%x", 'x', f_Ri, (char *) 0));
2566
2567 #if WITH_PROFILE_MODEL_P
2568   /* Record the fields for profiling.  */
2569   if (PROFILE_MODEL_P (current_cpu))
2570     {
2571       FLD (in_Ri) = f_Ri;
2572       FLD (out_Ri) = f_Ri;
2573     }
2574 #endif
2575 #undef FLD
2576     return idesc;
2577   }
2578
2579  extract_sfmt_copop:
2580   {
2581     const IDESC *idesc = &fr30bf_insn_data[itype];
2582 #define FLD(f) abuf->fields.fmt_empty.f
2583     /* Contents of trailing part of insn.  */
2584     UINT word_1;
2585
2586   word_1 = GETIMEMUHI (current_cpu, pc + 2);
2587
2588   /* Record the fields for the semantic handler.  */
2589   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_copop", (char *) 0));
2590
2591 #undef FLD
2592     return idesc;
2593   }
2594
2595  extract_sfmt_andccr:
2596   {
2597     const IDESC *idesc = &fr30bf_insn_data[itype];
2598 #define FLD(f) abuf->fields.sfmt_int.f
2599     UINT f_u8;
2600
2601     f_u8 = EXTRACT_MSB0_UINT (insn, 16, 8, 8);
2602
2603   /* Record the fields for the semantic handler.  */
2604   FLD (f_u8) = f_u8;
2605   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_andccr", "f_u8 0x%x", 'x', f_u8, (char *) 0));
2606
2607 #undef FLD
2608     return idesc;
2609   }
2610
2611  extract_sfmt_stilm:
2612   {
2613     const IDESC *idesc = &fr30bf_insn_data[itype];
2614 #define FLD(f) abuf->fields.sfmt_int.f
2615     UINT f_u8;
2616
2617     f_u8 = EXTRACT_MSB0_UINT (insn, 16, 8, 8);
2618
2619   /* Record the fields for the semantic handler.  */
2620   FLD (f_u8) = f_u8;
2621   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_stilm", "f_u8 0x%x", 'x', f_u8, (char *) 0));
2622
2623 #undef FLD
2624     return idesc;
2625   }
2626
2627  extract_sfmt_addsp:
2628   {
2629     const IDESC *idesc = &fr30bf_insn_data[itype];
2630 #define FLD(f) abuf->fields.sfmt_addsp.f
2631     SI f_s10;
2632
2633     f_s10 = ((EXTRACT_MSB0_INT (insn, 16, 8, 8)) << (2));
2634
2635   /* Record the fields for the semantic handler.  */
2636   FLD (f_s10) = f_s10;
2637   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_addsp", "f_s10 0x%x", 'x', f_s10, (char *) 0));
2638
2639 #if WITH_PROFILE_MODEL_P
2640   /* Record the fields for profiling.  */
2641   if (PROFILE_MODEL_P (current_cpu))
2642     {
2643       FLD (in_h_gr_15) = 15;
2644       FLD (out_h_gr_15) = 15;
2645     }
2646 #endif
2647 #undef FLD
2648     return idesc;
2649   }
2650
2651  extract_sfmt_extsb:
2652   {
2653     const IDESC *idesc = &fr30bf_insn_data[itype];
2654 #define FLD(f) abuf->fields.sfmt_add2.f
2655     UINT f_Ri;
2656
2657     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
2658
2659   /* Record the fields for the semantic handler.  */
2660   FLD (f_Ri) = f_Ri;
2661   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
2662   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_extsb", "f_Ri 0x%x", 'x', f_Ri, "Ri 0x%x", 'x', f_Ri, (char *) 0));
2663
2664 #if WITH_PROFILE_MODEL_P
2665   /* Record the fields for profiling.  */
2666   if (PROFILE_MODEL_P (current_cpu))
2667     {
2668       FLD (in_Ri) = f_Ri;
2669       FLD (out_Ri) = f_Ri;
2670     }
2671 #endif
2672 #undef FLD
2673     return idesc;
2674   }
2675
2676  extract_sfmt_extub:
2677   {
2678     const IDESC *idesc = &fr30bf_insn_data[itype];
2679 #define FLD(f) abuf->fields.sfmt_add2.f
2680     UINT f_Ri;
2681
2682     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
2683
2684   /* Record the fields for the semantic handler.  */
2685   FLD (f_Ri) = f_Ri;
2686   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
2687   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_extub", "f_Ri 0x%x", 'x', f_Ri, "Ri 0x%x", 'x', f_Ri, (char *) 0));
2688
2689 #if WITH_PROFILE_MODEL_P
2690   /* Record the fields for profiling.  */
2691   if (PROFILE_MODEL_P (current_cpu))
2692     {
2693       FLD (in_Ri) = f_Ri;
2694       FLD (out_Ri) = f_Ri;
2695     }
2696 #endif
2697 #undef FLD
2698     return idesc;
2699   }
2700
2701  extract_sfmt_extsh:
2702   {
2703     const IDESC *idesc = &fr30bf_insn_data[itype];
2704 #define FLD(f) abuf->fields.sfmt_add2.f
2705     UINT f_Ri;
2706
2707     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
2708
2709   /* Record the fields for the semantic handler.  */
2710   FLD (f_Ri) = f_Ri;
2711   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
2712   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_extsh", "f_Ri 0x%x", 'x', f_Ri, "Ri 0x%x", 'x', f_Ri, (char *) 0));
2713
2714 #if WITH_PROFILE_MODEL_P
2715   /* Record the fields for profiling.  */
2716   if (PROFILE_MODEL_P (current_cpu))
2717     {
2718       FLD (in_Ri) = f_Ri;
2719       FLD (out_Ri) = f_Ri;
2720     }
2721 #endif
2722 #undef FLD
2723     return idesc;
2724   }
2725
2726  extract_sfmt_extuh:
2727   {
2728     const IDESC *idesc = &fr30bf_insn_data[itype];
2729 #define FLD(f) abuf->fields.sfmt_add2.f
2730     UINT f_Ri;
2731
2732     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
2733
2734   /* Record the fields for the semantic handler.  */
2735   FLD (f_Ri) = f_Ri;
2736   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
2737   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_extuh", "f_Ri 0x%x", 'x', f_Ri, "Ri 0x%x", 'x', f_Ri, (char *) 0));
2738
2739 #if WITH_PROFILE_MODEL_P
2740   /* Record the fields for profiling.  */
2741   if (PROFILE_MODEL_P (current_cpu))
2742     {
2743       FLD (in_Ri) = f_Ri;
2744       FLD (out_Ri) = f_Ri;
2745     }
2746 #endif
2747 #undef FLD
2748     return idesc;
2749   }
2750
2751  extract_sfmt_ldm0:
2752   {
2753     const IDESC *idesc = &fr30bf_insn_data[itype];
2754 #define FLD(f) abuf->fields.sfmt_ldm0.f
2755     UINT f_reglist_low_ld;
2756
2757     f_reglist_low_ld = EXTRACT_MSB0_UINT (insn, 16, 8, 8);
2758
2759   /* Record the fields for the semantic handler.  */
2760   FLD (f_reglist_low_ld) = f_reglist_low_ld;
2761   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_ldm0", "f_reglist_low_ld 0x%x", 'x', f_reglist_low_ld, (char *) 0));
2762
2763 #if WITH_PROFILE_MODEL_P
2764   /* Record the fields for profiling.  */
2765   if (PROFILE_MODEL_P (current_cpu))
2766     {
2767       FLD (in_h_gr_15) = 15;
2768       FLD (out_h_gr_0) = 0;
2769       FLD (out_h_gr_1) = 1;
2770       FLD (out_h_gr_15) = 15;
2771       FLD (out_h_gr_2) = 2;
2772       FLD (out_h_gr_3) = 3;
2773       FLD (out_h_gr_4) = 4;
2774       FLD (out_h_gr_5) = 5;
2775       FLD (out_h_gr_6) = 6;
2776       FLD (out_h_gr_7) = 7;
2777     }
2778 #endif
2779 #undef FLD
2780     return idesc;
2781   }
2782
2783  extract_sfmt_ldm1:
2784   {
2785     const IDESC *idesc = &fr30bf_insn_data[itype];
2786 #define FLD(f) abuf->fields.sfmt_ldm1.f
2787     UINT f_reglist_hi_ld;
2788
2789     f_reglist_hi_ld = EXTRACT_MSB0_UINT (insn, 16, 8, 8);
2790
2791   /* Record the fields for the semantic handler.  */
2792   FLD (f_reglist_hi_ld) = f_reglist_hi_ld;
2793   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_ldm1", "f_reglist_hi_ld 0x%x", 'x', f_reglist_hi_ld, (char *) 0));
2794
2795 #if WITH_PROFILE_MODEL_P
2796   /* Record the fields for profiling.  */
2797   if (PROFILE_MODEL_P (current_cpu))
2798     {
2799       FLD (in_h_gr_15) = 15;
2800       FLD (out_h_gr_10) = 10;
2801       FLD (out_h_gr_11) = 11;
2802       FLD (out_h_gr_12) = 12;
2803       FLD (out_h_gr_13) = 13;
2804       FLD (out_h_gr_14) = 14;
2805       FLD (out_h_gr_15) = 15;
2806       FLD (out_h_gr_8) = 8;
2807       FLD (out_h_gr_9) = 9;
2808     }
2809 #endif
2810 #undef FLD
2811     return idesc;
2812   }
2813
2814  extract_sfmt_stm0:
2815   {
2816     const IDESC *idesc = &fr30bf_insn_data[itype];
2817 #define FLD(f) abuf->fields.sfmt_stm0.f
2818     UINT f_reglist_low_st;
2819
2820     f_reglist_low_st = EXTRACT_MSB0_UINT (insn, 16, 8, 8);
2821
2822   /* Record the fields for the semantic handler.  */
2823   FLD (f_reglist_low_st) = f_reglist_low_st;
2824   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_stm0", "f_reglist_low_st 0x%x", 'x', f_reglist_low_st, (char *) 0));
2825
2826 #if WITH_PROFILE_MODEL_P
2827   /* Record the fields for profiling.  */
2828   if (PROFILE_MODEL_P (current_cpu))
2829     {
2830       FLD (in_h_gr_0) = 0;
2831       FLD (in_h_gr_1) = 1;
2832       FLD (in_h_gr_15) = 15;
2833       FLD (in_h_gr_2) = 2;
2834       FLD (in_h_gr_3) = 3;
2835       FLD (in_h_gr_4) = 4;
2836       FLD (in_h_gr_5) = 5;
2837       FLD (in_h_gr_6) = 6;
2838       FLD (in_h_gr_7) = 7;
2839       FLD (out_h_gr_15) = 15;
2840     }
2841 #endif
2842 #undef FLD
2843     return idesc;
2844   }
2845
2846  extract_sfmt_stm1:
2847   {
2848     const IDESC *idesc = &fr30bf_insn_data[itype];
2849 #define FLD(f) abuf->fields.sfmt_stm1.f
2850     UINT f_reglist_hi_st;
2851
2852     f_reglist_hi_st = EXTRACT_MSB0_UINT (insn, 16, 8, 8);
2853
2854   /* Record the fields for the semantic handler.  */
2855   FLD (f_reglist_hi_st) = f_reglist_hi_st;
2856   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_stm1", "f_reglist_hi_st 0x%x", 'x', f_reglist_hi_st, (char *) 0));
2857
2858 #if WITH_PROFILE_MODEL_P
2859   /* Record the fields for profiling.  */
2860   if (PROFILE_MODEL_P (current_cpu))
2861     {
2862       FLD (in_h_gr_10) = 10;
2863       FLD (in_h_gr_11) = 11;
2864       FLD (in_h_gr_12) = 12;
2865       FLD (in_h_gr_13) = 13;
2866       FLD (in_h_gr_14) = 14;
2867       FLD (in_h_gr_15) = 15;
2868       FLD (in_h_gr_8) = 8;
2869       FLD (in_h_gr_9) = 9;
2870       FLD (out_h_gr_15) = 15;
2871     }
2872 #endif
2873 #undef FLD
2874     return idesc;
2875   }
2876
2877  extract_sfmt_enter:
2878   {
2879     const IDESC *idesc = &fr30bf_insn_data[itype];
2880 #define FLD(f) abuf->fields.sfmt_enter.f
2881     USI f_u10;
2882
2883     f_u10 = ((EXTRACT_MSB0_UINT (insn, 16, 8, 8)) << (2));
2884
2885   /* Record the fields for the semantic handler.  */
2886   FLD (f_u10) = f_u10;
2887   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_enter", "f_u10 0x%x", 'x', f_u10, (char *) 0));
2888
2889 #if WITH_PROFILE_MODEL_P
2890   /* Record the fields for profiling.  */
2891   if (PROFILE_MODEL_P (current_cpu))
2892     {
2893       FLD (in_h_gr_14) = 14;
2894       FLD (in_h_gr_15) = 15;
2895       FLD (out_h_gr_14) = 14;
2896       FLD (out_h_gr_15) = 15;
2897     }
2898 #endif
2899 #undef FLD
2900     return idesc;
2901   }
2902
2903  extract_sfmt_leave:
2904   {
2905     const IDESC *idesc = &fr30bf_insn_data[itype];
2906 #define FLD(f) abuf->fields.sfmt_enter.f
2907
2908
2909   /* Record the fields for the semantic handler.  */
2910   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_leave", (char *) 0));
2911
2912 #if WITH_PROFILE_MODEL_P
2913   /* Record the fields for profiling.  */
2914   if (PROFILE_MODEL_P (current_cpu))
2915     {
2916       FLD (in_h_gr_14) = 14;
2917       FLD (in_h_gr_15) = 15;
2918       FLD (out_h_gr_14) = 14;
2919       FLD (out_h_gr_15) = 15;
2920     }
2921 #endif
2922 #undef FLD
2923     return idesc;
2924   }
2925
2926  extract_sfmt_xchb:
2927   {
2928     const IDESC *idesc = &fr30bf_insn_data[itype];
2929 #define FLD(f) abuf->fields.sfmt_add.f
2930     UINT f_Rj;
2931     UINT f_Ri;
2932
2933     f_Rj = EXTRACT_MSB0_UINT (insn, 16, 8, 4);
2934     f_Ri = EXTRACT_MSB0_UINT (insn, 16, 12, 4);
2935
2936   /* Record the fields for the semantic handler.  */
2937   FLD (f_Ri) = f_Ri;
2938   FLD (f_Rj) = f_Rj;
2939   FLD (i_Ri) = & CPU (h_gr)[f_Ri];
2940   FLD (i_Rj) = & CPU (h_gr)[f_Rj];
2941   TRACE_EXTRACT (current_cpu, abuf, (current_cpu, pc, "sfmt_xchb", "f_Ri 0x%x", 'x', f_Ri, "f_Rj 0x%x", 'x', f_Rj, "Ri 0x%x", 'x', f_Ri, "Rj 0x%x", 'x', f_Rj, (char *) 0));
2942
2943 #if WITH_PROFILE_MODEL_P
2944   /* Record the fields for profiling.  */
2945   if (PROFILE_MODEL_P (current_cpu))
2946     {
2947       FLD (in_Ri) = f_Ri;
2948       FLD (in_Rj) = f_Rj;
2949       FLD (out_Ri) = f_Ri;
2950     }
2951 #endif
2952 #undef FLD
2953     return idesc;
2954   }
2955
2956 }