opcodes/mep-ibld.c

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