opcodes/mep-ibld.c

   1 /* Instruction building/extraction support for mep. -*- C -*-
   2
   3    THIS FILE IS MACHINE GENERATED WITH CGEN: Cpu tools GENerator.
   4    - the resultant file is machine generated, cgen-ibld.in isn't
   5
   6    Copyright 1996, 1997, 1998, 1999, 2000, 2001, 2005, 2006, 2007,
   7    2008, 2010  Free Software Foundation, Inc.
   8
   9    This file is part of libopcodes.
  10
  11    This library is free software; you can redistribute it and/or modify
  12    it under the terms of the GNU General Public License as published by
  13    the Free Software Foundation; either version 3, or (at your option)
  14    any later version.
  15
  16    It is distributed in the hope that it will be useful, but WITHOUT
  17    ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
  18    or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
  19    License for more details.
  20
  21    You should have received a copy of the GNU General Public License
  22    along with this program; if not, write to the Free Software Foundation, Inc.,
  23    51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.  */
  24
  25 /* ??? Eventually more and more of this stuff can go to cpu-independent files.
  26    Keep that in mind.  */
  27
  28 #include "sysdep.h"
  29 #include <stdio.h>
  30 #include "ansidecl.h"
  31 #include "dis-asm.h"
  32 #include "bfd.h"
  33 #include "symcat.h"
  34 #include "mep-desc.h"
  35 #include "mep-opc.h"
  36 #include "cgen/basic-modes.h"
  37 #include "opintl.h"
  38 #include "safe-ctype.h"
  39
  40 #undef  min
  41 #define min(a,b) ((a) < (b) ? (a) : (b))
  42 #undef  max
  43 #define max(a,b) ((a) > (b) ? (a) : (b))
  44
  45 /* Used by the ifield rtx function.  */
  46 #define FLD(f) (fields->f)
  47
  48 static const char * insert_normal
  49   (CGEN_CPU_DESC, long, unsigned int, unsigned int, unsigned int,
  50    unsigned int, unsigned int, unsigned int, CGEN_INSN_BYTES_PTR);
  51 static const char * insert_insn_normal
  52   (CGEN_CPU_DESC, const CGEN_INSN *,
  53    CGEN_FIELDS *, CGEN_INSN_BYTES_PTR, bfd_vma);
  54 static int extract_normal
  55   (CGEN_CPU_DESC, CGEN_EXTRACT_INFO *, CGEN_INSN_INT,
  56    unsigned int, unsigned int, unsigned int, unsigned int,
  57    unsigned int, unsigned int, bfd_vma, long *);
  58 static int extract_insn_normal
  59   (CGEN_CPU_DESC, const CGEN_INSN *, CGEN_EXTRACT_INFO *,
  60    CGEN_INSN_INT, CGEN_FIELDS *, bfd_vma);
  61 #if CGEN_INT_INSN_P
  62 static void put_insn_int_value
  63   (CGEN_CPU_DESC, CGEN_INSN_BYTES_PTR, int, int, CGEN_INSN_INT);
  64 #endif
  65 #if ! CGEN_INT_INSN_P
  66 static CGEN_INLINE void insert_1
  67   (CGEN_CPU_DESC, unsigned long, int, int, int, unsigned char *);
  68 static CGEN_INLINE int fill_cache
  69   (CGEN_CPU_DESC, CGEN_EXTRACT_INFO *,  int, int, bfd_vma);
  70 static CGEN_INLINE long extract_1
  71   (CGEN_CPU_DESC, CGEN_EXTRACT_INFO *, int, int, int, unsigned char *, bfd_vma);
  72 #endif
  73 \f
  74 /* Operand insertion.  */
  75
  76 #if ! CGEN_INT_INSN_P
  77
  78 /* Subroutine of insert_normal.  */
  79
  80 static CGEN_INLINE void
  81 insert_1 (CGEN_CPU_DESC cd,
  82           unsigned long value,
  83           int start,
  84           int length,
  85           int word_length,
  86           unsigned char *bufp)
  87 {
  88   unsigned long x,mask;
  89   int shift;
  90
  91   x = cgen_get_insn_value (cd, bufp, word_length);
  92
  93   /* Written this way to avoid undefined behaviour.  */
  94   mask = (((1L << (length - 1)) - 1) << 1) | 1;
  95   if (CGEN_INSN_LSB0_P)
  96     shift = (start + 1) - length;
  97   else
  98     shift = (word_length - (start + length));
  99   x = (x & ~(mask << shift)) | ((value & mask) << shift);
 100
 101   cgen_put_insn_value (cd, bufp, word_length, (bfd_vma) x);
 102 }
 103
 104 #endif /* ! CGEN_INT_INSN_P */
 105
 106 /* Default insertion routine.
 107
 108    ATTRS is a mask of the boolean attributes.
 109    WORD_OFFSET is the offset in bits from the start of the insn of the value.
 110    WORD_LENGTH is the length of the word in bits in which the value resides.
 111    START is the starting bit number in the word, architecture origin.
 112    LENGTH is the length of VALUE in bits.
 113    TOTAL_LENGTH is the total length of the insn in bits.
 114
 115    The result is an error message or NULL if success.  */
 116
 117 /* ??? This duplicates functionality with bfd's howto table and
 118    bfd_install_relocation.  */
 119 /* ??? This doesn't handle bfd_vma's.  Create another function when
 120    necessary.  */
 121
 122 static const char *
 123 insert_normal (CGEN_CPU_DESC cd,
 124                long value,
 125                unsigned int attrs,
 126                unsigned int word_offset,
 127                unsigned int start,
 128                unsigned int length,
 129                unsigned int word_length,
 130                unsigned int total_length,
 131                CGEN_INSN_BYTES_PTR buffer)
 132 {
 133   static char errbuf[100];
 134   /* Written this way to avoid undefined behaviour.  */
 135   unsigned long mask = (((1L << (length - 1)) - 1) << 1) | 1;
 136
 137   /* If LENGTH is zero, this operand doesn't contribute to the value.  */
 138   if (length == 0)
 139     return NULL;
 140
 141   if (word_length > 8 * sizeof (CGEN_INSN_INT))
 142     abort ();
 143
 144   /* For architectures with insns smaller than the base-insn-bitsize,
 145      word_length may be too big.  */
 146   if (cd->min_insn_bitsize < cd->base_insn_bitsize)
 147     {
 148       if (word_offset == 0
 149           && word_length > total_length)
 150         word_length = total_length;
 151     }
 152
 153   /* Ensure VALUE will fit.  */
 154   if (CGEN_BOOL_ATTR (attrs, CGEN_IFLD_SIGN_OPT))
 155     {
 156       long minval = - (1L << (length - 1));
 157       unsigned long maxval = mask;
 158
 159       if ((value > 0 && (unsigned long) value > maxval)
 160           || value < minval)
 161         {
 162           /* xgettext:c-format */
 163           sprintf (errbuf,
 164                    _("operand out of range (%ld not between %ld and %lu)"),
 165                    value, minval, maxval);
 166           return errbuf;
 167         }
 168     }
 169   else if (! CGEN_BOOL_ATTR (attrs, CGEN_IFLD_SIGNED))
 170     {
 171       unsigned long maxval = mask;
 172       unsigned long val = (unsigned long) value;
 173
 174       /* For hosts with a word size > 32 check to see if value has been sign
 175          extended beyond 32 bits.  If so then ignore these higher sign bits
 176          as the user is attempting to store a 32-bit signed value into an
 177          unsigned 32-bit field which is allowed.  */
 178       if (sizeof (unsigned long) > 4 && ((value >> 32) == -1))
 179         val &= 0xFFFFFFFF;
 180
 181       if (val > maxval)
 182         {
 183           /* xgettext:c-format */
 184           sprintf (errbuf,
 185                    _("operand out of range (0x%lx not between 0 and 0x%lx)"),
 186                    val, maxval);
 187           return errbuf;
 188         }
 189     }
 190   else
 191     {
 192       if (! cgen_signed_overflow_ok_p (cd))
 193         {
 194           long minval = - (1L << (length - 1));
 195           long maxval =   (1L << (length - 1)) - 1;
 196
 197           if (value < minval || value > maxval)
 198             {
 199               sprintf
 200                 /* xgettext:c-format */
 201                 (errbuf, _("operand out of range (%ld not between %ld and %ld)"),
 202                  value, minval, maxval);
 203               return errbuf;
 204             }
 205         }
 206     }
 207
 208 #if CGEN_INT_INSN_P
 209
 210   {
 211     int shift;
 212
 213     if (CGEN_INSN_LSB0_P)
 214       shift = (word_offset + start + 1) - length;
 215     else
 216       shift = total_length - (word_offset + start + length);
 217     *buffer = (*buffer & ~(mask << shift)) | ((value & mask) << shift);
 218   }
 219
 220 #else /* ! CGEN_INT_INSN_P */
 221
 222   {
 223     unsigned char *bufp = (unsigned char *) buffer + word_offset / 8;
 224
 225     insert_1 (cd, value, start, length, word_length, bufp);
 226   }
 227
 228 #endif /* ! CGEN_INT_INSN_P */
 229
 230   return NULL;
 231 }
 232
 233 /* Default insn builder (insert handler).
 234    The instruction is recorded in CGEN_INT_INSN_P byte order (meaning
 235    that if CGEN_INSN_BYTES_PTR is an int * and thus, the value is
 236    recorded in host byte order, otherwise BUFFER is an array of bytes
 237    and the value is recorded in target byte order).
 238    The result is an error message or NULL if success.  */
 239
 240 static const char *
 241 insert_insn_normal (CGEN_CPU_DESC cd,
 242                     const CGEN_INSN * insn,
 243                     CGEN_FIELDS * fields,
 244                     CGEN_INSN_BYTES_PTR buffer,
 245                     bfd_vma pc)
 246 {
 247   const CGEN_SYNTAX *syntax = CGEN_INSN_SYNTAX (insn);
 248   unsigned long value;
 249   const CGEN_SYNTAX_CHAR_TYPE * syn;
 250
 251   CGEN_INIT_INSERT (cd);
 252   value = CGEN_INSN_BASE_VALUE (insn);
 253
 254   /* If we're recording insns as numbers (rather than a string of bytes),
 255      target byte order handling is deferred until later.  */
 256
 257 #if CGEN_INT_INSN_P
 258
 259   put_insn_int_value (cd, buffer, cd->base_insn_bitsize,
 260                       CGEN_FIELDS_BITSIZE (fields), value);
 261
 262 #else
 263
 264   cgen_put_insn_value (cd, buffer, min ((unsigned) cd->base_insn_bitsize,
 265                                         (unsigned) CGEN_FIELDS_BITSIZE (fields)),
 266                        value);
 267
 268 #endif /* ! CGEN_INT_INSN_P */
 269
 270   /* ??? It would be better to scan the format's fields.
 271      Still need to be able to insert a value based on the operand though;
 272      e.g. storing a branch displacement that got resolved later.
 273      Needs more thought first.  */
 274
 275   for (syn = CGEN_SYNTAX_STRING (syntax); * syn; ++ syn)
 276     {
 277       const char *errmsg;
 278
 279       if (CGEN_SYNTAX_CHAR_P (* syn))
 280         continue;
 281
 282       errmsg = (* cd->insert_operand) (cd, CGEN_SYNTAX_FIELD (*syn),
 283                                        fields, buffer, pc);
 284       if (errmsg)
 285         return errmsg;
 286     }
 287
 288   return NULL;
 289 }
 290
 291 #if CGEN_INT_INSN_P
 292 /* Cover function to store an insn value into an integral insn.  Must go here
 293    because it needs <prefix>-desc.h for CGEN_INT_INSN_P.  */
 294
 295 static void
 296 put_insn_int_value (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
 297                     CGEN_INSN_BYTES_PTR buf,
 298                     int length,
 299                     int insn_length,
 300                     CGEN_INSN_INT value)
 301 {
 302   /* For architectures with insns smaller than the base-insn-bitsize,
 303      length may be too big.  */
 304   if (length > insn_length)
 305     *buf = value;
 306   else
 307     {
 308       int shift = insn_length - length;
 309       /* Written this way to avoid undefined behaviour.  */
 310       CGEN_INSN_INT mask = (((1L << (length - 1)) - 1) << 1) | 1;
 311
 312       *buf = (*buf & ~(mask << shift)) | ((value & mask) << shift);
 313     }
 314 }
 315 #endif
 316 \f
 317 /* Operand extraction.  */
 318
 319 #if ! CGEN_INT_INSN_P
 320
 321 /* Subroutine of extract_normal.
 322    Ensure sufficient bytes are cached in EX_INFO.
 323    OFFSET is the offset in bytes from the start of the insn of the value.
 324    BYTES is the length of the needed value.
 325    Returns 1 for success, 0 for failure.  */
 326
 327 static CGEN_INLINE int
 328 fill_cache (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
 329             CGEN_EXTRACT_INFO *ex_info,
 330             int offset,
 331             int bytes,
 332             bfd_vma pc)
 333 {
 334   /* It's doubtful that the middle part has already been fetched so
 335      we don't optimize that case.  kiss.  */
 336   unsigned int mask;
 337   disassemble_info *info = (disassemble_info *) ex_info->dis_info;
 338
 339   /* First do a quick check.  */
 340   mask = (1 << bytes) - 1;
 341   if (((ex_info->valid >> offset) & mask) == mask)
 342     return 1;
 343
 344   /* Search for the first byte we need to read.  */
 345   for (mask = 1 << offset; bytes > 0; --bytes, ++offset, mask <<= 1)
 346     if (! (mask & ex_info->valid))
 347       break;
 348
 349   if (bytes)
 350     {
 351       int status;
 352
 353       pc += offset;
 354       status = (*info->read_memory_func)
 355         (pc, ex_info->insn_bytes + offset, bytes, info);
 356
 357       if (status != 0)
 358         {
 359           (*info->memory_error_func) (status, pc, info);
 360           return 0;
 361         }
 362
 363       ex_info->valid |= ((1 << bytes) - 1) << offset;
 364     }
 365
 366   return 1;
 367 }
 368
 369 /* Subroutine of extract_normal.  */
 370
 371 static CGEN_INLINE long
 372 extract_1 (CGEN_CPU_DESC cd,
 373            CGEN_EXTRACT_INFO *ex_info ATTRIBUTE_UNUSED,
 374            int start,
 375            int length,
 376            int word_length,
 377            unsigned char *bufp,
 378            bfd_vma pc ATTRIBUTE_UNUSED)
 379 {
 380   unsigned long x;
 381   int shift;
 382
 383   x = cgen_get_insn_value (cd, bufp, word_length);
 384
 385   if (CGEN_INSN_LSB0_P)
 386     shift = (start + 1) - length;
 387   else
 388     shift = (word_length - (start + length));
 389   return x >> shift;
 390 }
 391
 392 #endif /* ! CGEN_INT_INSN_P */
 393
 394 /* Default extraction routine.
 395
 396    INSN_VALUE is the first base_insn_bitsize bits of the insn in host order,
 397    or sometimes less for cases like the m32r where the base insn size is 32
 398    but some insns are 16 bits.
 399    ATTRS is a mask of the boolean attributes.  We only need `SIGNED',
 400    but for generality we take a bitmask of all of them.
 401    WORD_OFFSET is the offset in bits from the start of the insn of the value.
 402    WORD_LENGTH is the length of the word in bits in which the value resides.
 403    START is the starting bit number in the word, architecture origin.
 404    LENGTH is the length of VALUE in bits.
 405    TOTAL_LENGTH is the total length of the insn in bits.
 406
 407    Returns 1 for success, 0 for failure.  */
 408
 409 /* ??? The return code isn't properly used.  wip.  */
 410
 411 /* ??? This doesn't handle bfd_vma's.  Create another function when
 412    necessary.  */
 413
 414 static int
 415 extract_normal (CGEN_CPU_DESC cd,
 416 #if ! CGEN_INT_INSN_P
 417                 CGEN_EXTRACT_INFO *ex_info,
 418 #else
 419                 CGEN_EXTRACT_INFO *ex_info ATTRIBUTE_UNUSED,
 420 #endif
 421                 CGEN_INSN_INT insn_value,
 422                 unsigned int attrs,
 423                 unsigned int word_offset,
 424                 unsigned int start,
 425                 unsigned int length,
 426                 unsigned int word_length,
 427                 unsigned int total_length,
 428 #if ! CGEN_INT_INSN_P
 429                 bfd_vma pc,
 430 #else
 431                 bfd_vma pc ATTRIBUTE_UNUSED,
 432 #endif
 433                 long *valuep)
 434 {
 435   long value, mask;
 436
 437   /* If LENGTH is zero, this operand doesn't contribute to the value
 438      so give it a standard value of zero.  */
 439   if (length == 0)
 440     {
 441       *valuep = 0;
 442       return 1;
 443     }
 444
 445   if (word_length > 8 * sizeof (CGEN_INSN_INT))
 446     abort ();
 447
 448   /* For architectures with insns smaller than the insn-base-bitsize,
 449      word_length may be too big.  */
 450   if (cd->min_insn_bitsize < cd->base_insn_bitsize)
 451     {
 452       if (word_offset + word_length > total_length)
 453         word_length = total_length - word_offset;
 454     }
 455
 456   /* Does the value reside in INSN_VALUE, and at the right alignment?  */
 457
 458   if (CGEN_INT_INSN_P || (word_offset == 0 && word_length == total_length))
 459     {
 460       if (CGEN_INSN_LSB0_P)
 461         value = insn_value >> ((word_offset + start + 1) - length);
 462       else
 463         value = insn_value >> (total_length - ( word_offset + start + length));
 464     }
 465
 466 #if ! CGEN_INT_INSN_P
 467
 468   else
 469     {
 470       unsigned char *bufp = ex_info->insn_bytes + word_offset / 8;
 471
 472       if (word_length > 8 * sizeof (CGEN_INSN_INT))
 473         abort ();
 474
 475       if (fill_cache (cd, ex_info, word_offset / 8, word_length / 8, pc) == 0)
 476         return 0;
 477
 478       value = extract_1 (cd, ex_info, start, length, word_length, bufp, pc);
 479     }
 480
 481 #endif /* ! CGEN_INT_INSN_P */
 482
 483   /* Written this way to avoid undefined behaviour.  */
 484   mask = (((1L << (length - 1)) - 1) << 1) | 1;
 485
 486   value &= mask;
 487   /* sign extend? */
 488   if (CGEN_BOOL_ATTR (attrs, CGEN_IFLD_SIGNED)
 489       && (value & (1L << (length - 1))))
 490     value |= ~mask;
 491
 492   *valuep = value;
 493
 494   return 1;
 495 }
 496
 497 /* Default insn extractor.
 498
 499    INSN_VALUE is the first base_insn_bitsize bits, translated to host order.
 500    The extracted fields are stored in FIELDS.
 501    EX_INFO is used to handle reading variable length insns.
 502    Return the length of the insn in bits, or 0 if no match,
 503    or -1 if an error occurs fetching data (memory_error_func will have
 504    been called).  */
 505
 506 static int
 507 extract_insn_normal (CGEN_CPU_DESC cd,
 508                      const CGEN_INSN *insn,
 509                      CGEN_EXTRACT_INFO *ex_info,
 510                      CGEN_INSN_INT insn_value,
 511                      CGEN_FIELDS *fields,
 512                      bfd_vma pc)
 513 {
 514   const CGEN_SYNTAX *syntax = CGEN_INSN_SYNTAX (insn);
 515   const CGEN_SYNTAX_CHAR_TYPE *syn;
 516
 517   CGEN_FIELDS_BITSIZE (fields) = CGEN_INSN_BITSIZE (insn);
 518
 519   CGEN_INIT_EXTRACT (cd);
 520
 521   for (syn = CGEN_SYNTAX_STRING (syntax); *syn; ++syn)
 522     {
 523       int length;
 524
 525       if (CGEN_SYNTAX_CHAR_P (*syn))
 526         continue;
 527
 528       length = (* cd->extract_operand) (cd, CGEN_SYNTAX_FIELD (*syn),
 529                                         ex_info, insn_value, fields, pc);
 530       if (length <= 0)
 531         return length;
 532     }
 533
 534   /* We recognized and successfully extracted this insn.  */
 535   return CGEN_INSN_BITSIZE (insn);
 536 }
 537 \f
 538 /* Machine generated code added here.  */
 539
 540 const char * mep_cgen_insert_operand
 541   (CGEN_CPU_DESC, int, CGEN_FIELDS *, CGEN_INSN_BYTES_PTR, bfd_vma);
 542
 543 /* Main entry point for operand insertion.
 544
 545    This function is basically just a big switch statement.  Earlier versions
 546    used tables to look up the function to use, but
 547    - if the table contains both assembler and disassembler functions then
 548      the disassembler contains much of the assembler and vice-versa,
 549    - there's a lot of inlining possibilities as things grow,
 550    - using a switch statement avoids the function call overhead.
 551
 552    This function could be moved into `parse_insn_normal', but keeping it
 553    separate makes clear the interface between `parse_insn_normal' and each of
 554    the handlers.  It's also needed by GAS to insert operands that couldn't be
 555    resolved during parsing.  */
 556
 557 const char *
 558 mep_cgen_insert_operand (CGEN_CPU_DESC cd,
 559                              int opindex,
 560                              CGEN_FIELDS * fields,
 561                              CGEN_INSN_BYTES_PTR buffer,
 562                              bfd_vma pc ATTRIBUTE_UNUSED)
 563 {
 564   const char * errmsg = NULL;
 565   unsigned int total_length = CGEN_FIELDS_BITSIZE (fields);
 566
 567   switch (opindex)
 568     {
 569     case MEP_OPERAND_ADDR24A4 :
 570       {
 571 {
 572   FLD (f_24u8a4n_hi) = ((UINT) (FLD (f_24u8a4n)) >> (8));
 573   FLD (f_24u8a4n_lo) = ((UINT) (((FLD (f_24u8a4n)) & (252))) >> (2));
 574 }
 575         errmsg = insert_normal (cd, fields->f_24u8a4n_hi, 0, 0, 16, 16, 32, total_length, buffer);
 576         if (errmsg)
 577           break;
 578         errmsg = insert_normal (cd, fields->f_24u8a4n_lo, 0, 0, 8, 6, 32, total_length, buffer);
 579         if (errmsg)
 580           break;
 581       }
 582       break;
 583     case MEP_OPERAND_C5RMUIMM20 :
 584       {
 585 {
 586   FLD (f_c5_rm) = ((UINT) (FLD (f_c5_rmuimm20)) >> (16));
 587   FLD (f_c5_16u16) = ((FLD (f_c5_rmuimm20)) & (65535));
 588 }
 589         errmsg = insert_normal (cd, fields->f_c5_rm, 0, 0, 8, 4, 32, total_length, buffer);
 590         if (errmsg)
 591           break;
 592         errmsg = insert_normal (cd, fields->f_c5_16u16, 0, 0, 16, 16, 32, total_length, buffer);
 593         if (errmsg)
 594           break;
 595       }
 596       break;
 597     case MEP_OPERAND_C5RNMUIMM24 :
 598       {
 599 {
 600   FLD (f_c5_rnm) = ((UINT) (FLD (f_c5_rnmuimm24)) >> (16));
 601   FLD (f_c5_16u16) = ((FLD (f_c5_rnmuimm24)) & (65535));
 602 }
 603         errmsg = insert_normal (cd, fields->f_c5_rnm, 0, 0, 4, 8, 32, total_length, buffer);
 604         if (errmsg)
 605           break;
 606         errmsg = insert_normal (cd, fields->f_c5_16u16, 0, 0, 16, 16, 32, total_length, buffer);
 607         if (errmsg)
 608           break;
 609       }
 610       break;
 611     case MEP_OPERAND_CALLNUM :
 612       {
 613 {
 614   FLD (f_5) = ((((UINT) (FLD (f_callnum)) >> (3))) & (1));
 615   FLD (f_6) = ((((UINT) (FLD (f_callnum)) >> (2))) & (1));
 616   FLD (f_7) = ((((UINT) (FLD (f_callnum)) >> (1))) & (1));
 617   FLD (f_11) = ((FLD (f_callnum)) & (1));
 618 }
 619         errmsg = insert_normal (cd, fields->f_5, 0, 0, 5, 1, 32, total_length, buffer);
 620         if (errmsg)
 621           break;
 622         errmsg = insert_normal (cd, fields->f_6, 0, 0, 6, 1, 32, total_length, buffer);
 623         if (errmsg)
 624           break;
 625         errmsg = insert_normal (cd, fields->f_7, 0, 0, 7, 1, 32, total_length, buffer);
 626         if (errmsg)
 627           break;
 628         errmsg = insert_normal (cd, fields->f_11, 0, 0, 11, 1, 32, total_length, buffer);
 629         if (errmsg)
 630           break;
 631       }
 632       break;
 633     case MEP_OPERAND_CCCC :
 634       errmsg = insert_normal (cd, fields->f_rm, 0, 0, 8, 4, 32, total_length, buffer);
 635       break;
 636     case MEP_OPERAND_CCRN :
 637       {
 638 {
 639   FLD (f_ccrn_hi) = ((((UINT) (FLD (f_ccrn)) >> (4))) & (3));
 640   FLD (f_ccrn_lo) = ((FLD (f_ccrn)) & (15));
 641 }
 642         errmsg = insert_normal (cd, fields->f_ccrn_hi, 0, 0, 28, 2, 32, total_length, buffer);
 643         if (errmsg)
 644           break;
 645         errmsg = insert_normal (cd, fields->f_ccrn_lo, 0, 0, 4, 4, 32, total_length, buffer);
 646         if (errmsg)
 647           break;
 648       }
 649       break;
 650     case MEP_OPERAND_CDISP10 :
 651       {
 652         long value = fields->f_cdisp10;
 653         value = (((((((((value) & (128))) ? (((value) ^ (768))) : (value)) & (512))) ? ((((((value) & (128))) ? (((value) ^ (768))) : (value)) - (1024))) : ((((value) & (128))) ? (((value) ^ (768))) : (value))) & (512))) ? (((((((((((value) & (128))) ? (((value) ^ (768))) : (value)) & (512))) ? ((((((value) & (128))) ? (((value) ^ (768))) : (value)) - (1024))) : ((((value) & (128))) ? (((value) ^ (768))) : (value))) & (1023))) - (1024))) : (((((((((value) & (128))) ? (((value) ^ (768))) : (value)) & (512))) ? ((((((value) & (128))) ? (((value) ^ (768))) : (value)) - (1024))) : ((((value) & (128))) ? (((value) ^ (768))) : (value))) & (1023)));
 654         errmsg = insert_normal (cd, value, 0|(1<<CGEN_IFLD_SIGNED), 0, 22, 10, 32, total_length, buffer);
 655       }
 656       break;
 657     case MEP_OPERAND_CDISP10A2 :
 658       {
 659         long value = fields->f_cdisp10;
 660         value = (((((((((value) & (128))) ? (((value) ^ (768))) : (value)) & (512))) ? ((((((value) & (128))) ? (((value) ^ (768))) : (value)) - (1024))) : ((((value) & (128))) ? (((value) ^ (768))) : (value))) & (512))) ? (((((((((((value) & (128))) ? (((value) ^ (768))) : (value)) & (512))) ? ((((((value) & (128))) ? (((value) ^ (768))) : (value)) - (1024))) : ((((value) & (128))) ? (((value) ^ (768))) : (value))) & (1023))) - (1024))) : (((((((((value) & (128))) ? (((value) ^ (768))) : (value)) & (512))) ? ((((((value) & (128))) ? (((value) ^ (768))) : (value)) - (1024))) : ((((value) & (128))) ? (((value) ^ (768))) : (value))) & (1023)));
 661         errmsg = insert_normal (cd, value, 0|(1<<CGEN_IFLD_SIGNED), 0, 22, 10, 32, total_length, buffer);
 662       }
 663       break;
 664     case MEP_OPERAND_CDISP10A4 :
 665       {
 666         long value = fields->f_cdisp10;
 667         value = (((((((((value) & (128))) ? (((value) ^ (768))) : (value)) & (512))) ? ((((((value) & (128))) ? (((value) ^ (768))) : (value)) - (1024))) : ((((value) & (128))) ? (((value) ^ (768))) : (value))) & (512))) ? (((((((((((value) & (128))) ? (((value) ^ (768))) : (value)) & (512))) ? ((((((value) & (128))) ? (((value) ^ (768))) : (value)) - (1024))) : ((((value) & (128))) ? (((value) ^ (768))) : (value))) & (1023))) - (1024))) : (((((((((value) & (128))) ? (((value) ^ (768))) : (value)) & (512))) ? ((((((value) & (128))) ? (((value) ^ (768))) : (value)) - (1024))) : ((((value) & (128))) ? (((value) ^ (768))) : (value))) & (1023)));
 668         errmsg = insert_normal (cd, value, 0|(1<<CGEN_IFLD_SIGNED), 0, 22, 10, 32, total_length, buffer);
 669       }
 670       break;
 671     case MEP_OPERAND_CDISP10A8 :
 672       {
 673         long value = fields->f_cdisp10;
 674         value = (((((((((value) & (128))) ? (((value) ^ (768))) : (value)) & (512))) ? ((((((value) & (128))) ? (((value) ^ (768))) : (value)) - (1024))) : ((((value) & (128))) ? (((value) ^ (768))) : (value))) & (512))) ? (((((((((((value) & (128))) ? (((value) ^ (768))) : (value)) & (512))) ? ((((((value) & (128))) ? (((value) ^ (768))) : (value)) - (1024))) : ((((value) & (128))) ? (((value) ^ (768))) : (value))) & (1023))) - (1024))) : (((((((((value) & (128))) ? (((value) ^ (768))) : (value)) & (512))) ? ((((((value) & (128))) ? (((value) ^ (768))) : (value)) - (1024))) : ((((value) & (128))) ? (((value) ^ (768))) : (value))) & (1023)));
 675         errmsg = insert_normal (cd, value, 0|(1<<CGEN_IFLD_SIGNED), 0, 22, 10, 32, total_length, buffer);
 676       }
 677       break;
 678     case MEP_OPERAND_CDISP12 :
 679       errmsg = insert_normal (cd, fields->f_12s20, 0|(1<<CGEN_IFLD_SIGNED), 0, 20, 12, 32, total_length, buffer);
 680       break;
 681     case MEP_OPERAND_CIMM4 :
 682       errmsg = insert_normal (cd, fields->f_rn, 0, 0, 4, 4, 32, total_length, buffer);
 683       break;
 684     case MEP_OPERAND_CIMM5 :
 685       errmsg = insert_normal (cd, fields->f_5u24, 0, 0, 24, 5, 32, total_length, buffer);
 686       break;
 687     case MEP_OPERAND_CODE16 :
 688       errmsg = insert_normal (cd, fields->f_16u16, 0, 0, 16, 16, 32, total_length, buffer);
 689       break;
 690     case MEP_OPERAND_CODE24 :
 691       {
 692 {
 693   FLD (f_24u4n_hi) = ((UINT) (FLD (f_24u4n)) >> (16));
 694   FLD (f_24u4n_lo) = ((FLD (f_24u4n)) & (65535));
 695 }
 696         errmsg = insert_normal (cd, fields->f_24u4n_hi, 0, 0, 4, 8, 32, total_length, buffer);
 697         if (errmsg)
 698           break;
 699         errmsg = insert_normal (cd, fields->f_24u4n_lo, 0, 0, 16, 16, 32, total_length, buffer);
 700         if (errmsg)
 701           break;
 702       }
 703       break;
 704     case MEP_OPERAND_CP_FLAG :
 705       break;
 706     case MEP_OPERAND_CRN :
 707       errmsg = insert_normal (cd, fields->f_crn, 0, 0, 4, 4, 32, total_length, buffer);
 708       break;
 709     case MEP_OPERAND_CRN64 :
 710       errmsg = insert_normal (cd, fields->f_crn, 0, 0, 4, 4, 32, total_length, buffer);
 711       break;
 712     case MEP_OPERAND_CRNX :
 713       {
 714 {
 715   FLD (f_crnx_lo) = ((FLD (f_crnx)) & (15));
 716   FLD (f_crnx_hi) = ((UINT) (FLD (f_crnx)) >> (4));
 717 }
 718         errmsg = insert_normal (cd, fields->f_crnx_hi, 0, 0, 28, 1, 32, total_length, buffer);
 719         if (errmsg)
 720           break;
 721         errmsg = insert_normal (cd, fields->f_crnx_lo, 0, 0, 4, 4, 32, total_length, buffer);
 722         if (errmsg)
 723           break;
 724       }
 725       break;
 726     case MEP_OPERAND_CRNX64 :
 727       {
 728 {
 729   FLD (f_crnx_lo) = ((FLD (f_crnx)) & (15));
 730   FLD (f_crnx_hi) = ((UINT) (FLD (f_crnx)) >> (4));
 731 }
 732         errmsg = insert_normal (cd, fields->f_crnx_hi, 0, 0, 28, 1, 32, total_length, buffer);
 733         if (errmsg)
 734           break;
 735         errmsg = insert_normal (cd, fields->f_crnx_lo, 0, 0, 4, 4, 32, total_length, buffer);
 736         if (errmsg)
 737           break;
 738       }
 739       break;
 740     case MEP_OPERAND_CROC :
 741       errmsg = insert_normal (cd, fields->f_ivc2_5u7, 0, 0, 7, 5, 32, total_length, buffer);
 742       break;
 743     case MEP_OPERAND_CROP :
 744       errmsg = insert_normal (cd, fields->f_ivc2_5u23, 0, 0, 23, 5, 32, total_length, buffer);
 745       break;
 746     case MEP_OPERAND_CRPC :
 747       errmsg = insert_normal (cd, fields->f_ivc2_5u26, 0, 0, 26, 5, 32, total_length, buffer);
 748       break;
 749     case MEP_OPERAND_CRPP :
 750       errmsg = insert_normal (cd, fields->f_ivc2_5u18, 0, 0, 18, 5, 32, total_length, buffer);
 751       break;
 752     case MEP_OPERAND_CRQC :
 753       errmsg = insert_normal (cd, fields->f_ivc2_5u21, 0, 0, 21, 5, 32, total_length, buffer);
 754       break;
 755     case MEP_OPERAND_CRQP :
 756       errmsg = insert_normal (cd, fields->f_ivc2_5u13, 0, 0, 13, 5, 32, total_length, buffer);
 757       break;
 758     case MEP_OPERAND_CSRN :
 759       {
 760 {
 761   FLD (f_csrn_lo) = ((FLD (f_csrn)) & (15));
 762   FLD (f_csrn_hi) = ((UINT) (FLD (f_csrn)) >> (4));
 763 }
 764         errmsg = insert_normal (cd, fields->f_csrn_hi, 0, 0, 15, 1, 32, total_length, buffer);
 765         if (errmsg)
 766           break;
 767         errmsg = insert_normal (cd, fields->f_csrn_lo, 0, 0, 8, 4, 32, total_length, buffer);
 768         if (errmsg)
 769           break;
 770       }
 771       break;
 772     case MEP_OPERAND_CSRN_IDX :
 773       {
 774 {
 775   FLD (f_csrn_lo) = ((FLD (f_csrn)) & (15));
 776   FLD (f_csrn_hi) = ((UINT) (FLD (f_csrn)) >> (4));
 777 }
 778         errmsg = insert_normal (cd, fields->f_csrn_hi, 0, 0, 15, 1, 32, total_length, buffer);
 779         if (errmsg)
 780           break;
 781         errmsg = insert_normal (cd, fields->f_csrn_lo, 0, 0, 8, 4, 32, total_length, buffer);
 782         if (errmsg)
 783           break;
 784       }
 785       break;
 786     case MEP_OPERAND_DBG :
 787       break;
 788     case MEP_OPERAND_DEPC :
 789       break;
 790     case MEP_OPERAND_EPC :
 791       break;
 792     case MEP_OPERAND_EXC :
 793       break;
 794     case MEP_OPERAND_HI :
 795       break;
 796     case MEP_OPERAND_IMM16P0 :
 797       {
 798 {
 799   FLD (f_ivc2_8u0) = ((((UINT) (FLD (f_ivc2_imm16p0)) >> (8))) & (255));
 800   FLD (f_ivc2_8u20) = ((FLD (f_ivc2_imm16p0)) & (255));
 801 }
 802         errmsg = insert_normal (cd, fields->f_ivc2_8u0, 0, 0, 0, 8, 32, total_length, buffer);
 803         if (errmsg)
 804           break;
 805         errmsg = insert_normal (cd, fields->f_ivc2_8u20, 0, 0, 20, 8, 32, total_length, buffer);
 806         if (errmsg)
 807           break;
 808       }
 809       break;
 810     case MEP_OPERAND_IMM3P12 :
 811       errmsg = insert_normal (cd, fields->f_ivc2_3u12, 0, 0, 12, 3, 32, total_length, buffer);
 812       break;
 813     case MEP_OPERAND_IMM3P25 :
 814       errmsg = insert_normal (cd, fields->f_ivc2_3u25, 0, 0, 25, 3, 32, total_length, buffer);
 815       break;
 816     case MEP_OPERAND_IMM3P4 :
 817       errmsg = insert_normal (cd, fields->f_ivc2_3u4, 0, 0, 4, 3, 32, total_length, buffer);
 818       break;
 819     case MEP_OPERAND_IMM3P5 :
 820       errmsg = insert_normal (cd, fields->f_ivc2_3u5, 0, 0, 5, 3, 32, total_length, buffer);
 821       break;
 822     case MEP_OPERAND_IMM3P9 :
 823       errmsg = insert_normal (cd, fields->f_ivc2_3u9, 0, 0, 9, 3, 32, total_length, buffer);
 824       break;
 825     case MEP_OPERAND_IMM4P10 :
 826       errmsg = insert_normal (cd, fields->f_ivc2_4u10, 0, 0, 10, 4, 32, total_length, buffer);
 827       break;
 828     case MEP_OPERAND_IMM4P4 :
 829       errmsg = insert_normal (cd, fields->f_ivc2_4u4, 0, 0, 4, 4, 32, total_length, buffer);
 830       break;
 831     case MEP_OPERAND_IMM4P8 :
 832       errmsg = insert_normal (cd, fields->f_ivc2_4u8, 0, 0, 8, 4, 32, total_length, buffer);
 833       break;
 834     case MEP_OPERAND_IMM5P23 :
 835       errmsg = insert_normal (cd, fields->f_ivc2_5u23, 0, 0, 23, 5, 32, total_length, buffer);
 836       break;
 837     case MEP_OPERAND_IMM5P3 :
 838       errmsg = insert_normal (cd, fields->f_ivc2_5u3, 0, 0, 3, 5, 32, total_length, buffer);
 839       break;
 840     case MEP_OPERAND_IMM5P7 :
 841       errmsg = insert_normal (cd, fields->f_ivc2_5u7, 0, 0, 7, 5, 32, total_length, buffer);
 842       break;
 843     case MEP_OPERAND_IMM5P8 :
 844       errmsg = insert_normal (cd, fields->f_ivc2_5u8, 0, 0, 8, 5, 32, total_length, buffer);
 845       break;
 846     case MEP_OPERAND_IMM6P2 :
 847       errmsg = insert_normal (cd, fields->f_ivc2_6u2, 0, 0, 2, 6, 32, total_length, buffer);
 848       break;
 849     case MEP_OPERAND_IMM6P6 :
 850       errmsg = insert_normal (cd, fields->f_ivc2_6u6, 0, 0, 6, 6, 32, total_length, buffer);
 851       break;
 852     case MEP_OPERAND_IMM8P0 :
 853       errmsg = insert_normal (cd, fields->f_ivc2_8u0, 0, 0, 0, 8, 32, total_length, buffer);
 854       break;
 855     case MEP_OPERAND_IMM8P20 :
 856       errmsg = insert_normal (cd, fields->f_ivc2_8u20, 0, 0, 20, 8, 32, total_length, buffer);
 857       break;
 858     case MEP_OPERAND_IMM8P4 :
 859       errmsg = insert_normal (cd, fields->f_ivc2_8u4, 0, 0, 4, 8, 32, total_length, buffer);
 860       break;
 861     case MEP_OPERAND_IVC_X_0_2 :
 862       errmsg = insert_normal (cd, fields->f_ivc2_2u0, 0, 0, 0, 2, 32, total_length, buffer);
 863       break;
 864     case MEP_OPERAND_IVC_X_0_3 :
 865       errmsg = insert_normal (cd, fields->f_ivc2_3u0, 0, 0, 0, 3, 32, total_length, buffer);
 866       break;
 867     case MEP_OPERAND_IVC_X_0_4 :
 868       errmsg = insert_normal (cd, fields->f_ivc2_4u0, 0, 0, 0, 4, 32, total_length, buffer);
 869       break;
 870     case MEP_OPERAND_IVC_X_0_5 :
 871       errmsg = insert_normal (cd, fields->f_ivc2_5u0, 0, 0, 0, 5, 32, total_length, buffer);
 872       break;
 873     case MEP_OPERAND_IVC_X_6_1 :
 874       errmsg = insert_normal (cd, fields->f_ivc2_1u6, 0, 0, 6, 1, 32, total_length, buffer);
 875       break;
 876     case MEP_OPERAND_IVC_X_6_2 :
 877       errmsg = insert_normal (cd, fields->f_ivc2_2u6, 0, 0, 6, 2, 32, total_length, buffer);
 878       break;
 879     case MEP_OPERAND_IVC_X_6_3 :
 880       errmsg = insert_normal (cd, fields->f_ivc2_3u6, 0, 0, 6, 3, 32, total_length, buffer);
 881       break;
 882     case MEP_OPERAND_IVC2_ACC0_0 :
 883       break;
 884     case MEP_OPERAND_IVC2_ACC0_1 :
 885       break;
 886     case MEP_OPERAND_IVC2_ACC0_2 :
 887       break;
 888     case MEP_OPERAND_IVC2_ACC0_3 :
 889       break;
 890     case MEP_OPERAND_IVC2_ACC0_4 :
 891       break;
 892     case MEP_OPERAND_IVC2_ACC0_5 :
 893       break;
 894     case MEP_OPERAND_IVC2_ACC0_6 :
 895       break;
 896     case MEP_OPERAND_IVC2_ACC0_7 :
 897       break;
 898     case MEP_OPERAND_IVC2_ACC1_0 :
 899       break;
 900     case MEP_OPERAND_IVC2_ACC1_1 :
 901       break;
 902     case MEP_OPERAND_IVC2_ACC1_2 :
 903       break;
 904     case MEP_OPERAND_IVC2_ACC1_3 :
 905       break;
 906     case MEP_OPERAND_IVC2_ACC1_4 :
 907       break;
 908     case MEP_OPERAND_IVC2_ACC1_5 :
 909       break;
 910     case MEP_OPERAND_IVC2_ACC1_6 :
 911       break;
 912     case MEP_OPERAND_IVC2_ACC1_7 :
 913       break;
 914     case MEP_OPERAND_IVC2_CC :
 915       break;
 916     case MEP_OPERAND_IVC2_COFA0 :
 917       break;
 918     case MEP_OPERAND_IVC2_COFA1 :
 919       break;
 920     case MEP_OPERAND_IVC2_COFR0 :
 921       break;
 922     case MEP_OPERAND_IVC2_COFR1 :
 923       break;
 924     case MEP_OPERAND_IVC2_CSAR0 :
 925       break;
 926     case MEP_OPERAND_IVC2_CSAR1 :
 927       break;
 928     case MEP_OPERAND_IVC2C3CCRN :
 929       {
 930 {
 931   FLD (f_ivc2_ccrn_c3hi) = ((((UINT) (FLD (f_ivc2_ccrn_c3)) >> (4))) & (3));
 932   FLD (f_ivc2_ccrn_c3lo) = ((FLD (f_ivc2_ccrn_c3)) & (15));
 933 }
 934         errmsg = insert_normal (cd, fields->f_ivc2_ccrn_c3hi, 0, 0, 28, 2, 32, total_length, buffer);
 935         if (errmsg)
 936           break;
 937         errmsg = insert_normal (cd, fields->f_ivc2_ccrn_c3lo, 0, 0, 4, 4, 32, total_length, buffer);
 938         if (errmsg)
 939           break;
 940       }
 941       break;
 942     case MEP_OPERAND_IVC2CCRN :
 943       {
 944 {
 945   FLD (f_ivc2_ccrn_h2) = ((((UINT) (FLD (f_ivc2_ccrn)) >> (4))) & (3));
 946   FLD (f_ivc2_ccrn_lo) = ((FLD (f_ivc2_ccrn)) & (15));
 947 }
 948         errmsg = insert_normal (cd, fields->f_ivc2_ccrn_h2, 0, 0, 20, 2, 32, total_length, buffer);
 949         if (errmsg)
 950           break;
 951         errmsg = insert_normal (cd, fields->f_ivc2_ccrn_lo, 0, 0, 0, 4, 32, total_length, buffer);
 952         if (errmsg)
 953           break;
 954       }
 955       break;
 956     case MEP_OPERAND_IVC2CRN :
 957       {
 958 {
 959   FLD (f_ivc2_ccrn_h1) = ((((UINT) (FLD (f_ivc2_crnx)) >> (4))) & (1));
 960   FLD (f_ivc2_ccrn_lo) = ((FLD (f_ivc2_crnx)) & (15));
 961 }
 962         errmsg = insert_normal (cd, fields->f_ivc2_ccrn_h1, 0, 0, 20, 1, 32, total_length, buffer);
 963         if (errmsg)
 964           break;
 965         errmsg = insert_normal (cd, fields->f_ivc2_ccrn_lo, 0, 0, 0, 4, 32, total_length, buffer);
 966         if (errmsg)
 967           break;
 968       }
 969       break;
 970     case MEP_OPERAND_IVC2RM :
 971       errmsg = insert_normal (cd, fields->f_ivc2_crm, 0, 0, 4, 4, 32, total_length, buffer);
 972       break;
 973     case MEP_OPERAND_LO :
 974       break;
 975     case MEP_OPERAND_LP :
 976       break;
 977     case MEP_OPERAND_MB0 :
 978       break;
 979     case MEP_OPERAND_MB1 :
 980       break;
 981     case MEP_OPERAND_ME0 :
 982       break;
 983     case MEP_OPERAND_ME1 :
 984       break;
 985     case MEP_OPERAND_NPC :
 986       break;
 987     case MEP_OPERAND_OPT :
 988       break;
 989     case MEP_OPERAND_PCABS24A2 :
 990       {
 991 {
 992   FLD (f_24u5a2n_lo) = ((UINT) (((FLD (f_24u5a2n)) & (255))) >> (1));
 993   FLD (f_24u5a2n_hi) = ((UINT) (FLD (f_24u5a2n)) >> (8));
 994 }
 995         errmsg = insert_normal (cd, fields->f_24u5a2n_hi, 0, 0, 16, 16, 32, total_length, buffer);
 996         if (errmsg)
 997           break;
 998         errmsg = insert_normal (cd, fields->f_24u5a2n_lo, 0, 0, 5, 7, 32, total_length, buffer);
 999         if (errmsg)
1000           break;
1001       }
1002       break;
1003     case MEP_OPERAND_PCREL12A2 :
1004       {
1005         long value = fields->f_12s4a2;
1006         value = ((SI) (((value) - (pc))) >> (1));
1007         errmsg = insert_normal (cd, value, 0|(1<<CGEN_IFLD_SIGNED)|(1<<CGEN_IFLD_PCREL_ADDR), 0, 4, 11, 32, total_length, buffer);
1008       }
1009       break;
1010     case MEP_OPERAND_PCREL17A2 :
1011       {
1012         long value = fields->f_17s16a2;
1013         value = ((SI) (((value) - (pc))) >> (1));
1014         errmsg = insert_normal (cd, value, 0|(1<<CGEN_IFLD_SIGNED)|(1<<CGEN_IFLD_PCREL_ADDR), 0, 16, 16, 32, total_length, buffer);
1015       }
1016       break;
1017     case MEP_OPERAND_PCREL24A2 :
1018       {
1019 {
1020   FLD (f_24s5a2n) = ((FLD (f_24s5a2n)) - (pc));
1021   FLD (f_24s5a2n_lo) = ((UINT) (((FLD (f_24s5a2n)) & (254))) >> (1));
1022   FLD (f_24s5a2n_hi) = ((INT) (FLD (f_24s5a2n)) >> (8));
1023 }
1024         errmsg = insert_normal (cd, fields->f_24s5a2n_hi, 0|(1<<CGEN_IFLD_SIGNED)|(1<<CGEN_IFLD_PCREL_ADDR), 0, 16, 16, 32, total_length, buffer);
1025         if (errmsg)
1026           break;
1027         errmsg = insert_normal (cd, fields->f_24s5a2n_lo, 0|(1<<CGEN_IFLD_PCREL_ADDR), 0, 5, 7, 32, total_length, buffer);
1028         if (errmsg)
1029           break;
1030       }
1031       break;
1032     case MEP_OPERAND_PCREL8A2 :
1033       {
1034         long value = fields->f_8s8a2;
1035         value = ((SI) (((value) - (pc))) >> (1));
1036         errmsg = insert_normal (cd, value, 0|(1<<CGEN_IFLD_SIGNED)|(1<<CGEN_IFLD_PCREL_ADDR), 0, 8, 7, 32, total_length, buffer);
1037       }
1038       break;
1039     case MEP_OPERAND_PSW :
1040       break;
1041     case MEP_OPERAND_R0 :
1042       break;
1043     case MEP_OPERAND_R1 :
1044       break;
1045     case MEP_OPERAND_RL :
1046       errmsg = insert_normal (cd, fields->f_rl, 0, 0, 12, 4, 32, total_length, buffer);
1047       break;
1048     case MEP_OPERAND_RL5 :
1049       errmsg = insert_normal (cd, fields->f_rl5, 0, 0, 20, 4, 32, total_length, buffer);
1050       break;
1051     case MEP_OPERAND_RM :
1052       errmsg = insert_normal (cd, fields->f_rm, 0, 0, 8, 4, 32, total_length, buffer);
1053       break;
1054     case MEP_OPERAND_RMA :
1055       errmsg = insert_normal (cd, fields->f_rm, 0, 0, 8, 4, 32, total_length, buffer);
1056       break;
1057     case MEP_OPERAND_RN :
1058       errmsg = insert_normal (cd, fields->f_rn, 0, 0, 4, 4, 32, total_length, buffer);
1059       break;
1060     case MEP_OPERAND_RN3 :
1061       errmsg = insert_normal (cd, fields->f_rn3, 0, 0, 5, 3, 32, total_length, buffer);
1062       break;
1063     case MEP_OPERAND_RN3C :
1064       errmsg = insert_normal (cd, fields->f_rn3, 0, 0, 5, 3, 32, total_length, buffer);
1065       break;
1066     case MEP_OPERAND_RN3L :
1067       errmsg = insert_normal (cd, fields->f_rn3, 0, 0, 5, 3, 32, total_length, buffer);
1068       break;
1069     case MEP_OPERAND_RN3S :
1070       errmsg = insert_normal (cd, fields->f_rn3, 0, 0, 5, 3, 32, total_length, buffer);
1071       break;
1072     case MEP_OPERAND_RN3UC :
1073       errmsg = insert_normal (cd, fields->f_rn3, 0, 0, 5, 3, 32, total_length, buffer);
1074       break;
1075     case MEP_OPERAND_RN3UL :
1076       errmsg = insert_normal (cd, fields->f_rn3, 0, 0, 5, 3, 32, total_length, buffer);
1077       break;
1078     case MEP_OPERAND_RN3US :
1079       errmsg = insert_normal (cd, fields->f_rn3, 0, 0, 5, 3, 32, total_length, buffer);
1080       break;
1081     case MEP_OPERAND_RNC :
1082       errmsg = insert_normal (cd, fields->f_rn, 0, 0, 4, 4, 32, total_length, buffer);
1083       break;
1084     case MEP_OPERAND_RNL :
1085       errmsg = insert_normal (cd, fields->f_rn, 0, 0, 4, 4, 32, total_length, buffer);
1086       break;
1087     case MEP_OPERAND_RNS :
1088       errmsg = insert_normal (cd, fields->f_rn, 0, 0, 4, 4, 32, total_length, buffer);
1089       break;
1090     case MEP_OPERAND_RNUC :
1091       errmsg = insert_normal (cd, fields->f_rn, 0, 0, 4, 4, 32, total_length, buffer);
1092       break;
1093     case MEP_OPERAND_RNUL :
1094       errmsg = insert_normal (cd, fields->f_rn, 0, 0, 4, 4, 32, total_length, buffer);
1095       break;
1096     case MEP_OPERAND_RNUS :
1097       errmsg = insert_normal (cd, fields->f_rn, 0, 0, 4, 4, 32, total_length, buffer);
1098       break;
1099     case MEP_OPERAND_SAR :
1100       break;
1101     case MEP_OPERAND_SDISP16 :
1102       errmsg = insert_normal (cd, fields->f_16s16, 0|(1<<CGEN_IFLD_SIGNED), 0, 16, 16, 32, total_length, buffer);
1103       break;
1104     case MEP_OPERAND_SIMM16 :
1105       errmsg = insert_normal (cd, fields->f_16s16, 0|(1<<CGEN_IFLD_SIGNED), 0, 16, 16, 32, total_length, buffer);
1106       break;
1107     case MEP_OPERAND_SIMM16P0 :
1108       {
1109 {
1110   FLD (f_ivc2_8u0) = ((((UINT) (FLD (f_ivc2_simm16p0)) >> (8))) & (255));
1111   FLD (f_ivc2_8u20) = ((FLD (f_ivc2_simm16p0)) & (255));
1112 }
1113         errmsg = insert_normal (cd, fields->f_ivc2_8u0, 0, 0, 0, 8, 32, total_length, buffer);
1114         if (errmsg)
1115           break;
1116         errmsg = insert_normal (cd, fields->f_ivc2_8u20, 0, 0, 20, 8, 32, total_length, buffer);
1117         if (errmsg)
1118           break;
1119       }
1120       break;
1121     case MEP_OPERAND_SIMM6 :
1122       errmsg = insert_normal (cd, fields->f_6s8, 0|(1<<CGEN_IFLD_SIGNED), 0, 8, 6, 32, total_length, buffer);
1123       break;
1124     case MEP_OPERAND_SIMM8 :
1125       errmsg = insert_normal (cd, fields->f_8s8, 0|(1<<CGEN_IFLD_SIGNED), 0, 8, 8, 32, total_length, buffer);
1126       break;
1127     case MEP_OPERAND_SIMM8P0 :
1128       errmsg = insert_normal (cd, fields->f_ivc2_8s0, 0|(1<<CGEN_IFLD_SIGNED), 0, 0, 8, 32, total_length, buffer);
1129       break;
1130     case MEP_OPERAND_SIMM8P20 :
1131       errmsg = insert_normal (cd, fields->f_ivc2_8s20, 0|(1<<CGEN_IFLD_SIGNED), 0, 20, 8, 32, total_length, buffer);
1132       break;
1133     case MEP_OPERAND_SIMM8P4 :
1134       errmsg = insert_normal (cd, fields->f_ivc2_8s4, 0|(1<<CGEN_IFLD_SIGNED), 0, 4, 8, 32, total_length, buffer);
1135       break;
1136     case MEP_OPERAND_SP :
1137       break;
1138     case MEP_OPERAND_SPR :
1139       break;
1140     case MEP_OPERAND_TP :
1141       break;
1142     case MEP_OPERAND_TPR :
1143       break;
1144     case MEP_OPERAND_UDISP2 :
1145       errmsg = insert_normal (cd, fields->f_2u6, 0, 0, 6, 2, 32, total_length, buffer);
1146       break;
1147     case MEP_OPERAND_UDISP7 :
1148       errmsg = insert_normal (cd, fields->f_7u9, 0, 0, 9, 7, 32, total_length, buffer);
1149       break;
1150     case MEP_OPERAND_UDISP7A2 :
1151       {
1152         long value = fields->f_7u9a2;
1153         value = ((USI) (value) >> (1));
1154         errmsg = insert_normal (cd, value, 0, 0, 9, 6, 32, total_length, buffer);
1155       }
1156       break;
1157     case MEP_OPERAND_UDISP7A4 :
1158       {
1159         long value = fields->f_7u9a4;
1160         value = ((USI) (value) >> (2));
1161         errmsg = insert_normal (cd, value, 0, 0, 9, 5, 32, total_length, buffer);
1162       }
1163       break;
1164     case MEP_OPERAND_UIMM16 :
1165       errmsg = insert_normal (cd, fields->f_16u16, 0, 0, 16, 16, 32, total_length, buffer);
1166       break;
1167     case MEP_OPERAND_UIMM2 :
1168       errmsg = insert_normal (cd, fields->f_2u10, 0, 0, 10, 2, 32, total_length, buffer);
1169       break;
1170     case MEP_OPERAND_UIMM24 :
1171       {
1172 {
1173   FLD (f_24u8n_hi) = ((UINT) (FLD (f_24u8n)) >> (8));
1174   FLD (f_24u8n_lo) = ((FLD (f_24u8n)) & (255));
1175 }
1176         errmsg = insert_normal (cd, fields->f_24u8n_hi, 0, 0, 16, 16, 32, total_length, buffer);
1177         if (errmsg)
1178           break;
1179         errmsg = insert_normal (cd, fields->f_24u8n_lo, 0, 0, 8, 8, 32, total_length, buffer);
1180         if (errmsg)
1181           break;
1182       }
1183       break;
1184     case MEP_OPERAND_UIMM3 :
1185       errmsg = insert_normal (cd, fields->f_3u5, 0, 0, 5, 3, 32, total_length, buffer);
1186       break;
1187     case MEP_OPERAND_UIMM4 :
1188       errmsg = insert_normal (cd, fields->f_4u8, 0, 0, 8, 4, 32, total_length, buffer);
1189       break;
1190     case MEP_OPERAND_UIMM5 :
1191       errmsg = insert_normal (cd, fields->f_5u8, 0, 0, 8, 5, 32, total_length, buffer);
1192       break;
1193     case MEP_OPERAND_UIMM7A4 :
1194       {
1195         long value = fields->f_7u9a4;
1196         value = ((USI) (value) >> (2));
1197         errmsg = insert_normal (cd, value, 0, 0, 9, 5, 32, total_length, buffer);
1198       }
1199       break;
1200     case MEP_OPERAND_ZERO :
1201       break;
1202
1203     default :
1204       /* xgettext:c-format */
1205       fprintf (stderr, _("Unrecognized field %d while building insn.\n"),
1206                opindex);
1207       abort ();
1208   }
1209
1210   return errmsg;
1211 }
1212
1213 int mep_cgen_extract_operand
1214   (CGEN_CPU_DESC, int, CGEN_EXTRACT_INFO *, CGEN_INSN_INT, CGEN_FIELDS *, bfd_vma);
1215
1216 /* Main entry point for operand extraction.
1217    The result is <= 0 for error, >0 for success.
1218    ??? Actual values aren't well defined right now.
1219
1220    This function is basically just a big switch statement.  Earlier versions
1221    used tables to look up the function to use, but
1222    - if the table contains both assembler and disassembler functions then
1223      the disassembler contains much of the assembler and vice-versa,
1224    - there's a lot of inlining possibilities as things grow,
1225    - using a switch statement avoids the function call overhead.
1226
1227    This function could be moved into `print_insn_normal', but keeping it
1228    separate makes clear the interface between `print_insn_normal' and each of
1229    the handlers.  */
1230
1231 int
1232 mep_cgen_extract_operand (CGEN_CPU_DESC cd,
1233                              int opindex,
1234                              CGEN_EXTRACT_INFO *ex_info,
1235                              CGEN_INSN_INT insn_value,
1236                              CGEN_FIELDS * fields,
1237                              bfd_vma pc)
1238 {
1239   /* Assume success (for those operands that are nops).  */
1240   int length = 1;
1241   unsigned int total_length = CGEN_FIELDS_BITSIZE (fields);
1242
1243   switch (opindex)
1244     {
1245     case MEP_OPERAND_ADDR24A4 :
1246       {
1247         length = extract_normal (cd, ex_info, insn_value, 0, 0, 16, 16, 32, total_length, pc, & fields->f_24u8a4n_hi);
1248         if (length <= 0) break;
1249         length = extract_normal (cd, ex_info, insn_value, 0, 0, 8, 6, 32, total_length, pc, & fields->f_24u8a4n_lo);
1250         if (length <= 0) break;
1251   FLD (f_24u8a4n) = ((((FLD (f_24u8a4n_hi)) << (8))) | (((FLD (f_24u8a4n_lo)) << (2))));
1252       }
1253       break;
1254     case MEP_OPERAND_C5RMUIMM20 :
1255       {
1256         length = extract_normal (cd, ex_info, insn_value, 0, 0, 8, 4, 32, total_length, pc, & fields->f_c5_rm);
1257         if (length <= 0) break;
1258         length = extract_normal (cd, ex_info, insn_value, 0, 0, 16, 16, 32, total_length, pc, & fields->f_c5_16u16);
1259         if (length <= 0) break;
1260 {
1261   FLD (f_c5_rmuimm20) = ((FLD (f_c5_16u16)) | (((FLD (f_c5_rm)) << (16))));
1262 }
1263       }
1264       break;
1265     case MEP_OPERAND_C5RNMUIMM24 :
1266       {
1267         length = extract_normal (cd, ex_info, insn_value, 0, 0, 4, 8, 32, total_length, pc, & fields->f_c5_rnm);
1268         if (length <= 0) break;
1269         length = extract_normal (cd, ex_info, insn_value, 0, 0, 16, 16, 32, total_length, pc, & fields->f_c5_16u16);
1270         if (length <= 0) break;
1271 {
1272   FLD (f_c5_rnmuimm24) = ((FLD (f_c5_16u16)) | (((FLD (f_c5_rnm)) << (16))));
1273 }
1274       }
1275       break;
1276     case MEP_OPERAND_CALLNUM :
1277       {
1278         length = extract_normal (cd, ex_info, insn_value, 0, 0, 5, 1, 32, total_length, pc, & fields->f_5);
1279         if (length <= 0) break;
1280         length = extract_normal (cd, ex_info, insn_value, 0, 0, 6, 1, 32, total_length, pc, & fields->f_6);
1281         if (length <= 0) break;
1282         length = extract_normal (cd, ex_info, insn_value, 0, 0, 7, 1, 32, total_length, pc, & fields->f_7);
1283         if (length <= 0) break;
1284         length = extract_normal (cd, ex_info, insn_value, 0, 0, 11, 1, 32, total_length, pc, & fields->f_11);
1285         if (length <= 0) break;
1286   FLD (f_callnum) = ((((FLD (f_5)) << (3))) | (((((FLD (f_6)) << (2))) | (((((FLD (f_7)) << (1))) | (FLD (f_11)))))));
1287       }
1288       break;
1289     case MEP_OPERAND_CCCC :
1290       length = extract_normal (cd, ex_info, insn_value, 0, 0, 8, 4, 32, total_length, pc, & fields->f_rm);
1291       break;
1292     case MEP_OPERAND_CCRN :
1293       {
1294         length = extract_normal (cd, ex_info, insn_value, 0, 0, 28, 2, 32, total_length, pc, & fields->f_ccrn_hi);
1295         if (length <= 0) break;
1296         length = extract_normal (cd, ex_info, insn_value, 0, 0, 4, 4, 32, total_length, pc, & fields->f_ccrn_lo);
1297         if (length <= 0) break;
1298   FLD (f_ccrn) = ((((FLD (f_ccrn_hi)) << (4))) | (FLD (f_ccrn_lo)));
1299       }
1300       break;
1301     case MEP_OPERAND_CDISP10 :
1302       {
1303         long value;
1304         length = extract_normal (cd, ex_info, insn_value, 0|(1<<CGEN_IFLD_SIGNED), 0, 22, 10, 32, total_length, pc, & value);
1305         value = (((((((((value) & (128))) ? (((value) ^ (768))) : (value)) & (512))) ? ((((((value) & (128))) ? (((value) ^ (768))) : (value)) - (1024))) : ((((value) & (128))) ? (((value) ^ (768))) : (value))) & (512))) ? (((((((((((value) & (128))) ? (((value) ^ (768))) : (value)) & (512))) ? ((((((value) & (128))) ? (((value) ^ (768))) : (value)) - (1024))) : ((((value) & (128))) ? (((value) ^ (768))) : (value))) & (1023))) - (1024))) : (((((((((value) & (128))) ? (((value) ^ (768))) : (value)) & (512))) ? ((((((value) & (128))) ? (((value) ^ (768))) : (value)) - (1024))) : ((((value) & (128))) ? (((value) ^ (768))) : (value))) & (1023)));
1306         fields->f_cdisp10 = value;
1307       }
1308       break;
1309     case MEP_OPERAND_CDISP10A2 :
1310       {
1311         long value;
1312         length = extract_normal (cd, ex_info, insn_value, 0|(1<<CGEN_IFLD_SIGNED), 0, 22, 10, 32, total_length, pc, & value);
1313         value = (((((((((value) & (128))) ? (((value) ^ (768))) : (value)) & (512))) ? ((((((value) & (128))) ? (((value) ^ (768))) : (value)) - (1024))) : ((((value) & (128))) ? (((value) ^ (768))) : (value))) & (512))) ? (((((((((((value) & (128))) ? (((value) ^ (768))) : (value)) & (512))) ? ((((((value) & (128))) ? (((value) ^ (768))) : (value)) - (1024))) : ((((value) & (128))) ? (((value) ^ (768))) : (value))) & (1023))) - (1024))) : (((((((((value) & (128))) ? (((value) ^ (768))) : (value)) & (512))) ? ((((((value) & (128))) ? (((value) ^ (768))) : (value)) - (1024))) : ((((value) & (128))) ? (((value) ^ (768))) : (value))) & (1023)));
1314         fields->f_cdisp10 = value;
1315       }
1316       break;
1317     case MEP_OPERAND_CDISP10A4 :
1318       {
1319         long value;
1320         length = extract_normal (cd, ex_info, insn_value, 0|(1<<CGEN_IFLD_SIGNED), 0, 22, 10, 32, total_length, pc, & value);
1321         value = (((((((((value) & (128))) ? (((value) ^ (768))) : (value)) & (512))) ? ((((((value) & (128))) ? (((value) ^ (768))) : (value)) - (1024))) : ((((value) & (128))) ? (((value) ^ (768))) : (value))) & (512))) ? (((((((((((value) & (128))) ? (((value) ^ (768))) : (value)) & (512))) ? ((((((value) & (128))) ? (((value) ^ (768))) : (value)) - (1024))) : ((((value) & (128))) ? (((value) ^ (768))) : (value))) & (1023))) - (1024))) : (((((((((value) & (128))) ? (((value) ^ (768))) : (value)) & (512))) ? ((((((value) & (128))) ? (((value) ^ (768))) : (value)) - (1024))) : ((((value) & (128))) ? (((value) ^ (768))) : (value))) & (1023)));
1322         fields->f_cdisp10 = value;
1323       }
1324       break;
1325     case MEP_OPERAND_CDISP10A8 :
1326       {
1327         long value;
1328         length = extract_normal (cd, ex_info, insn_value, 0|(1<<CGEN_IFLD_SIGNED), 0, 22, 10, 32, total_length, pc, & value);
1329         value = (((((((((value) & (128))) ? (((value) ^ (768))) : (value)) & (512))) ? ((((((value) & (128))) ? (((value) ^ (768))) : (value)) - (1024))) : ((((value) & (128))) ? (((value) ^ (768))) : (value))) & (512))) ? (((((((((((value) & (128))) ? (((value) ^ (768))) : (value)) & (512))) ? ((((((value) & (128))) ? (((value) ^ (768))) : (value)) - (1024))) : ((((value) & (128))) ? (((value) ^ (768))) : (value))) & (1023))) - (1024))) : (((((((((value) & (128))) ? (((value) ^ (768))) : (value)) & (512))) ? ((((((value) & (128))) ? (((value) ^ (768))) : (value)) - (1024))) : ((((value) & (128))) ? (((value) ^ (768))) : (value))) & (1023)));
1330         fields->f_cdisp10 = value;
1331       }
1332       break;
1333     case MEP_OPERAND_CDISP12 :
1334       length = extract_normal (cd, ex_info, insn_value, 0|(1<<CGEN_IFLD_SIGNED), 0, 20, 12, 32, total_length, pc, & fields->f_12s20);
1335       break;
1336     case MEP_OPERAND_CIMM4 :
1337       length = extract_normal (cd, ex_info, insn_value, 0, 0, 4, 4, 32, total_length, pc, & fields->f_rn);
1338       break;
1339     case MEP_OPERAND_CIMM5 :
1340       length = extract_normal (cd, ex_info, insn_value, 0, 0, 24, 5, 32, total_length, pc, & fields->f_5u24);
1341       break;
1342     case MEP_OPERAND_CODE16 :
1343       length = extract_normal (cd, ex_info, insn_value, 0, 0, 16, 16, 32, total_length, pc, & fields->f_16u16);
1344       break;
1345     case MEP_OPERAND_CODE24 :
1346       {
1347         length = extract_normal (cd, ex_info, insn_value, 0, 0, 4, 8, 32, total_length, pc, & fields->f_24u4n_hi);
1348         if (length <= 0) break;
1349         length = extract_normal (cd, ex_info, insn_value, 0, 0, 16, 16, 32, total_length, pc, & fields->f_24u4n_lo);
1350         if (length <= 0) break;
1351   FLD (f_24u4n) = ((((FLD (f_24u4n_hi)) << (16))) | (FLD (f_24u4n_lo)));
1352       }
1353       break;
1354     case MEP_OPERAND_CP_FLAG :
1355       break;
1356     case MEP_OPERAND_CRN :
1357       length = extract_normal (cd, ex_info, insn_value, 0, 0, 4, 4, 32, total_length, pc, & fields->f_crn);
1358       break;
1359     case MEP_OPERAND_CRN64 :
1360       length = extract_normal (cd, ex_info, insn_value, 0, 0, 4, 4, 32, total_length, pc, & fields->f_crn);
1361       break;
1362     case MEP_OPERAND_CRNX :
1363       {
1364         length = extract_normal (cd, ex_info, insn_value, 0, 0, 28, 1, 32, total_length, pc, & fields->f_crnx_hi);
1365         if (length <= 0) break;
1366         length = extract_normal (cd, ex_info, insn_value, 0, 0, 4, 4, 32, total_length, pc, & fields->f_crnx_lo);
1367         if (length <= 0) break;
1368   FLD (f_crnx) = ((((FLD (f_crnx_hi)) << (4))) | (FLD (f_crnx_lo)));
1369       }
1370       break;
1371     case MEP_OPERAND_CRNX64 :
1372       {
1373         length = extract_normal (cd, ex_info, insn_value, 0, 0, 28, 1, 32, total_length, pc, & fields->f_crnx_hi);
1374         if (length <= 0) break;
1375         length = extract_normal (cd, ex_info, insn_value, 0, 0, 4, 4, 32, total_length, pc, & fields->f_crnx_lo);
1376         if (length <= 0) break;
1377   FLD (f_crnx) = ((((FLD (f_crnx_hi)) << (4))) | (FLD (f_crnx_lo)));
1378       }
1379       break;
1380     case MEP_OPERAND_CROC :
1381       length = extract_normal (cd, ex_info, insn_value, 0, 0, 7, 5, 32, total_length, pc, & fields->f_ivc2_5u7);
1382       break;
1383     case MEP_OPERAND_CROP :
1384       length = extract_normal (cd, ex_info, insn_value, 0, 0, 23, 5, 32, total_length, pc, & fields->f_ivc2_5u23);
1385       break;
1386     case MEP_OPERAND_CRPC :
1387       length = extract_normal (cd, ex_info, insn_value, 0, 0, 26, 5, 32, total_length, pc, & fields->f_ivc2_5u26);
1388       break;
1389     case MEP_OPERAND_CRPP :
1390       length = extract_normal (cd, ex_info, insn_value, 0, 0, 18, 5, 32, total_length, pc, & fields->f_ivc2_5u18);
1391       break;
1392     case MEP_OPERAND_CRQC :
1393       length = extract_normal (cd, ex_info, insn_value, 0, 0, 21, 5, 32, total_length, pc, & fields->f_ivc2_5u21);
1394       break;
1395     case MEP_OPERAND_CRQP :
1396       length = extract_normal (cd, ex_info, insn_value, 0, 0, 13, 5, 32, total_length, pc, & fields->f_ivc2_5u13);
1397       break;
1398     case MEP_OPERAND_CSRN :
1399       {
1400         length = extract_normal (cd, ex_info, insn_value, 0, 0, 15, 1, 32, total_length, pc, & fields->f_csrn_hi);
1401         if (length <= 0) break;
1402         length = extract_normal (cd, ex_info, insn_value, 0, 0, 8, 4, 32, total_length, pc, & fields->f_csrn_lo);
1403         if (length <= 0) break;
1404   FLD (f_csrn) = ((((FLD (f_csrn_hi)) << (4))) | (FLD (f_csrn_lo)));
1405       }
1406       break;
1407     case MEP_OPERAND_CSRN_IDX :
1408       {
1409         length = extract_normal (cd, ex_info, insn_value, 0, 0, 15, 1, 32, total_length, pc, & fields->f_csrn_hi);
1410         if (length <= 0) break;
1411         length = extract_normal (cd, ex_info, insn_value, 0, 0, 8, 4, 32, total_length, pc, & fields->f_csrn_lo);
1412         if (length <= 0) break;
1413   FLD (f_csrn) = ((((FLD (f_csrn_hi)) << (4))) | (FLD (f_csrn_lo)));
1414       }
1415       break;
1416     case MEP_OPERAND_DBG :
1417       break;
1418     case MEP_OPERAND_DEPC :
1419       break;
1420     case MEP_OPERAND_EPC :
1421       break;
1422     case MEP_OPERAND_EXC :
1423       break;
1424     case MEP_OPERAND_HI :
1425       break;
1426     case MEP_OPERAND_IMM16P0 :
1427       {
1428         length = extract_normal (cd, ex_info, insn_value, 0, 0, 0, 8, 32, total_length, pc, & fields->f_ivc2_8u0);
1429         if (length <= 0) break;
1430         length = extract_normal (cd, ex_info, insn_value, 0, 0, 20, 8, 32, total_length, pc, & fields->f_ivc2_8u20);
1431         if (length <= 0) break;
1432 {
1433   FLD (f_ivc2_imm16p0) = ((FLD (f_ivc2_8u20)) | (((FLD (f_ivc2_8u0)) << (8))));
1434 }
1435       }
1436       break;
1437     case MEP_OPERAND_IMM3P12 :
1438       length = extract_normal (cd, ex_info, insn_value, 0, 0, 12, 3, 32, total_length, pc, & fields->f_ivc2_3u12);
1439       break;
1440     case MEP_OPERAND_IMM3P25 :
1441       length = extract_normal (cd, ex_info, insn_value, 0, 0, 25, 3, 32, total_length, pc, & fields->f_ivc2_3u25);
1442       break;
1443     case MEP_OPERAND_IMM3P4 :
1444       length = extract_normal (cd, ex_info, insn_value, 0, 0, 4, 3, 32, total_length, pc, & fields->f_ivc2_3u4);
1445       break;
1446     case MEP_OPERAND_IMM3P5 :
1447       length = extract_normal (cd, ex_info, insn_value, 0, 0, 5, 3, 32, total_length, pc, & fields->f_ivc2_3u5);
1448       break;
1449     case MEP_OPERAND_IMM3P9 :
1450       length = extract_normal (cd, ex_info, insn_value, 0, 0, 9, 3, 32, total_length, pc, & fields->f_ivc2_3u9);
1451       break;
1452     case MEP_OPERAND_IMM4P10 :
1453       length = extract_normal (cd, ex_info, insn_value, 0, 0, 10, 4, 32, total_length, pc, & fields->f_ivc2_4u10);
1454       break;
1455     case MEP_OPERAND_IMM4P4 :
1456       length = extract_normal (cd, ex_info, insn_value, 0, 0, 4, 4, 32, total_length, pc, & fields->f_ivc2_4u4);
1457       break;
1458     case MEP_OPERAND_IMM4P8 :
1459       length = extract_normal (cd, ex_info, insn_value, 0, 0, 8, 4, 32, total_length, pc, & fields->f_ivc2_4u8);
1460       break;
1461     case MEP_OPERAND_IMM5P23 :
1462       length = extract_normal (cd, ex_info, insn_value, 0, 0, 23, 5, 32, total_length, pc, & fields->f_ivc2_5u23);
1463       break;
1464     case MEP_OPERAND_IMM5P3 :
1465       length = extract_normal (cd, ex_info, insn_value, 0, 0, 3, 5, 32, total_length, pc, & fields->f_ivc2_5u3);
1466       break;
1467     case MEP_OPERAND_IMM5P7 :
1468       length = extract_normal (cd, ex_info, insn_value, 0, 0, 7, 5, 32, total_length, pc, & fields->f_ivc2_5u7);
1469       break;
1470     case MEP_OPERAND_IMM5P8 :
1471       length = extract_normal (cd, ex_info, insn_value, 0, 0, 8, 5, 32, total_length, pc, & fields->f_ivc2_5u8);
1472       break;
1473     case MEP_OPERAND_IMM6P2 :
1474       length = extract_normal (cd, ex_info, insn_value, 0, 0, 2, 6, 32, total_length, pc, & fields->f_ivc2_6u2);
1475       break;
1476     case MEP_OPERAND_IMM6P6 :
1477       length = extract_normal (cd, ex_info, insn_value, 0, 0, 6, 6, 32, total_length, pc, & fields->f_ivc2_6u6);
1478       break;
1479     case MEP_OPERAND_IMM8P0 :
1480       length = extract_normal (cd, ex_info, insn_value, 0, 0, 0, 8, 32, total_length, pc, & fields->f_ivc2_8u0);
1481       break;
1482     case MEP_OPERAND_IMM8P20 :
1483       length = extract_normal (cd, ex_info, insn_value, 0, 0, 20, 8, 32, total_length, pc, & fields->f_ivc2_8u20);
1484       break;
1485     case MEP_OPERAND_IMM8P4 :
1486       length = extract_normal (cd, ex_info, insn_value, 0, 0, 4, 8, 32, total_length, pc, & fields->f_ivc2_8u4);
1487       break;
1488     case MEP_OPERAND_IVC_X_0_2 :
1489       length = extract_normal (cd, ex_info, insn_value, 0, 0, 0, 2, 32, total_length, pc, & fields->f_ivc2_2u0);
1490       break;
1491     case MEP_OPERAND_IVC_X_0_3 :
1492       length = extract_normal (cd, ex_info, insn_value, 0, 0, 0, 3, 32, total_length, pc, & fields->f_ivc2_3u0);
1493       break;
1494     case MEP_OPERAND_IVC_X_0_4 :
1495       length = extract_normal (cd, ex_info, insn_value, 0, 0, 0, 4, 32, total_length, pc, & fields->f_ivc2_4u0);
1496       break;
1497     case MEP_OPERAND_IVC_X_0_5 :
1498       length = extract_normal (cd, ex_info, insn_value, 0, 0, 0, 5, 32, total_length, pc, & fields->f_ivc2_5u0);
1499       break;
1500     case MEP_OPERAND_IVC_X_6_1 :
1501       length = extract_normal (cd, ex_info, insn_value, 0, 0, 6, 1, 32, total_length, pc, & fields->f_ivc2_1u6);
1502       break;
1503     case MEP_OPERAND_IVC_X_6_2 :
1504       length = extract_normal (cd, ex_info, insn_value, 0, 0, 6, 2, 32, total_length, pc, & fields->f_ivc2_2u6);
1505       break;
1506     case MEP_OPERAND_IVC_X_6_3 :
1507       length = extract_normal (cd, ex_info, insn_value, 0, 0, 6, 3, 32, total_length, pc, & fields->f_ivc2_3u6);
1508       break;
1509     case MEP_OPERAND_IVC2_ACC0_0 :
1510       break;
1511     case MEP_OPERAND_IVC2_ACC0_1 :
1512       break;
1513     case MEP_OPERAND_IVC2_ACC0_2 :
1514       break;
1515     case MEP_OPERAND_IVC2_ACC0_3 :
1516       break;
1517     case MEP_OPERAND_IVC2_ACC0_4 :
1518       break;
1519     case MEP_OPERAND_IVC2_ACC0_5 :
1520       break;
1521     case MEP_OPERAND_IVC2_ACC0_6 :
1522       break;
1523     case MEP_OPERAND_IVC2_ACC0_7 :
1524       break;
1525     case MEP_OPERAND_IVC2_ACC1_0 :
1526       break;
1527     case MEP_OPERAND_IVC2_ACC1_1 :
1528       break;
1529     case MEP_OPERAND_IVC2_ACC1_2 :
1530       break;
1531     case MEP_OPERAND_IVC2_ACC1_3 :
1532       break;
1533     case MEP_OPERAND_IVC2_ACC1_4 :
1534       break;
1535     case MEP_OPERAND_IVC2_ACC1_5 :
1536       break;
1537     case MEP_OPERAND_IVC2_ACC1_6 :
1538       break;
1539     case MEP_OPERAND_IVC2_ACC1_7 :
1540       break;
1541     case MEP_OPERAND_IVC2_CC :
1542       break;
1543     case MEP_OPERAND_IVC2_COFA0 :
1544       break;
1545     case MEP_OPERAND_IVC2_COFA1 :
1546       break;
1547     case MEP_OPERAND_IVC2_COFR0 :
1548       break;
1549     case MEP_OPERAND_IVC2_COFR1 :
1550       break;
1551     case MEP_OPERAND_IVC2_CSAR0 :
1552       break;
1553     case MEP_OPERAND_IVC2_CSAR1 :
1554       break;
1555     case MEP_OPERAND_IVC2C3CCRN :
1556       {
1557         length = extract_normal (cd, ex_info, insn_value, 0, 0, 28, 2, 32, total_length, pc, & fields->f_ivc2_ccrn_c3hi);
1558         if (length <= 0) break;
1559         length = extract_normal (cd, ex_info, insn_value, 0, 0, 4, 4, 32, total_length, pc, & fields->f_ivc2_ccrn_c3lo);
1560         if (length <= 0) break;
1561   FLD (f_ivc2_ccrn_c3) = ((((FLD (f_ivc2_ccrn_c3hi)) << (4))) | (FLD (f_ivc2_ccrn_c3lo)));
1562       }
1563       break;
1564     case MEP_OPERAND_IVC2CCRN :
1565       {
1566         length = extract_normal (cd, ex_info, insn_value, 0, 0, 20, 2, 32, total_length, pc, & fields->f_ivc2_ccrn_h2);
1567         if (length <= 0) break;
1568         length = extract_normal (cd, ex_info, insn_value, 0, 0, 0, 4, 32, total_length, pc, & fields->f_ivc2_ccrn_lo);
1569         if (length <= 0) break;
1570   FLD (f_ivc2_ccrn) = ((((FLD (f_ivc2_ccrn_h2)) << (4))) | (FLD (f_ivc2_ccrn_lo)));
1571       }
1572       break;
1573     case MEP_OPERAND_IVC2CRN :
1574       {
1575         length = extract_normal (cd, ex_info, insn_value, 0, 0, 20, 1, 32, total_length, pc, & fields->f_ivc2_ccrn_h1);
1576         if (length <= 0) break;
1577         length = extract_normal (cd, ex_info, insn_value, 0, 0, 0, 4, 32, total_length, pc, & fields->f_ivc2_ccrn_lo);
1578         if (length <= 0) break;
1579   FLD (f_ivc2_crnx) = ((((FLD (f_ivc2_ccrn_h1)) << (4))) | (FLD (f_ivc2_ccrn_lo)));
1580       }
1581       break;
1582     case MEP_OPERAND_IVC2RM :
1583       length = extract_normal (cd, ex_info, insn_value, 0, 0, 4, 4, 32, total_length, pc, & fields->f_ivc2_crm);
1584       break;
1585     case MEP_OPERAND_LO :
1586       break;
1587     case MEP_OPERAND_LP :
1588       break;
1589     case MEP_OPERAND_MB0 :
1590       break;
1591     case MEP_OPERAND_MB1 :
1592       break;
1593     case MEP_OPERAND_ME0 :
1594       break;
1595     case MEP_OPERAND_ME1 :
1596       break;
1597     case MEP_OPERAND_NPC :
1598       break;
1599     case MEP_OPERAND_OPT :
1600       break;
1601     case MEP_OPERAND_PCABS24A2 :
1602       {
1603         length = extract_normal (cd, ex_info, insn_value, 0, 0, 16, 16, 32, total_length, pc, & fields->f_24u5a2n_hi);
1604         if (length <= 0) break;
1605         length = extract_normal (cd, ex_info, insn_value, 0, 0, 5, 7, 32, total_length, pc, & fields->f_24u5a2n_lo);
1606         if (length <= 0) break;
1607   FLD (f_24u5a2n) = ((((FLD (f_24u5a2n_hi)) << (8))) | (((FLD (f_24u5a2n_lo)) << (1))));
1608       }
1609       break;
1610     case MEP_OPERAND_PCREL12A2 :
1611       {
1612         long value;
1613         length = extract_normal (cd, ex_info, insn_value, 0|(1<<CGEN_IFLD_SIGNED)|(1<<CGEN_IFLD_PCREL_ADDR), 0, 4, 11, 32, total_length, pc, & value);
1614         value = ((((value) << (1))) + (pc));
1615         fields->f_12s4a2 = value;
1616       }
1617       break;
1618     case MEP_OPERAND_PCREL17A2 :
1619       {
1620         long value;
1621         length = extract_normal (cd, ex_info, insn_value, 0|(1<<CGEN_IFLD_SIGNED)|(1<<CGEN_IFLD_PCREL_ADDR), 0, 16, 16, 32, total_length, pc, & value);
1622         value = ((((value) << (1))) + (pc));
1623         fields->f_17s16a2 = value;
1624       }
1625       break;
1626     case MEP_OPERAND_PCREL24A2 :
1627       {
1628         length = extract_normal (cd, ex_info, insn_value, 0|(1<<CGEN_IFLD_SIGNED)|(1<<CGEN_IFLD_PCREL_ADDR), 0, 16, 16, 32, total_length, pc, & fields->f_24s5a2n_hi);
1629         if (length <= 0) break;
1630         length = extract_normal (cd, ex_info, insn_value, 0|(1<<CGEN_IFLD_PCREL_ADDR), 0, 5, 7, 32, total_length, pc, & fields->f_24s5a2n_lo);
1631         if (length <= 0) break;
1632   FLD (f_24s5a2n) = ((((((FLD (f_24s5a2n_hi)) << (8))) | (((FLD (f_24s5a2n_lo)) << (1))))) + (pc));
1633       }
1634       break;
1635     case MEP_OPERAND_PCREL8A2 :
1636       {
1637         long value;
1638         length = extract_normal (cd, ex_info, insn_value, 0|(1<<CGEN_IFLD_SIGNED)|(1<<CGEN_IFLD_PCREL_ADDR), 0, 8, 7, 32, total_length, pc, & value);
1639         value = ((((value) << (1))) + (pc));
1640         fields->f_8s8a2 = value;
1641       }
1642       break;
1643     case MEP_OPERAND_PSW :
1644       break;
1645     case MEP_OPERAND_R0 :
1646       break;
1647     case MEP_OPERAND_R1 :
1648       break;
1649     case MEP_OPERAND_RL :
1650       length = extract_normal (cd, ex_info, insn_value, 0, 0, 12, 4, 32, total_length, pc, & fields->f_rl);
1651       break;
1652     case MEP_OPERAND_RL5 :
1653       length = extract_normal (cd, ex_info, insn_value, 0, 0, 20, 4, 32, total_length, pc, & fields->f_rl5);
1654       break;
1655     case MEP_OPERAND_RM :
1656       length = extract_normal (cd, ex_info, insn_value, 0, 0, 8, 4, 32, total_length, pc, & fields->f_rm);
1657       break;
1658     case MEP_OPERAND_RMA :
1659       length = extract_normal (cd, ex_info, insn_value, 0, 0, 8, 4, 32, total_length, pc, & fields->f_rm);
1660       break;
1661     case MEP_OPERAND_RN :
1662       length = extract_normal (cd, ex_info, insn_value, 0, 0, 4, 4, 32, total_length, pc, & fields->f_rn);
1663       break;
1664     case MEP_OPERAND_RN3 :
1665       length = extract_normal (cd, ex_info, insn_value, 0, 0, 5, 3, 32, total_length, pc, & fields->f_rn3);
1666       break;
1667     case MEP_OPERAND_RN3C :
1668       length = extract_normal (cd, ex_info, insn_value, 0, 0, 5, 3, 32, total_length, pc, & fields->f_rn3);
1669       break;
1670     case MEP_OPERAND_RN3L :
1671       length = extract_normal (cd, ex_info, insn_value, 0, 0, 5, 3, 32, total_length, pc, & fields->f_rn3);
1672       break;
1673     case MEP_OPERAND_RN3S :
1674       length = extract_normal (cd, ex_info, insn_value, 0, 0, 5, 3, 32, total_length, pc, & fields->f_rn3);
1675       break;
1676     case MEP_OPERAND_RN3UC :
1677       length = extract_normal (cd, ex_info, insn_value, 0, 0, 5, 3, 32, total_length, pc, & fields->f_rn3);
1678       break;
1679     case MEP_OPERAND_RN3UL :
1680       length = extract_normal (cd, ex_info, insn_value, 0, 0, 5, 3, 32, total_length, pc, & fields->f_rn3);
1681       break;
1682     case MEP_OPERAND_RN3US :
1683       length = extract_normal (cd, ex_info, insn_value, 0, 0, 5, 3, 32, total_length, pc, & fields->f_rn3);
1684       break;
1685     case MEP_OPERAND_RNC :
1686       length = extract_normal (cd, ex_info, insn_value, 0, 0, 4, 4, 32, total_length, pc, & fields->f_rn);
1687       break;
1688     case MEP_OPERAND_RNL :
1689       length = extract_normal (cd, ex_info, insn_value, 0, 0, 4, 4, 32, total_length, pc, & fields->f_rn);
1690       break;
1691     case MEP_OPERAND_RNS :
1692       length = extract_normal (cd, ex_info, insn_value, 0, 0, 4, 4, 32, total_length, pc, & fields->f_rn);
1693       break;
1694     case MEP_OPERAND_RNUC :
1695       length = extract_normal (cd, ex_info, insn_value, 0, 0, 4, 4, 32, total_length, pc, & fields->f_rn);
1696       break;
1697     case MEP_OPERAND_RNUL :
1698       length = extract_normal (cd, ex_info, insn_value, 0, 0, 4, 4, 32, total_length, pc, & fields->f_rn);
1699       break;
1700     case MEP_OPERAND_RNUS :
1701       length = extract_normal (cd, ex_info, insn_value, 0, 0, 4, 4, 32, total_length, pc, & fields->f_rn);
1702       break;
1703     case MEP_OPERAND_SAR :
1704       break;
1705     case MEP_OPERAND_SDISP16 :
1706       length = extract_normal (cd, ex_info, insn_value, 0|(1<<CGEN_IFLD_SIGNED), 0, 16, 16, 32, total_length, pc, & fields->f_16s16);
1707       break;
1708     case MEP_OPERAND_SIMM16 :
1709       length = extract_normal (cd, ex_info, insn_value, 0|(1<<CGEN_IFLD_SIGNED), 0, 16, 16, 32, total_length, pc, & fields->f_16s16);
1710       break;
1711     case MEP_OPERAND_SIMM16P0 :
1712       {
1713         length = extract_normal (cd, ex_info, insn_value, 0, 0, 0, 8, 32, total_length, pc, & fields->f_ivc2_8u0);
1714         if (length <= 0) break;
1715         length = extract_normal (cd, ex_info, insn_value, 0, 0, 20, 8, 32, total_length, pc, & fields->f_ivc2_8u20);
1716         if (length <= 0) break;
1717 {
1718   FLD (f_ivc2_simm16p0) = ((FLD (f_ivc2_8u20)) | (((FLD (f_ivc2_8u0)) << (8))));
1719 }
1720       }
1721       break;
1722     case MEP_OPERAND_SIMM6 :
1723       length = extract_normal (cd, ex_info, insn_value, 0|(1<<CGEN_IFLD_SIGNED), 0, 8, 6, 32, total_length, pc, & fields->f_6s8);
1724       break;
1725     case MEP_OPERAND_SIMM8 :
1726       length = extract_normal (cd, ex_info, insn_value, 0|(1<<CGEN_IFLD_SIGNED), 0, 8, 8, 32, total_length, pc, & fields->f_8s8);
1727       break;
1728     case MEP_OPERAND_SIMM8P0 :
1729       length = extract_normal (cd, ex_info, insn_value, 0|(1<<CGEN_IFLD_SIGNED), 0, 0, 8, 32, total_length, pc, & fields->f_ivc2_8s0);
1730       break;
1731     case MEP_OPERAND_SIMM8P20 :
1732       length = extract_normal (cd, ex_info, insn_value, 0|(1<<CGEN_IFLD_SIGNED), 0, 20, 8, 32, total_length, pc, & fields->f_ivc2_8s20);
1733       break;
1734     case MEP_OPERAND_SIMM8P4 :
1735       length = extract_normal (cd, ex_info, insn_value, 0|(1<<CGEN_IFLD_SIGNED), 0, 4, 8, 32, total_length, pc, & fields->f_ivc2_8s4);
1736       break;
1737     case MEP_OPERAND_SP :
1738       break;
1739     case MEP_OPERAND_SPR :
1740       break;
1741     case MEP_OPERAND_TP :
1742       break;
1743     case MEP_OPERAND_TPR :
1744       break;
1745     case MEP_OPERAND_UDISP2 :
1746       length = extract_normal (cd, ex_info, insn_value, 0, 0, 6, 2, 32, total_length, pc, & fields->f_2u6);
1747       break;
1748     case MEP_OPERAND_UDISP7 :
1749       length = extract_normal (cd, ex_info, insn_value, 0, 0, 9, 7, 32, total_length, pc, & fields->f_7u9);
1750       break;
1751     case MEP_OPERAND_UDISP7A2 :
1752       {
1753         long value;
1754         length = extract_normal (cd, ex_info, insn_value, 0, 0, 9, 6, 32, total_length, pc, & value);
1755         value = ((value) << (1));
1756         fields->f_7u9a2 = value;
1757       }
1758       break;
1759     case MEP_OPERAND_UDISP7A4 :
1760       {
1761         long value;
1762         length = extract_normal (cd, ex_info, insn_value, 0, 0, 9, 5, 32, total_length, pc, & value);
1763         value = ((value) << (2));
1764         fields->f_7u9a4 = value;
1765       }
1766       break;
1767     case MEP_OPERAND_UIMM16 :
1768       length = extract_normal (cd, ex_info, insn_value, 0, 0, 16, 16, 32, total_length, pc, & fields->f_16u16);
1769       break;
1770     case MEP_OPERAND_UIMM2 :
1771       length = extract_normal (cd, ex_info, insn_value, 0, 0, 10, 2, 32, total_length, pc, & fields->f_2u10);
1772       break;
1773     case MEP_OPERAND_UIMM24 :
1774       {
1775         length = extract_normal (cd, ex_info, insn_value, 0, 0, 16, 16, 32, total_length, pc, & fields->f_24u8n_hi);
1776         if (length <= 0) break;
1777         length = extract_normal (cd, ex_info, insn_value, 0, 0, 8, 8, 32, total_length, pc, & fields->f_24u8n_lo);
1778         if (length <= 0) break;
1779   FLD (f_24u8n) = ((((FLD (f_24u8n_hi)) << (8))) | (FLD (f_24u8n_lo)));
1780       }
1781       break;
1782     case MEP_OPERAND_UIMM3 :
1783       length = extract_normal (cd, ex_info, insn_value, 0, 0, 5, 3, 32, total_length, pc, & fields->f_3u5);
1784       break;
1785     case MEP_OPERAND_UIMM4 :
1786       length = extract_normal (cd, ex_info, insn_value, 0, 0, 8, 4, 32, total_length, pc, & fields->f_4u8);
1787       break;
1788     case MEP_OPERAND_UIMM5 :
1789       length = extract_normal (cd, ex_info, insn_value, 0, 0, 8, 5, 32, total_length, pc, & fields->f_5u8);
1790       break;
1791     case MEP_OPERAND_UIMM7A4 :
1792       {
1793         long value;
1794         length = extract_normal (cd, ex_info, insn_value, 0, 0, 9, 5, 32, total_length, pc, & value);
1795         value = ((value) << (2));
1796         fields->f_7u9a4 = value;
1797       }
1798       break;
1799     case MEP_OPERAND_ZERO :
1800       break;
1801
1802     default :
1803       /* xgettext:c-format */
1804       fprintf (stderr, _("Unrecognized field %d while decoding insn.\n"),
1805                opindex);
1806       abort ();
1807     }
1808
1809   return length;
1810 }
1811
1812 cgen_insert_fn * const mep_cgen_insert_handlers[] =
1813 {
1814   insert_insn_normal,
1815 };
1816
1817 cgen_extract_fn * const mep_cgen_extract_handlers[] =
1818 {
1819   extract_insn_normal,
1820 };
1821
1822 int mep_cgen_get_int_operand     (CGEN_CPU_DESC, int, const CGEN_FIELDS *);
1823 bfd_vma mep_cgen_get_vma_operand (CGEN_CPU_DESC, int, const CGEN_FIELDS *);
1824
1825 /* Getting values from cgen_fields is handled by a collection of functions.
1826    They are distinguished by the type of the VALUE argument they return.
1827    TODO: floating point, inlining support, remove cases where result type
1828    not appropriate.  */
1829
1830 int
1831 mep_cgen_get_int_operand (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
1832                              int opindex,
1833                              const CGEN_FIELDS * fields)
1834 {
1835   int value;
1836
1837   switch (opindex)
1838     {
1839     case MEP_OPERAND_ADDR24A4 :
1840       value = fields->f_24u8a4n;
1841       break;
1842     case MEP_OPERAND_C5RMUIMM20 :
1843       value = fields->f_c5_rmuimm20;
1844       break;
1845     case MEP_OPERAND_C5RNMUIMM24 :
1846       value = fields->f_c5_rnmuimm24;
1847       break;
1848     case MEP_OPERAND_CALLNUM :
1849       value = fields->f_callnum;
1850       break;
1851     case MEP_OPERAND_CCCC :
1852       value = fields->f_rm;
1853       break;
1854     case MEP_OPERAND_CCRN :
1855       value = fields->f_ccrn;
1856       break;
1857     case MEP_OPERAND_CDISP10 :
1858       value = fields->f_cdisp10;
1859       break;
1860     case MEP_OPERAND_CDISP10A2 :
1861       value = fields->f_cdisp10;
1862       break;
1863     case MEP_OPERAND_CDISP10A4 :
1864       value = fields->f_cdisp10;
1865       break;
1866     case MEP_OPERAND_CDISP10A8 :
1867       value = fields->f_cdisp10;
1868       break;
1869     case MEP_OPERAND_CDISP12 :
1870       value = fields->f_12s20;
1871       break;
1872     case MEP_OPERAND_CIMM4 :
1873       value = fields->f_rn;
1874       break;
1875     case MEP_OPERAND_CIMM5 :
1876       value = fields->f_5u24;
1877       break;
1878     case MEP_OPERAND_CODE16 :
1879       value = fields->f_16u16;
1880       break;
1881     case MEP_OPERAND_CODE24 :
1882       value = fields->f_24u4n;
1883       break;
1884     case MEP_OPERAND_CP_FLAG :
1885       value = 0;
1886       break;
1887     case MEP_OPERAND_CRN :
1888       value = fields->f_crn;
1889       break;
1890     case MEP_OPERAND_CRN64 :
1891       value = fields->f_crn;
1892       break;
1893     case MEP_OPERAND_CRNX :
1894       value = fields->f_crnx;
1895       break;
1896     case MEP_OPERAND_CRNX64 :
1897       value = fields->f_crnx;
1898       break;
1899     case MEP_OPERAND_CROC :
1900       value = fields->f_ivc2_5u7;
1901       break;
1902     case MEP_OPERAND_CROP :
1903       value = fields->f_ivc2_5u23;
1904       break;
1905     case MEP_OPERAND_CRPC :
1906       value = fields->f_ivc2_5u26;
1907       break;
1908     case MEP_OPERAND_CRPP :
1909       value = fields->f_ivc2_5u18;
1910       break;
1911     case MEP_OPERAND_CRQC :
1912       value = fields->f_ivc2_5u21;
1913       break;
1914     case MEP_OPERAND_CRQP :
1915       value = fields->f_ivc2_5u13;
1916       break;
1917     case MEP_OPERAND_CSRN :
1918       value = fields->f_csrn;
1919       break;
1920     case MEP_OPERAND_CSRN_IDX :
1921       value = fields->f_csrn;
1922       break;
1923     case MEP_OPERAND_DBG :
1924       value = 0;
1925       break;
1926     case MEP_OPERAND_DEPC :
1927       value = 0;
1928       break;
1929     case MEP_OPERAND_EPC :
1930       value = 0;
1931       break;
1932     case MEP_OPERAND_EXC :
1933       value = 0;
1934       break;
1935     case MEP_OPERAND_HI :
1936       value = 0;
1937       break;
1938     case MEP_OPERAND_IMM16P0 :
1939       value = fields->f_ivc2_imm16p0;
1940       break;
1941     case MEP_OPERAND_IMM3P12 :
1942       value = fields->f_ivc2_3u12;
1943       break;
1944     case MEP_OPERAND_IMM3P25 :
1945       value = fields->f_ivc2_3u25;
1946       break;
1947     case MEP_OPERAND_IMM3P4 :
1948       value = fields->f_ivc2_3u4;
1949       break;
1950     case MEP_OPERAND_IMM3P5 :
1951       value = fields->f_ivc2_3u5;
1952       break;
1953     case MEP_OPERAND_IMM3P9 :
1954       value = fields->f_ivc2_3u9;
1955       break;
1956     case MEP_OPERAND_IMM4P10 :
1957       value = fields->f_ivc2_4u10;
1958       break;
1959     case MEP_OPERAND_IMM4P4 :
1960       value = fields->f_ivc2_4u4;
1961       break;
1962     case MEP_OPERAND_IMM4P8 :
1963       value = fields->f_ivc2_4u8;
1964       break;
1965     case MEP_OPERAND_IMM5P23 :
1966       value = fields->f_ivc2_5u23;
1967       break;
1968     case MEP_OPERAND_IMM5P3 :
1969       value = fields->f_ivc2_5u3;
1970       break;
1971     case MEP_OPERAND_IMM5P7 :
1972       value = fields->f_ivc2_5u7;
1973       break;
1974     case MEP_OPERAND_IMM5P8 :
1975       value = fields->f_ivc2_5u8;
1976       break;
1977     case MEP_OPERAND_IMM6P2 :
1978       value = fields->f_ivc2_6u2;
1979       break;
1980     case MEP_OPERAND_IMM6P6 :
1981       value = fields->f_ivc2_6u6;
1982       break;
1983     case MEP_OPERAND_IMM8P0 :
1984       value = fields->f_ivc2_8u0;
1985       break;
1986     case MEP_OPERAND_IMM8P20 :
1987       value = fields->f_ivc2_8u20;
1988       break;
1989     case MEP_OPERAND_IMM8P4 :
1990       value = fields->f_ivc2_8u4;
1991       break;
1992     case MEP_OPERAND_IVC_X_0_2 :
1993       value = fields->f_ivc2_2u0;
1994       break;
1995     case MEP_OPERAND_IVC_X_0_3 :
1996       value = fields->f_ivc2_3u0;
1997       break;
1998     case MEP_OPERAND_IVC_X_0_4 :
1999       value = fields->f_ivc2_4u0;
2000       break;
2001     case MEP_OPERAND_IVC_X_0_5 :
2002       value = fields->f_ivc2_5u0;
2003       break;
2004     case MEP_OPERAND_IVC_X_6_1 :
2005       value = fields->f_ivc2_1u6;
2006       break;
2007     case MEP_OPERAND_IVC_X_6_2 :
2008       value = fields->f_ivc2_2u6;
2009       break;
2010     case MEP_OPERAND_IVC_X_6_3 :
2011       value = fields->f_ivc2_3u6;
2012       break;
2013     case MEP_OPERAND_IVC2_ACC0_0 :
2014       value = 0;
2015       break;
2016     case MEP_OPERAND_IVC2_ACC0_1 :
2017       value = 0;
2018       break;
2019     case MEP_OPERAND_IVC2_ACC0_2 :
2020       value = 0;
2021       break;
2022     case MEP_OPERAND_IVC2_ACC0_3 :
2023       value = 0;
2024       break;
2025     case MEP_OPERAND_IVC2_ACC0_4 :
2026       value = 0;
2027       break;
2028     case MEP_OPERAND_IVC2_ACC0_5 :
2029       value = 0;
2030       break;
2031     case MEP_OPERAND_IVC2_ACC0_6 :
2032       value = 0;
2033       break;
2034     case MEP_OPERAND_IVC2_ACC0_7 :
2035       value = 0;
2036       break;
2037     case MEP_OPERAND_IVC2_ACC1_0 :
2038       value = 0;
2039       break;
2040     case MEP_OPERAND_IVC2_ACC1_1 :
2041       value = 0;
2042       break;
2043     case MEP_OPERAND_IVC2_ACC1_2 :
2044       value = 0;
2045       break;
2046     case MEP_OPERAND_IVC2_ACC1_3 :
2047       value = 0;
2048       break;
2049     case MEP_OPERAND_IVC2_ACC1_4 :
2050       value = 0;
2051       break;
2052     case MEP_OPERAND_IVC2_ACC1_5 :
2053       value = 0;
2054       break;
2055     case MEP_OPERAND_IVC2_ACC1_6 :
2056       value = 0;
2057       break;
2058     case MEP_OPERAND_IVC2_ACC1_7 :
2059       value = 0;
2060       break;
2061     case MEP_OPERAND_IVC2_CC :
2062       value = 0;
2063       break;
2064     case MEP_OPERAND_IVC2_COFA0 :
2065       value = 0;
2066       break;
2067     case MEP_OPERAND_IVC2_COFA1 :
2068       value = 0;
2069       break;
2070     case MEP_OPERAND_IVC2_COFR0 :
2071       value = 0;
2072       break;
2073     case MEP_OPERAND_IVC2_COFR1 :
2074       value = 0;
2075       break;
2076     case MEP_OPERAND_IVC2_CSAR0 :
2077       value = 0;
2078       break;
2079     case MEP_OPERAND_IVC2_CSAR1 :
2080       value = 0;
2081       break;
2082     case MEP_OPERAND_IVC2C3CCRN :
2083       value = fields->f_ivc2_ccrn_c3;
2084       break;
2085     case MEP_OPERAND_IVC2CCRN :
2086       value = fields->f_ivc2_ccrn;
2087       break;
2088     case MEP_OPERAND_IVC2CRN :
2089       value = fields->f_ivc2_crnx;
2090       break;
2091     case MEP_OPERAND_IVC2RM :
2092       value = fields->f_ivc2_crm;
2093       break;
2094     case MEP_OPERAND_LO :
2095       value = 0;
2096       break;
2097     case MEP_OPERAND_LP :
2098       value = 0;
2099       break;
2100     case MEP_OPERAND_MB0 :
2101       value = 0;
2102       break;
2103     case MEP_OPERAND_MB1 :
2104       value = 0;
2105       break;
2106     case MEP_OPERAND_ME0 :
2107       value = 0;
2108       break;
2109     case MEP_OPERAND_ME1 :
2110       value = 0;
2111       break;
2112     case MEP_OPERAND_NPC :
2113       value = 0;
2114       break;
2115     case MEP_OPERAND_OPT :
2116       value = 0;
2117       break;
2118     case MEP_OPERAND_PCABS24A2 :
2119       value = fields->f_24u5a2n;
2120       break;
2121     case MEP_OPERAND_PCREL12A2 :
2122       value = fields->f_12s4a2;
2123       break;
2124     case MEP_OPERAND_PCREL17A2 :
2125       value = fields->f_17s16a2;
2126       break;
2127     case MEP_OPERAND_PCREL24A2 :
2128       value = fields->f_24s5a2n;
2129       break;
2130     case MEP_OPERAND_PCREL8A2 :
2131       value = fields->f_8s8a2;
2132       break;
2133     case MEP_OPERAND_PSW :
2134       value = 0;
2135       break;
2136     case MEP_OPERAND_R0 :
2137       value = 0;
2138       break;
2139     case MEP_OPERAND_R1 :
2140       value = 0;
2141       break;
2142     case MEP_OPERAND_RL :
2143       value = fields->f_rl;
2144       break;
2145     case MEP_OPERAND_RL5 :
2146       value = fields->f_rl5;
2147       break;
2148     case MEP_OPERAND_RM :
2149       value = fields->f_rm;
2150       break;
2151     case MEP_OPERAND_RMA :
2152       value = fields->f_rm;
2153       break;
2154     case MEP_OPERAND_RN :
2155       value = fields->f_rn;
2156       break;
2157     case MEP_OPERAND_RN3 :
2158       value = fields->f_rn3;
2159       break;
2160     case MEP_OPERAND_RN3C :
2161       value = fields->f_rn3;
2162       break;
2163     case MEP_OPERAND_RN3L :
2164       value = fields->f_rn3;
2165       break;
2166     case MEP_OPERAND_RN3S :
2167       value = fields->f_rn3;
2168       break;
2169     case MEP_OPERAND_RN3UC :
2170       value = fields->f_rn3;
2171       break;
2172     case MEP_OPERAND_RN3UL :
2173       value = fields->f_rn3;
2174       break;
2175     case MEP_OPERAND_RN3US :
2176       value = fields->f_rn3;
2177       break;
2178     case MEP_OPERAND_RNC :
2179       value = fields->f_rn;
2180       break;
2181     case MEP_OPERAND_RNL :
2182       value = fields->f_rn;
2183       break;
2184     case MEP_OPERAND_RNS :
2185       value = fields->f_rn;
2186       break;
2187     case MEP_OPERAND_RNUC :
2188       value = fields->f_rn;
2189       break;
2190     case MEP_OPERAND_RNUL :
2191       value = fields->f_rn;
2192       break;
2193     case MEP_OPERAND_RNUS :
2194       value = fields->f_rn;
2195       break;
2196     case MEP_OPERAND_SAR :
2197       value = 0;
2198       break;
2199     case MEP_OPERAND_SDISP16 :
2200       value = fields->f_16s16;
2201       break;
2202     case MEP_OPERAND_SIMM16 :
2203       value = fields->f_16s16;
2204       break;
2205     case MEP_OPERAND_SIMM16P0 :
2206       value = fields->f_ivc2_simm16p0;
2207       break;
2208     case MEP_OPERAND_SIMM6 :
2209       value = fields->f_6s8;
2210       break;
2211     case MEP_OPERAND_SIMM8 :
2212       value = fields->f_8s8;
2213       break;
2214     case MEP_OPERAND_SIMM8P0 :
2215       value = fields->f_ivc2_8s0;
2216       break;
2217     case MEP_OPERAND_SIMM8P20 :
2218       value = fields->f_ivc2_8s20;
2219       break;
2220     case MEP_OPERAND_SIMM8P4 :
2221       value = fields->f_ivc2_8s4;
2222       break;
2223     case MEP_OPERAND_SP :
2224       value = 0;
2225       break;
2226     case MEP_OPERAND_SPR :
2227       value = 0;
2228       break;
2229     case MEP_OPERAND_TP :
2230       value = 0;
2231       break;
2232     case MEP_OPERAND_TPR :
2233       value = 0;
2234       break;
2235     case MEP_OPERAND_UDISP2 :
2236       value = fields->f_2u6;
2237       break;
2238     case MEP_OPERAND_UDISP7 :
2239       value = fields->f_7u9;
2240       break;
2241     case MEP_OPERAND_UDISP7A2 :
2242       value = fields->f_7u9a2;
2243       break;
2244     case MEP_OPERAND_UDISP7A4 :
2245       value = fields->f_7u9a4;
2246       break;
2247     case MEP_OPERAND_UIMM16 :
2248       value = fields->f_16u16;
2249       break;
2250     case MEP_OPERAND_UIMM2 :
2251       value = fields->f_2u10;
2252       break;
2253     case MEP_OPERAND_UIMM24 :
2254       value = fields->f_24u8n;
2255       break;
2256     case MEP_OPERAND_UIMM3 :
2257       value = fields->f_3u5;
2258       break;
2259     case MEP_OPERAND_UIMM4 :
2260       value = fields->f_4u8;
2261       break;
2262     case MEP_OPERAND_UIMM5 :
2263       value = fields->f_5u8;
2264       break;
2265     case MEP_OPERAND_UIMM7A4 :
2266       value = fields->f_7u9a4;
2267       break;
2268     case MEP_OPERAND_ZERO :
2269       value = 0;
2270       break;
2271
2272     default :
2273       /* xgettext:c-format */
2274       fprintf (stderr, _("Unrecognized field %d while getting int operand.\n"),
2275                        opindex);
2276       abort ();
2277   }
2278
2279   return value;
2280 }
2281
2282 bfd_vma
2283 mep_cgen_get_vma_operand (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
2284                              int opindex,
2285                              const CGEN_FIELDS * fields)
2286 {
2287   bfd_vma value;
2288
2289   switch (opindex)
2290     {
2291     case MEP_OPERAND_ADDR24A4 :
2292       value = fields->f_24u8a4n;
2293       break;
2294     case MEP_OPERAND_C5RMUIMM20 :
2295       value = fields->f_c5_rmuimm20;
2296       break;
2297     case MEP_OPERAND_C5RNMUIMM24 :
2298       value = fields->f_c5_rnmuimm24;
2299       break;
2300     case MEP_OPERAND_CALLNUM :
2301       value = fields->f_callnum;
2302       break;
2303     case MEP_OPERAND_CCCC :
2304       value = fields->f_rm;
2305       break;
2306     case MEP_OPERAND_CCRN :
2307       value = fields->f_ccrn;
2308       break;
2309     case MEP_OPERAND_CDISP10 :
2310       value = fields->f_cdisp10;
2311       break;
2312     case MEP_OPERAND_CDISP10A2 :
2313       value = fields->f_cdisp10;
2314       break;
2315     case MEP_OPERAND_CDISP10A4 :
2316       value = fields->f_cdisp10;
2317       break;
2318     case MEP_OPERAND_CDISP10A8 :
2319       value = fields->f_cdisp10;
2320       break;
2321     case MEP_OPERAND_CDISP12 :
2322       value = fields->f_12s20;
2323       break;
2324     case MEP_OPERAND_CIMM4 :
2325       value = fields->f_rn;
2326       break;
2327     case MEP_OPERAND_CIMM5 :
2328       value = fields->f_5u24;
2329       break;
2330     case MEP_OPERAND_CODE16 :
2331       value = fields->f_16u16;
2332       break;
2333     case MEP_OPERAND_CODE24 :
2334       value = fields->f_24u4n;
2335       break;
2336     case MEP_OPERAND_CP_FLAG :
2337       value = 0;
2338       break;
2339     case MEP_OPERAND_CRN :
2340       value = fields->f_crn;
2341       break;
2342     case MEP_OPERAND_CRN64 :
2343       value = fields->f_crn;
2344       break;
2345     case MEP_OPERAND_CRNX :
2346       value = fields->f_crnx;
2347       break;
2348     case MEP_OPERAND_CRNX64 :
2349       value = fields->f_crnx;
2350       break;
2351     case MEP_OPERAND_CROC :
2352       value = fields->f_ivc2_5u7;
2353       break;
2354     case MEP_OPERAND_CROP :
2355       value = fields->f_ivc2_5u23;
2356       break;
2357     case MEP_OPERAND_CRPC :
2358       value = fields->f_ivc2_5u26;
2359       break;
2360     case MEP_OPERAND_CRPP :
2361       value = fields->f_ivc2_5u18;
2362       break;
2363     case MEP_OPERAND_CRQC :
2364       value = fields->f_ivc2_5u21;
2365       break;
2366     case MEP_OPERAND_CRQP :
2367       value = fields->f_ivc2_5u13;
2368       break;
2369     case MEP_OPERAND_CSRN :
2370       value = fields->f_csrn;
2371       break;
2372     case MEP_OPERAND_CSRN_IDX :
2373       value = fields->f_csrn;
2374       break;
2375     case MEP_OPERAND_DBG :
2376       value = 0;
2377       break;
2378     case MEP_OPERAND_DEPC :
2379       value = 0;
2380       break;
2381     case MEP_OPERAND_EPC :
2382       value = 0;
2383       break;
2384     case MEP_OPERAND_EXC :
2385       value = 0;
2386       break;
2387     case MEP_OPERAND_HI :
2388       value = 0;
2389       break;
2390     case MEP_OPERAND_IMM16P0 :
2391       value = fields->f_ivc2_imm16p0;
2392       break;
2393     case MEP_OPERAND_IMM3P12 :
2394       value = fields->f_ivc2_3u12;
2395       break;
2396     case MEP_OPERAND_IMM3P25 :
2397       value = fields->f_ivc2_3u25;
2398       break;
2399     case MEP_OPERAND_IMM3P4 :
2400       value = fields->f_ivc2_3u4;
2401       break;
2402     case MEP_OPERAND_IMM3P5 :
2403       value = fields->f_ivc2_3u5;
2404       break;
2405     case MEP_OPERAND_IMM3P9 :
2406       value = fields->f_ivc2_3u9;
2407       break;
2408     case MEP_OPERAND_IMM4P10 :
2409       value = fields->f_ivc2_4u10;
2410       break;
2411     case MEP_OPERAND_IMM4P4 :
2412       value = fields->f_ivc2_4u4;
2413       break;
2414     case MEP_OPERAND_IMM4P8 :
2415       value = fields->f_ivc2_4u8;
2416       break;
2417     case MEP_OPERAND_IMM5P23 :
2418       value = fields->f_ivc2_5u23;
2419       break;
2420     case MEP_OPERAND_IMM5P3 :
2421       value = fields->f_ivc2_5u3;
2422       break;
2423     case MEP_OPERAND_IMM5P7 :
2424       value = fields->f_ivc2_5u7;
2425       break;
2426     case MEP_OPERAND_IMM5P8 :
2427       value = fields->f_ivc2_5u8;
2428       break;
2429     case MEP_OPERAND_IMM6P2 :
2430       value = fields->f_ivc2_6u2;
2431       break;
2432     case MEP_OPERAND_IMM6P6 :
2433       value = fields->f_ivc2_6u6;
2434       break;
2435     case MEP_OPERAND_IMM8P0 :
2436       value = fields->f_ivc2_8u0;
2437       break;
2438     case MEP_OPERAND_IMM8P20 :
2439       value = fields->f_ivc2_8u20;
2440       break;
2441     case MEP_OPERAND_IMM8P4 :
2442       value = fields->f_ivc2_8u4;
2443       break;
2444     case MEP_OPERAND_IVC_X_0_2 :
2445       value = fields->f_ivc2_2u0;
2446       break;
2447     case MEP_OPERAND_IVC_X_0_3 :
2448       value = fields->f_ivc2_3u0;
2449       break;
2450     case MEP_OPERAND_IVC_X_0_4 :
2451       value = fields->f_ivc2_4u0;
2452       break;
2453     case MEP_OPERAND_IVC_X_0_5 :
2454       value = fields->f_ivc2_5u0;
2455       break;
2456     case MEP_OPERAND_IVC_X_6_1 :
2457       value = fields->f_ivc2_1u6;
2458       break;
2459     case MEP_OPERAND_IVC_X_6_2 :
2460       value = fields->f_ivc2_2u6;
2461       break;
2462     case MEP_OPERAND_IVC_X_6_3 :
2463       value = fields->f_ivc2_3u6;
2464       break;
2465     case MEP_OPERAND_IVC2_ACC0_0 :
2466       value = 0;
2467       break;
2468     case MEP_OPERAND_IVC2_ACC0_1 :
2469       value = 0;
2470       break;
2471     case MEP_OPERAND_IVC2_ACC0_2 :
2472       value = 0;
2473       break;
2474     case MEP_OPERAND_IVC2_ACC0_3 :
2475       value = 0;
2476       break;
2477     case MEP_OPERAND_IVC2_ACC0_4 :
2478       value = 0;
2479       break;
2480     case MEP_OPERAND_IVC2_ACC0_5 :
2481       value = 0;
2482       break;
2483     case MEP_OPERAND_IVC2_ACC0_6 :
2484       value = 0;
2485       break;
2486     case MEP_OPERAND_IVC2_ACC0_7 :
2487       value = 0;
2488       break;
2489     case MEP_OPERAND_IVC2_ACC1_0 :
2490       value = 0;
2491       break;
2492     case MEP_OPERAND_IVC2_ACC1_1 :
2493       value = 0;
2494       break;
2495     case MEP_OPERAND_IVC2_ACC1_2 :
2496       value = 0;
2497       break;
2498     case MEP_OPERAND_IVC2_ACC1_3 :
2499       value = 0;
2500       break;
2501     case MEP_OPERAND_IVC2_ACC1_4 :
2502       value = 0;
2503       break;
2504     case MEP_OPERAND_IVC2_ACC1_5 :
2505       value = 0;
2506       break;
2507     case MEP_OPERAND_IVC2_ACC1_6 :
2508       value = 0;
2509       break;
2510     case MEP_OPERAND_IVC2_ACC1_7 :
2511       value = 0;
2512       break;
2513     case MEP_OPERAND_IVC2_CC :
2514       value = 0;
2515       break;
2516     case MEP_OPERAND_IVC2_COFA0 :
2517       value = 0;
2518       break;
2519     case MEP_OPERAND_IVC2_COFA1 :
2520       value = 0;
2521       break;
2522     case MEP_OPERAND_IVC2_COFR0 :
2523       value = 0;
2524       break;
2525     case MEP_OPERAND_IVC2_COFR1 :
2526       value = 0;
2527       break;
2528     case MEP_OPERAND_IVC2_CSAR0 :
2529       value = 0;
2530       break;
2531     case MEP_OPERAND_IVC2_CSAR1 :
2532       value = 0;
2533       break;
2534     case MEP_OPERAND_IVC2C3CCRN :
2535       value = fields->f_ivc2_ccrn_c3;
2536       break;
2537     case MEP_OPERAND_IVC2CCRN :
2538       value = fields->f_ivc2_ccrn;
2539       break;
2540     case MEP_OPERAND_IVC2CRN :
2541       value = fields->f_ivc2_crnx;
2542       break;
2543     case MEP_OPERAND_IVC2RM :
2544       value = fields->f_ivc2_crm;
2545       break;
2546     case MEP_OPERAND_LO :
2547       value = 0;
2548       break;
2549     case MEP_OPERAND_LP :
2550       value = 0;
2551       break;
2552     case MEP_OPERAND_MB0 :
2553       value = 0;
2554       break;
2555     case MEP_OPERAND_MB1 :
2556       value = 0;
2557       break;
2558     case MEP_OPERAND_ME0 :
2559       value = 0;
2560       break;
2561     case MEP_OPERAND_ME1 :
2562       value = 0;
2563       break;
2564     case MEP_OPERAND_NPC :
2565       value = 0;
2566       break;
2567     case MEP_OPERAND_OPT :
2568       value = 0;
2569       break;
2570     case MEP_OPERAND_PCABS24A2 :
2571       value = fields->f_24u5a2n;
2572       break;
2573     case MEP_OPERAND_PCREL12A2 :
2574       value = fields->f_12s4a2;
2575       break;
2576     case MEP_OPERAND_PCREL17A2 :
2577       value = fields->f_17s16a2;
2578       break;
2579     case MEP_OPERAND_PCREL24A2 :
2580       value = fields->f_24s5a2n;
2581       break;
2582     case MEP_OPERAND_PCREL8A2 :
2583       value = fields->f_8s8a2;
2584       break;
2585     case MEP_OPERAND_PSW :
2586       value = 0;
2587       break;
2588     case MEP_OPERAND_R0 :
2589       value = 0;
2590       break;
2591     case MEP_OPERAND_R1 :
2592       value = 0;
2593       break;
2594     case MEP_OPERAND_RL :
2595       value = fields->f_rl;
2596       break;
2597     case MEP_OPERAND_RL5 :
2598       value = fields->f_rl5;
2599       break;
2600     case MEP_OPERAND_RM :
2601       value = fields->f_rm;
2602       break;
2603     case MEP_OPERAND_RMA :
2604       value = fields->f_rm;
2605       break;
2606     case MEP_OPERAND_RN :
2607       value = fields->f_rn;
2608       break;
2609     case MEP_OPERAND_RN3 :
2610       value = fields->f_rn3;
2611       break;
2612     case MEP_OPERAND_RN3C :
2613       value = fields->f_rn3;
2614       break;
2615     case MEP_OPERAND_RN3L :
2616       value = fields->f_rn3;
2617       break;
2618     case MEP_OPERAND_RN3S :
2619       value = fields->f_rn3;
2620       break;
2621     case MEP_OPERAND_RN3UC :
2622       value = fields->f_rn3;
2623       break;
2624     case MEP_OPERAND_RN3UL :
2625       value = fields->f_rn3;
2626       break;
2627     case MEP_OPERAND_RN3US :
2628       value = fields->f_rn3;
2629       break;
2630     case MEP_OPERAND_RNC :
2631       value = fields->f_rn;
2632       break;
2633     case MEP_OPERAND_RNL :
2634       value = fields->f_rn;
2635       break;
2636     case MEP_OPERAND_RNS :
2637       value = fields->f_rn;
2638       break;
2639     case MEP_OPERAND_RNUC :
2640       value = fields->f_rn;
2641       break;
2642     case MEP_OPERAND_RNUL :
2643       value = fields->f_rn;
2644       break;
2645     case MEP_OPERAND_RNUS :
2646       value = fields->f_rn;
2647       break;
2648     case MEP_OPERAND_SAR :
2649       value = 0;
2650       break;
2651     case MEP_OPERAND_SDISP16 :
2652       value = fields->f_16s16;
2653       break;
2654     case MEP_OPERAND_SIMM16 :
2655       value = fields->f_16s16;
2656       break;
2657     case MEP_OPERAND_SIMM16P0 :
2658       value = fields->f_ivc2_simm16p0;
2659       break;
2660     case MEP_OPERAND_SIMM6 :
2661       value = fields->f_6s8;
2662       break;
2663     case MEP_OPERAND_SIMM8 :
2664       value = fields->f_8s8;
2665       break;
2666     case MEP_OPERAND_SIMM8P0 :
2667       value = fields->f_ivc2_8s0;
2668       break;
2669     case MEP_OPERAND_SIMM8P20 :
2670       value = fields->f_ivc2_8s20;
2671       break;
2672     case MEP_OPERAND_SIMM8P4 :
2673       value = fields->f_ivc2_8s4;
2674       break;
2675     case MEP_OPERAND_SP :
2676       value = 0;
2677       break;
2678     case MEP_OPERAND_SPR :
2679       value = 0;
2680       break;
2681     case MEP_OPERAND_TP :
2682       value = 0;
2683       break;
2684     case MEP_OPERAND_TPR :
2685       value = 0;
2686       break;
2687     case MEP_OPERAND_UDISP2 :
2688       value = fields->f_2u6;
2689       break;
2690     case MEP_OPERAND_UDISP7 :
2691       value = fields->f_7u9;
2692       break;
2693     case MEP_OPERAND_UDISP7A2 :
2694       value = fields->f_7u9a2;
2695       break;
2696     case MEP_OPERAND_UDISP7A4 :
2697       value = fields->f_7u9a4;
2698       break;
2699     case MEP_OPERAND_UIMM16 :
2700       value = fields->f_16u16;
2701       break;
2702     case MEP_OPERAND_UIMM2 :
2703       value = fields->f_2u10;
2704       break;
2705     case MEP_OPERAND_UIMM24 :
2706       value = fields->f_24u8n;
2707       break;
2708     case MEP_OPERAND_UIMM3 :
2709       value = fields->f_3u5;
2710       break;
2711     case MEP_OPERAND_UIMM4 :
2712       value = fields->f_4u8;
2713       break;
2714     case MEP_OPERAND_UIMM5 :
2715       value = fields->f_5u8;
2716       break;
2717     case MEP_OPERAND_UIMM7A4 :
2718       value = fields->f_7u9a4;
2719       break;
2720     case MEP_OPERAND_ZERO :
2721       value = 0;
2722       break;
2723
2724     default :
2725       /* xgettext:c-format */
2726       fprintf (stderr, _("Unrecognized field %d while getting vma operand.\n"),
2727                        opindex);
2728       abort ();
2729   }
2730
2731   return value;
2732 }
2733
2734 void mep_cgen_set_int_operand  (CGEN_CPU_DESC, int, CGEN_FIELDS *, int);
2735 void mep_cgen_set_vma_operand  (CGEN_CPU_DESC, int, CGEN_FIELDS *, bfd_vma);
2736
2737 /* Stuffing values in cgen_fields is handled by a collection of functions.
2738    They are distinguished by the type of the VALUE argument they accept.
2739    TODO: floating point, inlining support, remove cases where argument type
2740    not appropriate.  */
2741
2742 void
2743 mep_cgen_set_int_operand (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
2744                              int opindex,
2745                              CGEN_FIELDS * fields,
2746                              int value)
2747 {
2748   switch (opindex)
2749     {
2750     case MEP_OPERAND_ADDR24A4 :
2751       fields->f_24u8a4n = value;
2752       break;
2753     case MEP_OPERAND_C5RMUIMM20 :
2754       fields->f_c5_rmuimm20 = value;
2755       break;
2756     case MEP_OPERAND_C5RNMUIMM24 :
2757       fields->f_c5_rnmuimm24 = value;
2758       break;
2759     case MEP_OPERAND_CALLNUM :
2760       fields->f_callnum = value;
2761       break;
2762     case MEP_OPERAND_CCCC :
2763       fields->f_rm = value;
2764       break;
2765     case MEP_OPERAND_CCRN :
2766       fields->f_ccrn = value;
2767       break;
2768     case MEP_OPERAND_CDISP10 :
2769       fields->f_cdisp10 = value;
2770       break;
2771     case MEP_OPERAND_CDISP10A2 :
2772       fields->f_cdisp10 = value;
2773       break;
2774     case MEP_OPERAND_CDISP10A4 :
2775       fields->f_cdisp10 = value;
2776       break;
2777     case MEP_OPERAND_CDISP10A8 :
2778       fields->f_cdisp10 = value;
2779       break;
2780     case MEP_OPERAND_CDISP12 :
2781       fields->f_12s20 = value;
2782       break;
2783     case MEP_OPERAND_CIMM4 :
2784       fields->f_rn = value;
2785       break;
2786     case MEP_OPERAND_CIMM5 :
2787       fields->f_5u24 = value;
2788       break;
2789     case MEP_OPERAND_CODE16 :
2790       fields->f_16u16 = value;
2791       break;
2792     case MEP_OPERAND_CODE24 :
2793       fields->f_24u4n = value;
2794       break;
2795     case MEP_OPERAND_CP_FLAG :
2796       break;
2797     case MEP_OPERAND_CRN :
2798       fields->f_crn = value;
2799       break;
2800     case MEP_OPERAND_CRN64 :
2801       fields->f_crn = value;
2802       break;
2803     case MEP_OPERAND_CRNX :
2804       fields->f_crnx = value;
2805       break;
2806     case MEP_OPERAND_CRNX64 :
2807       fields->f_crnx = value;
2808       break;
2809     case MEP_OPERAND_CROC :
2810       fields->f_ivc2_5u7 = value;
2811       break;
2812     case MEP_OPERAND_CROP :
2813       fields->f_ivc2_5u23 = value;
2814       break;
2815     case MEP_OPERAND_CRPC :
2816       fields->f_ivc2_5u26 = value;
2817       break;
2818     case MEP_OPERAND_CRPP :
2819       fields->f_ivc2_5u18 = value;
2820       break;
2821     case MEP_OPERAND_CRQC :
2822       fields->f_ivc2_5u21 = value;
2823       break;
2824     case MEP_OPERAND_CRQP :
2825       fields->f_ivc2_5u13 = value;
2826       break;
2827     case MEP_OPERAND_CSRN :
2828       fields->f_csrn = value;
2829       break;
2830     case MEP_OPERAND_CSRN_IDX :
2831       fields->f_csrn = value;
2832       break;
2833     case MEP_OPERAND_DBG :
2834       break;
2835     case MEP_OPERAND_DEPC :
2836       break;
2837     case MEP_OPERAND_EPC :
2838       break;
2839     case MEP_OPERAND_EXC :
2840       break;
2841     case MEP_OPERAND_HI :
2842       break;
2843     case MEP_OPERAND_IMM16P0 :
2844       fields->f_ivc2_imm16p0 = value;
2845       break;
2846     case MEP_OPERAND_IMM3P12 :
2847       fields->f_ivc2_3u12 = value;
2848       break;
2849     case MEP_OPERAND_IMM3P25 :
2850       fields->f_ivc2_3u25 = value;
2851       break;
2852     case MEP_OPERAND_IMM3P4 :
2853       fields->f_ivc2_3u4 = value;
2854       break;
2855     case MEP_OPERAND_IMM3P5 :
2856       fields->f_ivc2_3u5 = value;
2857       break;
2858     case MEP_OPERAND_IMM3P9 :
2859       fields->f_ivc2_3u9 = value;
2860       break;
2861     case MEP_OPERAND_IMM4P10 :
2862       fields->f_ivc2_4u10 = value;
2863       break;
2864     case MEP_OPERAND_IMM4P4 :
2865       fields->f_ivc2_4u4 = value;
2866       break;
2867     case MEP_OPERAND_IMM4P8 :
2868       fields->f_ivc2_4u8 = value;
2869       break;
2870     case MEP_OPERAND_IMM5P23 :
2871       fields->f_ivc2_5u23 = value;
2872       break;
2873     case MEP_OPERAND_IMM5P3 :
2874       fields->f_ivc2_5u3 = value;
2875       break;
2876     case MEP_OPERAND_IMM5P7 :
2877       fields->f_ivc2_5u7 = value;
2878       break;
2879     case MEP_OPERAND_IMM5P8 :
2880       fields->f_ivc2_5u8 = value;
2881       break;
2882     case MEP_OPERAND_IMM6P2 :
2883       fields->f_ivc2_6u2 = value;
2884       break;
2885     case MEP_OPERAND_IMM6P6 :
2886       fields->f_ivc2_6u6 = value;
2887       break;
2888     case MEP_OPERAND_IMM8P0 :
2889       fields->f_ivc2_8u0 = value;
2890       break;
2891     case MEP_OPERAND_IMM8P20 :
2892       fields->f_ivc2_8u20 = value;
2893       break;
2894     case MEP_OPERAND_IMM8P4 :
2895       fields->f_ivc2_8u4 = value;
2896       break;
2897     case MEP_OPERAND_IVC_X_0_2 :
2898       fields->f_ivc2_2u0 = value;
2899       break;
2900     case MEP_OPERAND_IVC_X_0_3 :
2901       fields->f_ivc2_3u0 = value;
2902       break;
2903     case MEP_OPERAND_IVC_X_0_4 :
2904       fields->f_ivc2_4u0 = value;
2905       break;
2906     case MEP_OPERAND_IVC_X_0_5 :
2907       fields->f_ivc2_5u0 = value;
2908       break;
2909     case MEP_OPERAND_IVC_X_6_1 :
2910       fields->f_ivc2_1u6 = value;
2911       break;
2912     case MEP_OPERAND_IVC_X_6_2 :
2913       fields->f_ivc2_2u6 = value;
2914       break;
2915     case MEP_OPERAND_IVC_X_6_3 :
2916       fields->f_ivc2_3u6 = value;
2917       break;
2918     case MEP_OPERAND_IVC2_ACC0_0 :
2919       break;
2920     case MEP_OPERAND_IVC2_ACC0_1 :
2921       break;
2922     case MEP_OPERAND_IVC2_ACC0_2 :
2923       break;
2924     case MEP_OPERAND_IVC2_ACC0_3 :
2925       break;
2926     case MEP_OPERAND_IVC2_ACC0_4 :
2927       break;
2928     case MEP_OPERAND_IVC2_ACC0_5 :
2929       break;
2930     case MEP_OPERAND_IVC2_ACC0_6 :
2931       break;
2932     case MEP_OPERAND_IVC2_ACC0_7 :
2933       break;
2934     case MEP_OPERAND_IVC2_ACC1_0 :
2935       break;
2936     case MEP_OPERAND_IVC2_ACC1_1 :
2937       break;
2938     case MEP_OPERAND_IVC2_ACC1_2 :
2939       break;
2940     case MEP_OPERAND_IVC2_ACC1_3 :
2941       break;
2942     case MEP_OPERAND_IVC2_ACC1_4 :
2943       break;
2944     case MEP_OPERAND_IVC2_ACC1_5 :
2945       break;
2946     case MEP_OPERAND_IVC2_ACC1_6 :
2947       break;
2948     case MEP_OPERAND_IVC2_ACC1_7 :
2949       break;
2950     case MEP_OPERAND_IVC2_CC :
2951       break;
2952     case MEP_OPERAND_IVC2_COFA0 :
2953       break;
2954     case MEP_OPERAND_IVC2_COFA1 :
2955       break;
2956     case MEP_OPERAND_IVC2_COFR0 :
2957       break;
2958     case MEP_OPERAND_IVC2_COFR1 :
2959       break;
2960     case MEP_OPERAND_IVC2_CSAR0 :
2961       break;
2962     case MEP_OPERAND_IVC2_CSAR1 :
2963       break;
2964     case MEP_OPERAND_IVC2C3CCRN :
2965       fields->f_ivc2_ccrn_c3 = value;
2966       break;
2967     case MEP_OPERAND_IVC2CCRN :
2968       fields->f_ivc2_ccrn = value;
2969       break;
2970     case MEP_OPERAND_IVC2CRN :
2971       fields->f_ivc2_crnx = value;
2972       break;
2973     case MEP_OPERAND_IVC2RM :
2974       fields->f_ivc2_crm = value;
2975       break;
2976     case MEP_OPERAND_LO :
2977       break;
2978     case MEP_OPERAND_LP :
2979       break;
2980     case MEP_OPERAND_MB0 :
2981       break;
2982     case MEP_OPERAND_MB1 :
2983       break;
2984     case MEP_OPERAND_ME0 :
2985       break;
2986     case MEP_OPERAND_ME1 :
2987       break;
2988     case MEP_OPERAND_NPC :
2989       break;
2990     case MEP_OPERAND_OPT :
2991       break;
2992     case MEP_OPERAND_PCABS24A2 :
2993       fields->f_24u5a2n = value;
2994       break;
2995     case MEP_OPERAND_PCREL12A2 :
2996       fields->f_12s4a2 = value;
2997       break;
2998     case MEP_OPERAND_PCREL17A2 :
2999       fields->f_17s16a2 = value;
3000       break;
3001     case MEP_OPERAND_PCREL24A2 :
3002       fields->f_24s5a2n = value;
3003       break;
3004     case MEP_OPERAND_PCREL8A2 :
3005       fields->f_8s8a2 = value;
3006       break;
3007     case MEP_OPERAND_PSW :
3008       break;
3009     case MEP_OPERAND_R0 :
3010       break;
3011     case MEP_OPERAND_R1 :
3012       break;
3013     case MEP_OPERAND_RL :
3014       fields->f_rl = value;
3015       break;
3016     case MEP_OPERAND_RL5 :
3017       fields->f_rl5 = value;
3018       break;
3019     case MEP_OPERAND_RM :
3020       fields->f_rm = value;
3021       break;
3022     case MEP_OPERAND_RMA :
3023       fields->f_rm = value;
3024       break;
3025     case MEP_OPERAND_RN :
3026       fields->f_rn = value;
3027       break;
3028     case MEP_OPERAND_RN3 :
3029       fields->f_rn3 = value;
3030       break;
3031     case MEP_OPERAND_RN3C :
3032       fields->f_rn3 = value;
3033       break;
3034     case MEP_OPERAND_RN3L :
3035       fields->f_rn3 = value;
3036       break;
3037     case MEP_OPERAND_RN3S :
3038       fields->f_rn3 = value;
3039       break;
3040     case MEP_OPERAND_RN3UC :
3041       fields->f_rn3 = value;
3042       break;
3043     case MEP_OPERAND_RN3UL :
3044       fields->f_rn3 = value;
3045       break;
3046     case MEP_OPERAND_RN3US :
3047       fields->f_rn3 = value;
3048       break;
3049     case MEP_OPERAND_RNC :
3050       fields->f_rn = value;
3051       break;
3052     case MEP_OPERAND_RNL :
3053       fields->f_rn = value;
3054       break;
3055     case MEP_OPERAND_RNS :
3056       fields->f_rn = value;
3057       break;
3058     case MEP_OPERAND_RNUC :
3059       fields->f_rn = value;
3060       break;
3061     case MEP_OPERAND_RNUL :
3062       fields->f_rn = value;
3063       break;
3064     case MEP_OPERAND_RNUS :
3065       fields->f_rn = value;
3066       break;
3067     case MEP_OPERAND_SAR :
3068       break;
3069     case MEP_OPERAND_SDISP16 :
3070       fields->f_16s16 = value;
3071       break;
3072     case MEP_OPERAND_SIMM16 :
3073       fields->f_16s16 = value;
3074       break;
3075     case MEP_OPERAND_SIMM16P0 :
3076       fields->f_ivc2_simm16p0 = value;
3077       break;
3078     case MEP_OPERAND_SIMM6 :
3079       fields->f_6s8 = value;
3080       break;
3081     case MEP_OPERAND_SIMM8 :
3082       fields->f_8s8 = value;
3083       break;
3084     case MEP_OPERAND_SIMM8P0 :
3085       fields->f_ivc2_8s0 = value;
3086       break;
3087     case MEP_OPERAND_SIMM8P20 :
3088       fields->f_ivc2_8s20 = value;
3089       break;
3090     case MEP_OPERAND_SIMM8P4 :
3091       fields->f_ivc2_8s4 = value;
3092       break;
3093     case MEP_OPERAND_SP :
3094       break;
3095     case MEP_OPERAND_SPR :
3096       break;
3097     case MEP_OPERAND_TP :
3098       break;
3099     case MEP_OPERAND_TPR :
3100       break;
3101     case MEP_OPERAND_UDISP2 :
3102       fields->f_2u6 = value;
3103       break;
3104     case MEP_OPERAND_UDISP7 :
3105       fields->f_7u9 = value;
3106       break;
3107     case MEP_OPERAND_UDISP7A2 :
3108       fields->f_7u9a2 = value;
3109       break;
3110     case MEP_OPERAND_UDISP7A4 :
3111       fields->f_7u9a4 = value;
3112       break;
3113     case MEP_OPERAND_UIMM16 :
3114       fields->f_16u16 = value;
3115       break;
3116     case MEP_OPERAND_UIMM2 :
3117       fields->f_2u10 = value;
3118       break;
3119     case MEP_OPERAND_UIMM24 :
3120       fields->f_24u8n = value;
3121       break;
3122     case MEP_OPERAND_UIMM3 :
3123       fields->f_3u5 = value;
3124       break;
3125     case MEP_OPERAND_UIMM4 :
3126       fields->f_4u8 = value;
3127       break;
3128     case MEP_OPERAND_UIMM5 :
3129       fields->f_5u8 = value;
3130       break;
3131     case MEP_OPERAND_UIMM7A4 :
3132       fields->f_7u9a4 = value;
3133       break;
3134     case MEP_OPERAND_ZERO :
3135       break;
3136
3137     default :
3138       /* xgettext:c-format */
3139       fprintf (stderr, _("Unrecognized field %d while setting int operand.\n"),
3140                        opindex);
3141       abort ();
3142   }
3143 }
3144
3145 void
3146 mep_cgen_set_vma_operand (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
3147                              int opindex,
3148                              CGEN_FIELDS * fields,
3149                              bfd_vma value)
3150 {
3151   switch (opindex)
3152     {
3153     case MEP_OPERAND_ADDR24A4 :
3154       fields->f_24u8a4n = value;
3155       break;
3156     case MEP_OPERAND_C5RMUIMM20 :
3157       fields->f_c5_rmuimm20 = value;
3158       break;
3159     case MEP_OPERAND_C5RNMUIMM24 :
3160       fields->f_c5_rnmuimm24 = value;
3161       break;
3162     case MEP_OPERAND_CALLNUM :
3163       fields->f_callnum = value;
3164       break;
3165     case MEP_OPERAND_CCCC :
3166       fields->f_rm = value;
3167       break;
3168     case MEP_OPERAND_CCRN :
3169       fields->f_ccrn = value;
3170       break;
3171     case MEP_OPERAND_CDISP10 :
3172       fields->f_cdisp10 = value;
3173       break;
3174     case MEP_OPERAND_CDISP10A2 :
3175       fields->f_cdisp10 = value;
3176       break;
3177     case MEP_OPERAND_CDISP10A4 :
3178       fields->f_cdisp10 = value;
3179       break;
3180     case MEP_OPERAND_CDISP10A8 :
3181       fields->f_cdisp10 = value;
3182       break;
3183     case MEP_OPERAND_CDISP12 :
3184       fields->f_12s20 = value;
3185       break;
3186     case MEP_OPERAND_CIMM4 :
3187       fields->f_rn = value;
3188       break;
3189     case MEP_OPERAND_CIMM5 :
3190       fields->f_5u24 = value;
3191       break;
3192     case MEP_OPERAND_CODE16 :
3193       fields->f_16u16 = value;
3194       break;
3195     case MEP_OPERAND_CODE24 :
3196       fields->f_24u4n = value;
3197       break;
3198     case MEP_OPERAND_CP_FLAG :
3199       break;
3200     case MEP_OPERAND_CRN :
3201       fields->f_crn = value;
3202       break;
3203     case MEP_OPERAND_CRN64 :
3204       fields->f_crn = value;
3205       break;
3206     case MEP_OPERAND_CRNX :
3207       fields->f_crnx = value;
3208       break;
3209     case MEP_OPERAND_CRNX64 :
3210       fields->f_crnx = value;
3211       break;
3212     case MEP_OPERAND_CROC :
3213       fields->f_ivc2_5u7 = value;
3214       break;
3215     case MEP_OPERAND_CROP :
3216       fields->f_ivc2_5u23 = value;
3217       break;
3218     case MEP_OPERAND_CRPC :
3219       fields->f_ivc2_5u26 = value;
3220       break;
3221     case MEP_OPERAND_CRPP :
3222       fields->f_ivc2_5u18 = value;
3223       break;
3224     case MEP_OPERAND_CRQC :
3225       fields->f_ivc2_5u21 = value;
3226       break;
3227     case MEP_OPERAND_CRQP :
3228       fields->f_ivc2_5u13 = value;
3229       break;
3230     case MEP_OPERAND_CSRN :
3231       fields->f_csrn = value;
3232       break;
3233     case MEP_OPERAND_CSRN_IDX :
3234       fields->f_csrn = value;
3235       break;
3236     case MEP_OPERAND_DBG :
3237       break;
3238     case MEP_OPERAND_DEPC :
3239       break;
3240     case MEP_OPERAND_EPC :
3241       break;
3242     case MEP_OPERAND_EXC :
3243       break;
3244     case MEP_OPERAND_HI :
3245       break;
3246     case MEP_OPERAND_IMM16P0 :
3247       fields->f_ivc2_imm16p0 = value;
3248       break;
3249     case MEP_OPERAND_IMM3P12 :
3250       fields->f_ivc2_3u12 = value;
3251       break;
3252     case MEP_OPERAND_IMM3P25 :
3253       fields->f_ivc2_3u25 = value;
3254       break;
3255     case MEP_OPERAND_IMM3P4 :
3256       fields->f_ivc2_3u4 = value;
3257       break;
3258     case MEP_OPERAND_IMM3P5 :
3259       fields->f_ivc2_3u5 = value;
3260       break;
3261     case MEP_OPERAND_IMM3P9 :
3262       fields->f_ivc2_3u9 = value;
3263       break;
3264     case MEP_OPERAND_IMM4P10 :
3265       fields->f_ivc2_4u10 = value;
3266       break;
3267     case MEP_OPERAND_IMM4P4 :
3268       fields->f_ivc2_4u4 = value;
3269       break;
3270     case MEP_OPERAND_IMM4P8 :
3271       fields->f_ivc2_4u8 = value;
3272       break;
3273     case MEP_OPERAND_IMM5P23 :
3274       fields->f_ivc2_5u23 = value;
3275       break;
3276     case MEP_OPERAND_IMM5P3 :
3277       fields->f_ivc2_5u3 = value;
3278       break;
3279     case MEP_OPERAND_IMM5P7 :
3280       fields->f_ivc2_5u7 = value;
3281       break;
3282     case MEP_OPERAND_IMM5P8 :
3283       fields->f_ivc2_5u8 = value;
3284       break;
3285     case MEP_OPERAND_IMM6P2 :
3286       fields->f_ivc2_6u2 = value;
3287       break;
3288     case MEP_OPERAND_IMM6P6 :
3289       fields->f_ivc2_6u6 = value;
3290       break;
3291     case MEP_OPERAND_IMM8P0 :
3292       fields->f_ivc2_8u0 = value;
3293       break;
3294     case MEP_OPERAND_IMM8P20 :
3295       fields->f_ivc2_8u20 = value;
3296       break;
3297     case MEP_OPERAND_IMM8P4 :
3298       fields->f_ivc2_8u4 = value;
3299       break;
3300     case MEP_OPERAND_IVC_X_0_2 :
3301       fields->f_ivc2_2u0 = value;
3302       break;
3303     case MEP_OPERAND_IVC_X_0_3 :
3304       fields->f_ivc2_3u0 = value;
3305       break;
3306     case MEP_OPERAND_IVC_X_0_4 :
3307       fields->f_ivc2_4u0 = value;
3308       break;
3309     case MEP_OPERAND_IVC_X_0_5 :
3310       fields->f_ivc2_5u0 = value;
3311       break;
3312     case MEP_OPERAND_IVC_X_6_1 :
3313       fields->f_ivc2_1u6 = value;
3314       break;
3315     case MEP_OPERAND_IVC_X_6_2 :
3316       fields->f_ivc2_2u6 = value;
3317       break;
3318     case MEP_OPERAND_IVC_X_6_3 :
3319       fields->f_ivc2_3u6 = value;
3320       break;
3321     case MEP_OPERAND_IVC2_ACC0_0 :
3322       break;
3323     case MEP_OPERAND_IVC2_ACC0_1 :
3324       break;
3325     case MEP_OPERAND_IVC2_ACC0_2 :
3326       break;
3327     case MEP_OPERAND_IVC2_ACC0_3 :
3328       break;
3329     case MEP_OPERAND_IVC2_ACC0_4 :
3330       break;
3331     case MEP_OPERAND_IVC2_ACC0_5 :
3332       break;
3333     case MEP_OPERAND_IVC2_ACC0_6 :
3334       break;
3335     case MEP_OPERAND_IVC2_ACC0_7 :
3336       break;
3337     case MEP_OPERAND_IVC2_ACC1_0 :
3338       break;
3339     case MEP_OPERAND_IVC2_ACC1_1 :
3340       break;
3341     case MEP_OPERAND_IVC2_ACC1_2 :
3342       break;
3343     case MEP_OPERAND_IVC2_ACC1_3 :
3344       break;
3345     case MEP_OPERAND_IVC2_ACC1_4 :
3346       break;
3347     case MEP_OPERAND_IVC2_ACC1_5 :
3348       break;
3349     case MEP_OPERAND_IVC2_ACC1_6 :
3350       break;
3351     case MEP_OPERAND_IVC2_ACC1_7 :
3352       break;
3353     case MEP_OPERAND_IVC2_CC :
3354       break;
3355     case MEP_OPERAND_IVC2_COFA0 :
3356       break;
3357     case MEP_OPERAND_IVC2_COFA1 :
3358       break;
3359     case MEP_OPERAND_IVC2_COFR0 :
3360       break;
3361     case MEP_OPERAND_IVC2_COFR1 :
3362       break;
3363     case MEP_OPERAND_IVC2_CSAR0 :
3364       break;
3365     case MEP_OPERAND_IVC2_CSAR1 :
3366       break;
3367     case MEP_OPERAND_IVC2C3CCRN :
3368       fields->f_ivc2_ccrn_c3 = value;
3369       break;
3370     case MEP_OPERAND_IVC2CCRN :
3371       fields->f_ivc2_ccrn = value;
3372       break;
3373     case MEP_OPERAND_IVC2CRN :
3374       fields->f_ivc2_crnx = value;
3375       break;
3376     case MEP_OPERAND_IVC2RM :
3377       fields->f_ivc2_crm = value;
3378       break;
3379     case MEP_OPERAND_LO :
3380       break;
3381     case MEP_OPERAND_LP :
3382       break;
3383     case MEP_OPERAND_MB0 :
3384       break;
3385     case MEP_OPERAND_MB1 :
3386       break;
3387     case MEP_OPERAND_ME0 :
3388       break;
3389     case MEP_OPERAND_ME1 :
3390       break;
3391     case MEP_OPERAND_NPC :
3392       break;
3393     case MEP_OPERAND_OPT :
3394       break;
3395     case MEP_OPERAND_PCABS24A2 :
3396       fields->f_24u5a2n = value;
3397       break;
3398     case MEP_OPERAND_PCREL12A2 :
3399       fields->f_12s4a2 = value;
3400       break;
3401     case MEP_OPERAND_PCREL17A2 :
3402       fields->f_17s16a2 = value;
3403       break;
3404     case MEP_OPERAND_PCREL24A2 :
3405       fields->f_24s5a2n = value;
3406       break;
3407     case MEP_OPERAND_PCREL8A2 :
3408       fields->f_8s8a2 = value;
3409       break;
3410     case MEP_OPERAND_PSW :
3411       break;
3412     case MEP_OPERAND_R0 :
3413       break;
3414     case MEP_OPERAND_R1 :
3415       break;
3416     case MEP_OPERAND_RL :
3417       fields->f_rl = value;
3418       break;
3419     case MEP_OPERAND_RL5 :
3420       fields->f_rl5 = value;
3421       break;
3422     case MEP_OPERAND_RM :
3423       fields->f_rm = value;
3424       break;
3425     case MEP_OPERAND_RMA :
3426       fields->f_rm = value;
3427       break;
3428     case MEP_OPERAND_RN :
3429       fields->f_rn = value;
3430       break;
3431     case MEP_OPERAND_RN3 :
3432       fields->f_rn3 = value;
3433       break;
3434     case MEP_OPERAND_RN3C :
3435       fields->f_rn3 = value;
3436       break;
3437     case MEP_OPERAND_RN3L :
3438       fields->f_rn3 = value;
3439       break;
3440     case MEP_OPERAND_RN3S :
3441       fields->f_rn3 = value;
3442       break;
3443     case MEP_OPERAND_RN3UC :
3444       fields->f_rn3 = value;
3445       break;
3446     case MEP_OPERAND_RN3UL :
3447       fields->f_rn3 = value;
3448       break;
3449     case MEP_OPERAND_RN3US :
3450       fields->f_rn3 = value;
3451       break;
3452     case MEP_OPERAND_RNC :
3453       fields->f_rn = value;
3454       break;
3455     case MEP_OPERAND_RNL :
3456       fields->f_rn = value;
3457       break;
3458     case MEP_OPERAND_RNS :
3459       fields->f_rn = value;
3460       break;
3461     case MEP_OPERAND_RNUC :
3462       fields->f_rn = value;
3463       break;
3464     case MEP_OPERAND_RNUL :
3465       fields->f_rn = value;
3466       break;
3467     case MEP_OPERAND_RNUS :
3468       fields->f_rn = value;
3469       break;
3470     case MEP_OPERAND_SAR :
3471       break;
3472     case MEP_OPERAND_SDISP16 :
3473       fields->f_16s16 = value;
3474       break;
3475     case MEP_OPERAND_SIMM16 :
3476       fields->f_16s16 = value;
3477       break;
3478     case MEP_OPERAND_SIMM16P0 :
3479       fields->f_ivc2_simm16p0 = value;
3480       break;
3481     case MEP_OPERAND_SIMM6 :
3482       fields->f_6s8 = value;
3483       break;
3484     case MEP_OPERAND_SIMM8 :
3485       fields->f_8s8 = value;
3486       break;
3487     case MEP_OPERAND_SIMM8P0 :
3488       fields->f_ivc2_8s0 = value;
3489       break;
3490     case MEP_OPERAND_SIMM8P20 :
3491       fields->f_ivc2_8s20 = value;
3492       break;
3493     case MEP_OPERAND_SIMM8P4 :
3494       fields->f_ivc2_8s4 = value;
3495       break;
3496     case MEP_OPERAND_SP :
3497       break;
3498     case MEP_OPERAND_SPR :
3499       break;
3500     case MEP_OPERAND_TP :
3501       break;
3502     case MEP_OPERAND_TPR :
3503       break;
3504     case MEP_OPERAND_UDISP2 :
3505       fields->f_2u6 = value;
3506       break;
3507     case MEP_OPERAND_UDISP7 :
3508       fields->f_7u9 = value;
3509       break;
3510     case MEP_OPERAND_UDISP7A2 :
3511       fields->f_7u9a2 = value;
3512       break;
3513     case MEP_OPERAND_UDISP7A4 :
3514       fields->f_7u9a4 = value;
3515       break;
3516     case MEP_OPERAND_UIMM16 :
3517       fields->f_16u16 = value;
3518       break;
3519     case MEP_OPERAND_UIMM2 :
3520       fields->f_2u10 = value;
3521       break;
3522     case MEP_OPERAND_UIMM24 :
3523       fields->f_24u8n = value;
3524       break;
3525     case MEP_OPERAND_UIMM3 :
3526       fields->f_3u5 = value;
3527       break;
3528     case MEP_OPERAND_UIMM4 :
3529       fields->f_4u8 = value;
3530       break;
3531     case MEP_OPERAND_UIMM5 :
3532       fields->f_5u8 = value;
3533       break;
3534     case MEP_OPERAND_UIMM7A4 :
3535       fields->f_7u9a4 = value;
3536       break;
3537     case MEP_OPERAND_ZERO :
3538       break;
3539
3540     default :
3541       /* xgettext:c-format */
3542       fprintf (stderr, _("Unrecognized field %d while setting vma operand.\n"),
3543                        opindex);
3544       abort ();
3545   }
3546 }
3547
3548 /* Function to call before using the instruction builder tables.  */
3549
3550 void
3551 mep_cgen_init_ibld_table (CGEN_CPU_DESC cd)
3552 {
3553   cd->insert_handlers = & mep_cgen_insert_handlers[0];
3554   cd->extract_handlers = & mep_cgen_extract_handlers[0];
3555
3556   cd->insert_operand = mep_cgen_insert_operand;
3557   cd->extract_operand = mep_cgen_extract_operand;
3558
3559   cd->get_int_operand = mep_cgen_get_int_operand;
3560   cd->set_int_operand = mep_cgen_set_int_operand;
3561   cd->get_vma_operand = mep_cgen_get_vma_operand;
3562   cd->set_vma_operand = mep_cgen_set_vma_operand;
3563 }