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