OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [binutils-2.20.1/] [opcodes/] [mep-ibld.c] - Blame information for rev 205

Details | Compare with Previous | View Log

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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.