Coverage Report

Created: 2024-05-21 06:29

/src/binutils-gdb/opcodes/frv-ibld.c
Line
Count
Source (jump to first uncovered line)
1
/* DO NOT EDIT!  -*- buffer-read-only: t -*- vi:set ro:  */
2
/* Instruction building/extraction support for frv. -*- C -*-
3
4
   THIS FILE IS MACHINE GENERATED WITH CGEN: Cpu tools GENerator.
5
   - the resultant file is machine generated, cgen-ibld.in isn't
6
7
   Copyright (C) 1996-2024 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 "frv-desc.h"
35
#include "frv-opc.h"
36
#include "cgen/basic-modes.h"
37
#include "opintl.h"
38
#include "safe-ctype.h"
39
40
#undef  min
41
#define min(a,b) ((a) < (b) ? (a) : (b))
42
#undef  max
43
#define max(a,b) ((a) > (b) ? (a) : (b))
44
45
/* Used by the ifield rtx function.  */
46
2.68k
#define FLD(f) (fields->f)
47
48
static const char * insert_normal
49
  (CGEN_CPU_DESC, long, unsigned int, unsigned int, unsigned int,
50
   unsigned int, unsigned int, unsigned int, CGEN_INSN_BYTES_PTR);
51
static const char * insert_insn_normal
52
  (CGEN_CPU_DESC, const CGEN_INSN *,
53
   CGEN_FIELDS *, CGEN_INSN_BYTES_PTR, bfd_vma);
54
static int extract_normal
55
  (CGEN_CPU_DESC, CGEN_EXTRACT_INFO *, CGEN_INSN_INT,
56
   unsigned int, unsigned int, unsigned int, unsigned int,
57
   unsigned int, unsigned int, bfd_vma, long *);
58
static int extract_insn_normal
59
  (CGEN_CPU_DESC, const CGEN_INSN *, CGEN_EXTRACT_INFO *,
60
   CGEN_INSN_INT, CGEN_FIELDS *, bfd_vma);
61
#if CGEN_INT_INSN_P
62
static void put_insn_int_value
63
  (CGEN_CPU_DESC, CGEN_INSN_BYTES_PTR, int, int, CGEN_INSN_INT);
64
#endif
65
#if ! CGEN_INT_INSN_P
66
static CGEN_INLINE void insert_1
67
  (CGEN_CPU_DESC, unsigned long, int, int, int, unsigned char *);
68
static CGEN_INLINE int fill_cache
69
  (CGEN_CPU_DESC, CGEN_EXTRACT_INFO *,  int, int, bfd_vma);
70
static CGEN_INLINE long extract_1
71
  (CGEN_CPU_DESC, CGEN_EXTRACT_INFO *, int, int, int, unsigned char *, bfd_vma);
72
#endif
73

74
/* Operand insertion.  */
75
76
#if ! CGEN_INT_INSN_P
77
78
/* Subroutine of insert_normal.  */
79
80
static CGEN_INLINE void
81
insert_1 (CGEN_CPU_DESC cd,
82
    unsigned long value,
83
    int start,
84
    int length,
85
    int word_length,
86
    unsigned char *bufp)
87
{
88
  unsigned long x, mask;
89
  int shift;
90
91
  x = cgen_get_insn_value (cd, bufp, word_length, cd->endian);
92
93
  /* Written this way to avoid undefined behaviour.  */
94
  mask = (1UL << (length - 1) << 1) - 1;
95
  if (CGEN_INSN_LSB0_P)
96
    shift = (start + 1) - length;
97
  else
98
    shift = (word_length - (start + length));
99
  x = (x & ~(mask << shift)) | ((value & mask) << shift);
100
101
  cgen_put_insn_value (cd, bufp, word_length, (bfd_vma) x, cd->endian);
102
}
103
104
#endif /* ! CGEN_INT_INSN_P */
105
106
/* Default insertion routine.
107
108
   ATTRS is a mask of the boolean attributes.
109
   WORD_OFFSET is the offset in bits from the start of the insn of the value.
110
   WORD_LENGTH is the length of the word in bits in which the value resides.
111
   START is the starting bit number in the word, architecture origin.
112
   LENGTH is the length of VALUE in bits.
113
   TOTAL_LENGTH is the total length of the insn in bits.
114
115
   The result is an error message or NULL if success.  */
116
117
/* ??? This duplicates functionality with bfd's howto table and
118
   bfd_install_relocation.  */
119
/* ??? This doesn't handle bfd_vma's.  Create another function when
120
   necessary.  */
121
122
static const char *
123
insert_normal (CGEN_CPU_DESC cd,
124
         long value,
125
         unsigned int attrs,
126
         unsigned int word_offset,
127
         unsigned int start,
128
         unsigned int length,
129
         unsigned int word_length,
130
         unsigned int total_length,
131
         CGEN_INSN_BYTES_PTR buffer)
132
0
{
133
0
  static char errbuf[100];
134
0
  unsigned long mask;
135
136
  /* If LENGTH is zero, this operand doesn't contribute to the value.  */
137
0
  if (length == 0)
138
0
    return NULL;
139
140
  /* Written this way to avoid undefined behaviour.  */
141
0
  mask = (1UL << (length - 1) << 1) - 1;
142
143
0
  if (word_length > 8 * sizeof (CGEN_INSN_INT))
144
0
    abort ();
145
146
  /* For architectures with insns smaller than the base-insn-bitsize,
147
     word_length may be too big.  */
148
0
  if (cd->min_insn_bitsize < cd->base_insn_bitsize)
149
0
    {
150
0
      if (word_offset == 0
151
0
    && word_length > total_length)
152
0
  word_length = total_length;
153
0
    }
154
155
  /* Ensure VALUE will fit.  */
156
0
  if (CGEN_BOOL_ATTR (attrs, CGEN_IFLD_SIGN_OPT))
157
0
    {
158
0
      long minval = - (1UL << (length - 1));
159
0
      unsigned long maxval = mask;
160
161
0
      if ((value > 0 && (unsigned long) value > maxval)
162
0
    || value < minval)
163
0
  {
164
    /* xgettext:c-format */
165
0
    sprintf (errbuf,
166
0
       _("operand out of range (%ld not between %ld and %lu)"),
167
0
       value, minval, maxval);
168
0
    return errbuf;
169
0
  }
170
0
    }
171
0
  else if (! CGEN_BOOL_ATTR (attrs, CGEN_IFLD_SIGNED))
172
0
    {
173
0
      unsigned long maxval = mask;
174
0
      unsigned long val = (unsigned long) value;
175
176
      /* For hosts with a word size > 32 check to see if value has been sign
177
   extended beyond 32 bits.  If so then ignore these higher sign bits
178
   as the user is attempting to store a 32-bit signed value into an
179
   unsigned 32-bit field which is allowed.  */
180
0
      if (sizeof (unsigned long) > 4 && ((value >> 32) == -1))
181
0
  val &= 0xFFFFFFFF;
182
183
0
      if (val > maxval)
184
0
  {
185
    /* xgettext:c-format */
186
0
    sprintf (errbuf,
187
0
       _("operand out of range (0x%lx not between 0 and 0x%lx)"),
188
0
       val, maxval);
189
0
    return errbuf;
190
0
  }
191
0
    }
192
0
  else
193
0
    {
194
0
      if (! cgen_signed_overflow_ok_p (cd))
195
0
  {
196
0
    long minval = - (1UL << (length - 1));
197
0
    long maxval =   (1UL << (length - 1)) - 1;
198
199
0
    if (value < minval || value > maxval)
200
0
      {
201
0
        sprintf
202
    /* xgettext:c-format */
203
0
    (errbuf, _("operand out of range (%ld not between %ld and %ld)"),
204
0
     value, minval, maxval);
205
0
        return errbuf;
206
0
      }
207
0
  }
208
0
    }
209
210
0
#if CGEN_INT_INSN_P
211
212
0
  {
213
0
    int shift_within_word, shift_to_word, shift;
214
215
    /* How to shift the value to BIT0 of the word.  */
216
0
    shift_to_word = total_length - (word_offset + word_length);
217
218
    /* How to shift the value to the field within the word.  */
219
0
    if (CGEN_INSN_LSB0_P)
220
0
      shift_within_word = start + 1 - length;
221
0
    else
222
0
      shift_within_word = word_length - start - length;
223
224
    /* The total SHIFT, then mask in the value.  */
225
0
    shift = shift_to_word + shift_within_word;
226
0
    *buffer = (*buffer & ~(mask << shift)) | ((value & mask) << shift);
227
0
  }
228
229
#else /* ! CGEN_INT_INSN_P */
230
231
  {
232
    unsigned char *bufp = (unsigned char *) buffer + word_offset / 8;
233
234
    insert_1 (cd, value, start, length, word_length, bufp);
235
  }
236
237
#endif /* ! CGEN_INT_INSN_P */
238
239
0
  return NULL;
240
0
}
241
242
/* Default insn builder (insert handler).
243
   The instruction is recorded in CGEN_INT_INSN_P byte order (meaning
244
   that if CGEN_INSN_BYTES_PTR is an int * and thus, the value is
245
   recorded in host byte order, otherwise BUFFER is an array of bytes
246
   and the value is recorded in target byte order).
247
   The result is an error message or NULL if success.  */
248
249
static const char *
250
insert_insn_normal (CGEN_CPU_DESC cd,
251
        const CGEN_INSN * insn,
252
        CGEN_FIELDS * fields,
253
        CGEN_INSN_BYTES_PTR buffer,
254
        bfd_vma pc)
255
0
{
256
0
  const CGEN_SYNTAX *syntax = CGEN_INSN_SYNTAX (insn);
257
0
  unsigned long value;
258
0
  const CGEN_SYNTAX_CHAR_TYPE * syn;
259
260
0
  CGEN_INIT_INSERT (cd);
261
0
  value = CGEN_INSN_BASE_VALUE (insn);
262
263
  /* If we're recording insns as numbers (rather than a string of bytes),
264
     target byte order handling is deferred until later.  */
265
266
0
#if CGEN_INT_INSN_P
267
268
0
  put_insn_int_value (cd, buffer, cd->base_insn_bitsize,
269
0
          CGEN_FIELDS_BITSIZE (fields), value);
270
271
#else
272
273
  cgen_put_insn_value (cd, buffer, min ((unsigned) cd->base_insn_bitsize,
274
                                        (unsigned) CGEN_FIELDS_BITSIZE (fields)),
275
           value, cd->insn_endian);
276
277
#endif /* ! CGEN_INT_INSN_P */
278
279
  /* ??? It would be better to scan the format's fields.
280
     Still need to be able to insert a value based on the operand though;
281
     e.g. storing a branch displacement that got resolved later.
282
     Needs more thought first.  */
283
284
0
  for (syn = CGEN_SYNTAX_STRING (syntax); * syn; ++ syn)
285
0
    {
286
0
      const char *errmsg;
287
288
0
      if (CGEN_SYNTAX_CHAR_P (* syn))
289
0
  continue;
290
291
0
      errmsg = (* cd->insert_operand) (cd, CGEN_SYNTAX_FIELD (*syn),
292
0
               fields, buffer, pc);
293
0
      if (errmsg)
294
0
  return errmsg;
295
0
    }
296
297
0
  return NULL;
298
0
}
299
300
#if CGEN_INT_INSN_P
301
/* Cover function to store an insn value into an integral insn.  Must go here
302
   because it needs <prefix>-desc.h for CGEN_INT_INSN_P.  */
303
304
static void
305
put_insn_int_value (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
306
        CGEN_INSN_BYTES_PTR buf,
307
        int length,
308
        int insn_length,
309
        CGEN_INSN_INT value)
310
0
{
311
  /* For architectures with insns smaller than the base-insn-bitsize,
312
     length may be too big.  */
313
0
  if (length > insn_length)
314
0
    *buf = value;
315
0
  else
316
0
    {
317
0
      int shift = insn_length - length;
318
      /* Written this way to avoid undefined behaviour.  */
319
0
      CGEN_INSN_INT mask = length == 0 ? 0 : (1UL << (length - 1) << 1) - 1;
320
321
0
      *buf = (*buf & ~(mask << shift)) | ((value & mask) << shift);
322
0
    }
323
0
}
324
#endif
325

326
/* Operand extraction.  */
327
328
#if ! CGEN_INT_INSN_P
329
330
/* Subroutine of extract_normal.
331
   Ensure sufficient bytes are cached in EX_INFO.
332
   OFFSET is the offset in bytes from the start of the insn of the value.
333
   BYTES is the length of the needed value.
334
   Returns 1 for success, 0 for failure.  */
335
336
static CGEN_INLINE int
337
fill_cache (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
338
      CGEN_EXTRACT_INFO *ex_info,
339
      int offset,
340
      int bytes,
341
      bfd_vma pc)
342
{
343
  /* It's doubtful that the middle part has already been fetched so
344
     we don't optimize that case.  kiss.  */
345
  unsigned int mask;
346
  disassemble_info *info = (disassemble_info *) ex_info->dis_info;
347
348
  /* First do a quick check.  */
349
  mask = (1 << bytes) - 1;
350
  if (((ex_info->valid >> offset) & mask) == mask)
351
    return 1;
352
353
  /* Search for the first byte we need to read.  */
354
  for (mask = 1 << offset; bytes > 0; --bytes, ++offset, mask <<= 1)
355
    if (! (mask & ex_info->valid))
356
      break;
357
358
  if (bytes)
359
    {
360
      int status;
361
362
      pc += offset;
363
      status = (*info->read_memory_func)
364
  (pc, ex_info->insn_bytes + offset, bytes, info);
365
366
      if (status != 0)
367
  {
368
    (*info->memory_error_func) (status, pc, info);
369
    return 0;
370
  }
371
372
      ex_info->valid |= ((1 << bytes) - 1) << offset;
373
    }
374
375
  return 1;
376
}
377
378
/* Subroutine of extract_normal.  */
379
380
static CGEN_INLINE long
381
extract_1 (CGEN_CPU_DESC cd,
382
     CGEN_EXTRACT_INFO *ex_info ATTRIBUTE_UNUSED,
383
     int start,
384
     int length,
385
     int word_length,
386
     unsigned char *bufp,
387
     bfd_vma pc ATTRIBUTE_UNUSED)
388
{
389
  unsigned long x;
390
  int shift;
391
392
  x = cgen_get_insn_value (cd, bufp, word_length, cd->endian);
393
394
  if (CGEN_INSN_LSB0_P)
395
    shift = (start + 1) - length;
396
  else
397
    shift = (word_length - (start + length));
398
  return x >> shift;
399
}
400
401
#endif /* ! CGEN_INT_INSN_P */
402
403
/* Default extraction routine.
404
405
   INSN_VALUE is the first base_insn_bitsize bits of the insn in host order,
406
   or sometimes less for cases like the m32r where the base insn size is 32
407
   but some insns are 16 bits.
408
   ATTRS is a mask of the boolean attributes.  We only need `SIGNED',
409
   but for generality we take a bitmask of all of them.
410
   WORD_OFFSET is the offset in bits from the start of the insn of the value.
411
   WORD_LENGTH is the length of the word in bits in which the value resides.
412
   START is the starting bit number in the word, architecture origin.
413
   LENGTH is the length of VALUE in bits.
414
   TOTAL_LENGTH is the total length of the insn in bits.
415
416
   Returns 1 for success, 0 for failure.  */
417
418
/* ??? The return code isn't properly used.  wip.  */
419
420
/* ??? This doesn't handle bfd_vma's.  Create another function when
421
   necessary.  */
422
423
static int
424
extract_normal (CGEN_CPU_DESC cd,
425
#if ! CGEN_INT_INSN_P
426
    CGEN_EXTRACT_INFO *ex_info,
427
#else
428
    CGEN_EXTRACT_INFO *ex_info ATTRIBUTE_UNUSED,
429
#endif
430
    CGEN_INSN_INT insn_value,
431
    unsigned int attrs,
432
    unsigned int word_offset,
433
    unsigned int start,
434
    unsigned int length,
435
    unsigned int word_length,
436
    unsigned int total_length,
437
#if ! CGEN_INT_INSN_P
438
    bfd_vma pc,
439
#else
440
    bfd_vma pc ATTRIBUTE_UNUSED,
441
#endif
442
    long *valuep)
443
345k
{
444
345k
  long value, mask;
445
446
  /* If LENGTH is zero, this operand doesn't contribute to the value
447
     so give it a standard value of zero.  */
448
345k
  if (length == 0)
449
91
    {
450
91
      *valuep = 0;
451
91
      return 1;
452
91
    }
453
454
344k
  if (word_length > 8 * sizeof (CGEN_INSN_INT))
455
0
    abort ();
456
457
  /* For architectures with insns smaller than the insn-base-bitsize,
458
     word_length may be too big.  */
459
344k
  if (cd->min_insn_bitsize < cd->base_insn_bitsize)
460
0
    {
461
0
      if (word_offset + word_length > total_length)
462
0
  word_length = total_length - word_offset;
463
0
    }
464
465
  /* Does the value reside in INSN_VALUE, and at the right alignment?  */
466
467
344k
  if (CGEN_INT_INSN_P || (word_offset == 0 && word_length == total_length))
468
344k
    {
469
344k
      if (CGEN_INSN_LSB0_P)
470
344k
  value = insn_value >> ((word_offset + start + 1) - length);
471
0
      else
472
0
  value = insn_value >> (total_length - ( word_offset + start + length));
473
344k
    }
474
475
#if ! CGEN_INT_INSN_P
476
477
  else
478
    {
479
      unsigned char *bufp = ex_info->insn_bytes + word_offset / 8;
480
481
      if (word_length > 8 * sizeof (CGEN_INSN_INT))
482
  abort ();
483
484
      if (fill_cache (cd, ex_info, word_offset / 8, word_length / 8, pc) == 0)
485
  {
486
    *valuep = 0;
487
    return 0;
488
  }
489
490
      value = extract_1 (cd, ex_info, start, length, word_length, bufp, pc);
491
    }
492
493
#endif /* ! CGEN_INT_INSN_P */
494
495
  /* Written this way to avoid undefined behaviour.  */
496
344k
  mask = (1UL << (length - 1) << 1) - 1;
497
498
344k
  value &= mask;
499
  /* sign extend? */
500
344k
  if (CGEN_BOOL_ATTR (attrs, CGEN_IFLD_SIGNED)
501
344k
      && (value & (1UL << (length - 1))))
502
21.8k
    value |= ~mask;
503
504
344k
  *valuep = value;
505
506
344k
  return 1;
507
344k
}
508
509
/* Default insn extractor.
510
511
   INSN_VALUE is the first base_insn_bitsize bits, translated to host order.
512
   The extracted fields are stored in FIELDS.
513
   EX_INFO is used to handle reading variable length insns.
514
   Return the length of the insn in bits, or 0 if no match,
515
   or -1 if an error occurs fetching data (memory_error_func will have
516
   been called).  */
517
518
static int
519
extract_insn_normal (CGEN_CPU_DESC cd,
520
         const CGEN_INSN *insn,
521
         CGEN_EXTRACT_INFO *ex_info,
522
         CGEN_INSN_INT insn_value,
523
         CGEN_FIELDS *fields,
524
         bfd_vma pc)
525
76.5k
{
526
76.5k
  const CGEN_SYNTAX *syntax = CGEN_INSN_SYNTAX (insn);
527
76.5k
  const CGEN_SYNTAX_CHAR_TYPE *syn;
528
529
76.5k
  CGEN_FIELDS_BITSIZE (fields) = CGEN_INSN_BITSIZE (insn);
530
531
76.5k
  CGEN_INIT_EXTRACT (cd);
532
533
841k
  for (syn = CGEN_SYNTAX_STRING (syntax); *syn; ++syn)
534
764k
    {
535
764k
      int length;
536
537
764k
      if (CGEN_SYNTAX_CHAR_P (*syn))
538
420k
  continue;
539
540
344k
      length = (* cd->extract_operand) (cd, CGEN_SYNTAX_FIELD (*syn),
541
344k
          ex_info, insn_value, fields, pc);
542
344k
      if (length <= 0)
543
0
  return length;
544
344k
    }
545
546
  /* We recognized and successfully extracted this insn.  */
547
76.5k
  return CGEN_INSN_BITSIZE (insn);
548
76.5k
}
549

550
/* Machine generated code added here.  */
551
552
const char * frv_cgen_insert_operand
553
  (CGEN_CPU_DESC, int, CGEN_FIELDS *, CGEN_INSN_BYTES_PTR, bfd_vma);
554
555
/* Main entry point for operand insertion.
556
557
   This function is basically just a big switch statement.  Earlier versions
558
   used tables to look up the function to use, but
559
   - if the table contains both assembler and disassembler functions then
560
     the disassembler contains much of the assembler and vice-versa,
561
   - there's a lot of inlining possibilities as things grow,
562
   - using a switch statement avoids the function call overhead.
563
564
   This function could be moved into `parse_insn_normal', but keeping it
565
   separate makes clear the interface between `parse_insn_normal' and each of
566
   the handlers.  It's also needed by GAS to insert operands that couldn't be
567
   resolved during parsing.  */
568
569
const char *
570
frv_cgen_insert_operand (CGEN_CPU_DESC cd,
571
           int opindex,
572
           CGEN_FIELDS * fields,
573
           CGEN_INSN_BYTES_PTR buffer,
574
           bfd_vma pc ATTRIBUTE_UNUSED)
575
0
{
576
0
  const char * errmsg = NULL;
577
0
  unsigned int total_length = CGEN_FIELDS_BITSIZE (fields);
578
579
0
  switch (opindex)
580
0
    {
581
0
    case FRV_OPERAND_A0 :
582
0
      errmsg = insert_normal (cd, fields->f_A, 0, 0, 17, 1, 32, total_length, buffer);
583
0
      break;
584
0
    case FRV_OPERAND_A1 :
585
0
      errmsg = insert_normal (cd, fields->f_A, 0, 0, 17, 1, 32, total_length, buffer);
586
0
      break;
587
0
    case FRV_OPERAND_ACC40SI :
588
0
      errmsg = insert_normal (cd, fields->f_ACC40Si, 0, 0, 17, 6, 32, total_length, buffer);
589
0
      break;
590
0
    case FRV_OPERAND_ACC40SK :
591
0
      errmsg = insert_normal (cd, fields->f_ACC40Sk, 0, 0, 30, 6, 32, total_length, buffer);
592
0
      break;
593
0
    case FRV_OPERAND_ACC40UI :
594
0
      errmsg = insert_normal (cd, fields->f_ACC40Ui, 0, 0, 17, 6, 32, total_length, buffer);
595
0
      break;
596
0
    case FRV_OPERAND_ACC40UK :
597
0
      errmsg = insert_normal (cd, fields->f_ACC40Uk, 0, 0, 30, 6, 32, total_length, buffer);
598
0
      break;
599
0
    case FRV_OPERAND_ACCGI :
600
0
      errmsg = insert_normal (cd, fields->f_ACCGi, 0, 0, 17, 6, 32, total_length, buffer);
601
0
      break;
602
0
    case FRV_OPERAND_ACCGK :
603
0
      errmsg = insert_normal (cd, fields->f_ACCGk, 0, 0, 30, 6, 32, total_length, buffer);
604
0
      break;
605
0
    case FRV_OPERAND_CCI :
606
0
      errmsg = insert_normal (cd, fields->f_CCi, 0, 0, 11, 3, 32, total_length, buffer);
607
0
      break;
608
0
    case FRV_OPERAND_CPRDOUBLEK :
609
0
      errmsg = insert_normal (cd, fields->f_CPRk, 0, 0, 30, 6, 32, total_length, buffer);
610
0
      break;
611
0
    case FRV_OPERAND_CPRI :
612
0
      errmsg = insert_normal (cd, fields->f_CPRi, 0, 0, 17, 6, 32, total_length, buffer);
613
0
      break;
614
0
    case FRV_OPERAND_CPRJ :
615
0
      errmsg = insert_normal (cd, fields->f_CPRj, 0, 0, 5, 6, 32, total_length, buffer);
616
0
      break;
617
0
    case FRV_OPERAND_CPRK :
618
0
      errmsg = insert_normal (cd, fields->f_CPRk, 0, 0, 30, 6, 32, total_length, buffer);
619
0
      break;
620
0
    case FRV_OPERAND_CRI :
621
0
      errmsg = insert_normal (cd, fields->f_CRi, 0, 0, 14, 3, 32, total_length, buffer);
622
0
      break;
623
0
    case FRV_OPERAND_CRJ :
624
0
      errmsg = insert_normal (cd, fields->f_CRj, 0, 0, 2, 3, 32, total_length, buffer);
625
0
      break;
626
0
    case FRV_OPERAND_CRJ_FLOAT :
627
0
      errmsg = insert_normal (cd, fields->f_CRj_float, 0, 0, 26, 2, 32, total_length, buffer);
628
0
      break;
629
0
    case FRV_OPERAND_CRJ_INT :
630
0
      {
631
0
        long value = fields->f_CRj_int;
632
0
        value = ((value) - (4));
633
0
        errmsg = insert_normal (cd, value, 0, 0, 26, 2, 32, total_length, buffer);
634
0
      }
635
0
      break;
636
0
    case FRV_OPERAND_CRK :
637
0
      errmsg = insert_normal (cd, fields->f_CRk, 0, 0, 27, 3, 32, total_length, buffer);
638
0
      break;
639
0
    case FRV_OPERAND_FCCI_1 :
640
0
      errmsg = insert_normal (cd, fields->f_FCCi_1, 0, 0, 11, 2, 32, total_length, buffer);
641
0
      break;
642
0
    case FRV_OPERAND_FCCI_2 :
643
0
      errmsg = insert_normal (cd, fields->f_FCCi_2, 0, 0, 26, 2, 32, total_length, buffer);
644
0
      break;
645
0
    case FRV_OPERAND_FCCI_3 :
646
0
      errmsg = insert_normal (cd, fields->f_FCCi_3, 0, 0, 1, 2, 32, total_length, buffer);
647
0
      break;
648
0
    case FRV_OPERAND_FCCK :
649
0
      errmsg = insert_normal (cd, fields->f_FCCk, 0, 0, 26, 2, 32, total_length, buffer);
650
0
      break;
651
0
    case FRV_OPERAND_FRDOUBLEI :
652
0
      errmsg = insert_normal (cd, fields->f_FRi, 0, 0, 17, 6, 32, total_length, buffer);
653
0
      break;
654
0
    case FRV_OPERAND_FRDOUBLEJ :
655
0
      errmsg = insert_normal (cd, fields->f_FRj, 0, 0, 5, 6, 32, total_length, buffer);
656
0
      break;
657
0
    case FRV_OPERAND_FRDOUBLEK :
658
0
      errmsg = insert_normal (cd, fields->f_FRk, 0, 0, 30, 6, 32, total_length, buffer);
659
0
      break;
660
0
    case FRV_OPERAND_FRI :
661
0
      errmsg = insert_normal (cd, fields->f_FRi, 0, 0, 17, 6, 32, total_length, buffer);
662
0
      break;
663
0
    case FRV_OPERAND_FRINTI :
664
0
      errmsg = insert_normal (cd, fields->f_FRi, 0, 0, 17, 6, 32, total_length, buffer);
665
0
      break;
666
0
    case FRV_OPERAND_FRINTIEVEN :
667
0
      errmsg = insert_normal (cd, fields->f_FRi, 0, 0, 17, 6, 32, total_length, buffer);
668
0
      break;
669
0
    case FRV_OPERAND_FRINTJ :
670
0
      errmsg = insert_normal (cd, fields->f_FRj, 0, 0, 5, 6, 32, total_length, buffer);
671
0
      break;
672
0
    case FRV_OPERAND_FRINTJEVEN :
673
0
      errmsg = insert_normal (cd, fields->f_FRj, 0, 0, 5, 6, 32, total_length, buffer);
674
0
      break;
675
0
    case FRV_OPERAND_FRINTK :
676
0
      errmsg = insert_normal (cd, fields->f_FRk, 0, 0, 30, 6, 32, total_length, buffer);
677
0
      break;
678
0
    case FRV_OPERAND_FRINTKEVEN :
679
0
      errmsg = insert_normal (cd, fields->f_FRk, 0, 0, 30, 6, 32, total_length, buffer);
680
0
      break;
681
0
    case FRV_OPERAND_FRJ :
682
0
      errmsg = insert_normal (cd, fields->f_FRj, 0, 0, 5, 6, 32, total_length, buffer);
683
0
      break;
684
0
    case FRV_OPERAND_FRK :
685
0
      errmsg = insert_normal (cd, fields->f_FRk, 0, 0, 30, 6, 32, total_length, buffer);
686
0
      break;
687
0
    case FRV_OPERAND_FRKHI :
688
0
      errmsg = insert_normal (cd, fields->f_FRk, 0, 0, 30, 6, 32, total_length, buffer);
689
0
      break;
690
0
    case FRV_OPERAND_FRKLO :
691
0
      errmsg = insert_normal (cd, fields->f_FRk, 0, 0, 30, 6, 32, total_length, buffer);
692
0
      break;
693
0
    case FRV_OPERAND_GRDOUBLEK :
694
0
      errmsg = insert_normal (cd, fields->f_GRk, 0, 0, 30, 6, 32, total_length, buffer);
695
0
      break;
696
0
    case FRV_OPERAND_GRI :
697
0
      errmsg = insert_normal (cd, fields->f_GRi, 0, 0, 17, 6, 32, total_length, buffer);
698
0
      break;
699
0
    case FRV_OPERAND_GRJ :
700
0
      errmsg = insert_normal (cd, fields->f_GRj, 0, 0, 5, 6, 32, total_length, buffer);
701
0
      break;
702
0
    case FRV_OPERAND_GRK :
703
0
      errmsg = insert_normal (cd, fields->f_GRk, 0, 0, 30, 6, 32, total_length, buffer);
704
0
      break;
705
0
    case FRV_OPERAND_GRKHI :
706
0
      errmsg = insert_normal (cd, fields->f_GRk, 0, 0, 30, 6, 32, total_length, buffer);
707
0
      break;
708
0
    case FRV_OPERAND_GRKLO :
709
0
      errmsg = insert_normal (cd, fields->f_GRk, 0, 0, 30, 6, 32, total_length, buffer);
710
0
      break;
711
0
    case FRV_OPERAND_ICCI_1 :
712
0
      errmsg = insert_normal (cd, fields->f_ICCi_1, 0, 0, 11, 2, 32, total_length, buffer);
713
0
      break;
714
0
    case FRV_OPERAND_ICCI_2 :
715
0
      errmsg = insert_normal (cd, fields->f_ICCi_2, 0, 0, 26, 2, 32, total_length, buffer);
716
0
      break;
717
0
    case FRV_OPERAND_ICCI_3 :
718
0
      errmsg = insert_normal (cd, fields->f_ICCi_3, 0, 0, 1, 2, 32, total_length, buffer);
719
0
      break;
720
0
    case FRV_OPERAND_LI :
721
0
      errmsg = insert_normal (cd, fields->f_LI, 0, 0, 25, 1, 32, total_length, buffer);
722
0
      break;
723
0
    case FRV_OPERAND_LRAD :
724
0
      errmsg = insert_normal (cd, fields->f_LRAD, 0, 0, 4, 1, 32, total_length, buffer);
725
0
      break;
726
0
    case FRV_OPERAND_LRAE :
727
0
      errmsg = insert_normal (cd, fields->f_LRAE, 0, 0, 5, 1, 32, total_length, buffer);
728
0
      break;
729
0
    case FRV_OPERAND_LRAS :
730
0
      errmsg = insert_normal (cd, fields->f_LRAS, 0, 0, 3, 1, 32, total_length, buffer);
731
0
      break;
732
0
    case FRV_OPERAND_TLBPRL :
733
0
      errmsg = insert_normal (cd, fields->f_TLBPRL, 0, 0, 25, 1, 32, total_length, buffer);
734
0
      break;
735
0
    case FRV_OPERAND_TLBPROPX :
736
0
      errmsg = insert_normal (cd, fields->f_TLBPRopx, 0, 0, 28, 3, 32, total_length, buffer);
737
0
      break;
738
0
    case FRV_OPERAND_AE :
739
0
      errmsg = insert_normal (cd, fields->f_ae, 0, 0, 25, 1, 32, total_length, buffer);
740
0
      break;
741
0
    case FRV_OPERAND_CALLANN :
742
0
      errmsg = insert_normal (cd, fields->f_reloc_ann, 0, 0, 0, 0, 32, total_length, buffer);
743
0
      break;
744
0
    case FRV_OPERAND_CCOND :
745
0
      errmsg = insert_normal (cd, fields->f_ccond, 0, 0, 12, 1, 32, total_length, buffer);
746
0
      break;
747
0
    case FRV_OPERAND_COND :
748
0
      errmsg = insert_normal (cd, fields->f_cond, 0, 0, 8, 1, 32, total_length, buffer);
749
0
      break;
750
0
    case FRV_OPERAND_D12 :
751
0
      errmsg = insert_normal (cd, fields->f_d12, 0|(1<<CGEN_IFLD_SIGNED), 0, 11, 12, 32, total_length, buffer);
752
0
      break;
753
0
    case FRV_OPERAND_DEBUG :
754
0
      errmsg = insert_normal (cd, fields->f_debug, 0, 0, 25, 1, 32, total_length, buffer);
755
0
      break;
756
0
    case FRV_OPERAND_EIR :
757
0
      errmsg = insert_normal (cd, fields->f_eir, 0, 0, 17, 6, 32, total_length, buffer);
758
0
      break;
759
0
    case FRV_OPERAND_HINT :
760
0
      errmsg = insert_normal (cd, fields->f_hint, 0, 0, 17, 2, 32, total_length, buffer);
761
0
      break;
762
0
    case FRV_OPERAND_HINT_NOT_TAKEN :
763
0
      errmsg = insert_normal (cd, fields->f_hint, 0, 0, 17, 2, 32, total_length, buffer);
764
0
      break;
765
0
    case FRV_OPERAND_HINT_TAKEN :
766
0
      errmsg = insert_normal (cd, fields->f_hint, 0, 0, 17, 2, 32, total_length, buffer);
767
0
      break;
768
0
    case FRV_OPERAND_LABEL16 :
769
0
      {
770
0
        long value = fields->f_label16;
771
0
        value = ((SI) (((value) - (pc))) >> (2));
772
0
        errmsg = insert_normal (cd, value, 0|(1<<CGEN_IFLD_SIGNED)|(1<<CGEN_IFLD_PCREL_ADDR), 0, 15, 16, 32, total_length, buffer);
773
0
      }
774
0
      break;
775
0
    case FRV_OPERAND_LABEL24 :
776
0
      {
777
0
{
778
0
  FLD (f_labelH6) = ((SI) (((FLD (f_label24)) - (pc))) >> (20));
779
0
  FLD (f_labelL18) = ((((UINT) (((FLD (f_label24)) - (pc))) >> (2))) & (262143));
780
0
}
781
0
        errmsg = insert_normal (cd, fields->f_labelH6, 0|(1<<CGEN_IFLD_SIGNED), 0, 30, 6, 32, total_length, buffer);
782
0
        if (errmsg)
783
0
          break;
784
0
        errmsg = insert_normal (cd, fields->f_labelL18, 0, 0, 17, 18, 32, total_length, buffer);
785
0
        if (errmsg)
786
0
          break;
787
0
      }
788
0
      break;
789
0
    case FRV_OPERAND_LDANN :
790
0
      errmsg = insert_normal (cd, fields->f_reloc_ann, 0, 0, 0, 0, 32, total_length, buffer);
791
0
      break;
792
0
    case FRV_OPERAND_LDDANN :
793
0
      errmsg = insert_normal (cd, fields->f_reloc_ann, 0, 0, 0, 0, 32, total_length, buffer);
794
0
      break;
795
0
    case FRV_OPERAND_LOCK :
796
0
      errmsg = insert_normal (cd, fields->f_lock, 0, 0, 25, 1, 32, total_length, buffer);
797
0
      break;
798
0
    case FRV_OPERAND_PACK :
799
0
      errmsg = insert_normal (cd, fields->f_pack, 0, 0, 31, 1, 32, total_length, buffer);
800
0
      break;
801
0
    case FRV_OPERAND_S10 :
802
0
      errmsg = insert_normal (cd, fields->f_s10, 0|(1<<CGEN_IFLD_SIGNED), 0, 9, 10, 32, total_length, buffer);
803
0
      break;
804
0
    case FRV_OPERAND_S12 :
805
0
      errmsg = insert_normal (cd, fields->f_d12, 0|(1<<CGEN_IFLD_SIGNED), 0, 11, 12, 32, total_length, buffer);
806
0
      break;
807
0
    case FRV_OPERAND_S16 :
808
0
      errmsg = insert_normal (cd, fields->f_s16, 0|(1<<CGEN_IFLD_SIGNED), 0, 15, 16, 32, total_length, buffer);
809
0
      break;
810
0
    case FRV_OPERAND_S5 :
811
0
      errmsg = insert_normal (cd, fields->f_s5, 0|(1<<CGEN_IFLD_SIGNED), 0, 4, 5, 32, total_length, buffer);
812
0
      break;
813
0
    case FRV_OPERAND_S6 :
814
0
      errmsg = insert_normal (cd, fields->f_s6, 0|(1<<CGEN_IFLD_SIGNED), 0, 5, 6, 32, total_length, buffer);
815
0
      break;
816
0
    case FRV_OPERAND_S6_1 :
817
0
      errmsg = insert_normal (cd, fields->f_s6_1, 0|(1<<CGEN_IFLD_SIGNED), 0, 11, 6, 32, total_length, buffer);
818
0
      break;
819
0
    case FRV_OPERAND_SLO16 :
820
0
      errmsg = insert_normal (cd, fields->f_s16, 0|(1<<CGEN_IFLD_SIGNED), 0, 15, 16, 32, total_length, buffer);
821
0
      break;
822
0
    case FRV_OPERAND_SPR :
823
0
      {
824
0
{
825
0
  FLD (f_spr_h) = ((UINT) (FLD (f_spr)) >> (6));
826
0
  FLD (f_spr_l) = ((FLD (f_spr)) & (63));
827
0
}
828
0
        errmsg = insert_normal (cd, fields->f_spr_h, 0, 0, 30, 6, 32, total_length, buffer);
829
0
        if (errmsg)
830
0
          break;
831
0
        errmsg = insert_normal (cd, fields->f_spr_l, 0, 0, 17, 6, 32, total_length, buffer);
832
0
        if (errmsg)
833
0
          break;
834
0
      }
835
0
      break;
836
0
    case FRV_OPERAND_U12 :
837
0
      {
838
0
{
839
0
  FLD (f_u12_h) = ((SI) (FLD (f_u12)) >> (6));
840
0
  FLD (f_u12_l) = ((FLD (f_u12)) & (63));
841
0
}
842
0
        errmsg = insert_normal (cd, fields->f_u12_h, 0|(1<<CGEN_IFLD_SIGNED), 0, 17, 6, 32, total_length, buffer);
843
0
        if (errmsg)
844
0
          break;
845
0
        errmsg = insert_normal (cd, fields->f_u12_l, 0, 0, 5, 6, 32, total_length, buffer);
846
0
        if (errmsg)
847
0
          break;
848
0
      }
849
0
      break;
850
0
    case FRV_OPERAND_U16 :
851
0
      errmsg = insert_normal (cd, fields->f_u16, 0, 0, 15, 16, 32, total_length, buffer);
852
0
      break;
853
0
    case FRV_OPERAND_U6 :
854
0
      errmsg = insert_normal (cd, fields->f_u6, 0, 0, 5, 6, 32, total_length, buffer);
855
0
      break;
856
0
    case FRV_OPERAND_UHI16 :
857
0
      errmsg = insert_normal (cd, fields->f_u16, 0, 0, 15, 16, 32, total_length, buffer);
858
0
      break;
859
0
    case FRV_OPERAND_ULO16 :
860
0
      errmsg = insert_normal (cd, fields->f_u16, 0, 0, 15, 16, 32, total_length, buffer);
861
0
      break;
862
863
0
    default :
864
      /* xgettext:c-format */
865
0
      opcodes_error_handler
866
0
  (_("internal error: unrecognized field %d while building insn"),
867
0
   opindex);
868
0
      abort ();
869
0
  }
870
871
0
  return errmsg;
872
0
}
873
874
int frv_cgen_extract_operand
875
  (CGEN_CPU_DESC, int, CGEN_EXTRACT_INFO *, CGEN_INSN_INT, CGEN_FIELDS *, bfd_vma);
876
877
/* Main entry point for operand extraction.
878
   The result is <= 0 for error, >0 for success.
879
   ??? Actual values aren't well defined right now.
880
881
   This function is basically just a big switch statement.  Earlier versions
882
   used tables to look up the function to use, but
883
   - if the table contains both assembler and disassembler functions then
884
     the disassembler contains much of the assembler and vice-versa,
885
   - there's a lot of inlining possibilities as things grow,
886
   - using a switch statement avoids the function call overhead.
887
888
   This function could be moved into `print_insn_normal', but keeping it
889
   separate makes clear the interface between `print_insn_normal' and each of
890
   the handlers.  */
891
892
int
893
frv_cgen_extract_operand (CGEN_CPU_DESC cd,
894
           int opindex,
895
           CGEN_EXTRACT_INFO *ex_info,
896
           CGEN_INSN_INT insn_value,
897
           CGEN_FIELDS * fields,
898
           bfd_vma pc)
899
344k
{
900
  /* Assume success (for those operands that are nops).  */
901
344k
  int length = 1;
902
344k
  unsigned int total_length = CGEN_FIELDS_BITSIZE (fields);
903
904
344k
  switch (opindex)
905
344k
    {
906
5
    case FRV_OPERAND_A0 :
907
5
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 17, 1, 32, total_length, pc, & fields->f_A);
908
5
      break;
909
0
    case FRV_OPERAND_A1 :
910
0
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 17, 1, 32, total_length, pc, & fields->f_A);
911
0
      break;
912
245
    case FRV_OPERAND_ACC40SI :
913
245
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 17, 6, 32, total_length, pc, & fields->f_ACC40Si);
914
245
      break;
915
557
    case FRV_OPERAND_ACC40SK :
916
557
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 30, 6, 32, total_length, pc, & fields->f_ACC40Sk);
917
557
      break;
918
0
    case FRV_OPERAND_ACC40UI :
919
0
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 17, 6, 32, total_length, pc, & fields->f_ACC40Ui);
920
0
      break;
921
1.08k
    case FRV_OPERAND_ACC40UK :
922
1.08k
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 30, 6, 32, total_length, pc, & fields->f_ACC40Uk);
923
1.08k
      break;
924
3
    case FRV_OPERAND_ACCGI :
925
3
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 17, 6, 32, total_length, pc, & fields->f_ACCGi);
926
3
      break;
927
4
    case FRV_OPERAND_ACCGK :
928
4
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 30, 6, 32, total_length, pc, & fields->f_ACCGk);
929
4
      break;
930
11.2k
    case FRV_OPERAND_CCI :
931
11.2k
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 11, 3, 32, total_length, pc, & fields->f_CCi);
932
11.2k
      break;
933
33
    case FRV_OPERAND_CPRDOUBLEK :
934
33
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 30, 6, 32, total_length, pc, & fields->f_CPRk);
935
33
      break;
936
9.13k
    case FRV_OPERAND_CPRI :
937
9.13k
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 17, 6, 32, total_length, pc, & fields->f_CPRi);
938
9.13k
      break;
939
9.13k
    case FRV_OPERAND_CPRJ :
940
9.13k
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 5, 6, 32, total_length, pc, & fields->f_CPRj);
941
9.13k
      break;
942
9.18k
    case FRV_OPERAND_CPRK :
943
9.18k
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 30, 6, 32, total_length, pc, & fields->f_CPRk);
944
9.18k
      break;
945
0
    case FRV_OPERAND_CRI :
946
0
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 14, 3, 32, total_length, pc, & fields->f_CRi);
947
0
      break;
948
0
    case FRV_OPERAND_CRJ :
949
0
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 2, 3, 32, total_length, pc, & fields->f_CRj);
950
0
      break;
951
4
    case FRV_OPERAND_CRJ_FLOAT :
952
4
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 26, 2, 32, total_length, pc, & fields->f_CRj_float);
953
4
      break;
954
26
    case FRV_OPERAND_CRJ_INT :
955
26
      {
956
26
        long value;
957
26
        length = extract_normal (cd, ex_info, insn_value, 0, 0, 26, 2, 32, total_length, pc, & value);
958
26
        value = ((value) + (4));
959
26
        fields->f_CRj_int = value;
960
26
      }
961
26
      break;
962
0
    case FRV_OPERAND_CRK :
963
0
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 27, 3, 32, total_length, pc, & fields->f_CRk);
964
0
      break;
965
0
    case FRV_OPERAND_FCCI_1 :
966
0
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 11, 2, 32, total_length, pc, & fields->f_FCCi_1);
967
0
      break;
968
733
    case FRV_OPERAND_FCCI_2 :
969
733
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 26, 2, 32, total_length, pc, & fields->f_FCCi_2);
970
733
      break;
971
4
    case FRV_OPERAND_FCCI_3 :
972
4
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 1, 2, 32, total_length, pc, & fields->f_FCCi_3);
973
4
      break;
974
6
    case FRV_OPERAND_FCCK :
975
6
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 26, 2, 32, total_length, pc, & fields->f_FCCk);
976
6
      break;
977
80
    case FRV_OPERAND_FRDOUBLEI :
978
80
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 17, 6, 32, total_length, pc, & fields->f_FRi);
979
80
      break;
980
90
    case FRV_OPERAND_FRDOUBLEJ :
981
90
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 5, 6, 32, total_length, pc, & fields->f_FRj);
982
90
      break;
983
2.43k
    case FRV_OPERAND_FRDOUBLEK :
984
2.43k
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 30, 6, 32, total_length, pc, & fields->f_FRk);
985
2.43k
      break;
986
1.01k
    case FRV_OPERAND_FRI :
987
1.01k
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 17, 6, 32, total_length, pc, & fields->f_FRi);
988
1.01k
      break;
989
2.92k
    case FRV_OPERAND_FRINTI :
990
2.92k
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 17, 6, 32, total_length, pc, & fields->f_FRi);
991
2.92k
      break;
992
903
    case FRV_OPERAND_FRINTIEVEN :
993
903
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 17, 6, 32, total_length, pc, & fields->f_FRi);
994
903
      break;
995
2.00k
    case FRV_OPERAND_FRINTJ :
996
2.00k
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 5, 6, 32, total_length, pc, & fields->f_FRj);
997
2.00k
      break;
998
893
    case FRV_OPERAND_FRINTJEVEN :
999
893
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 5, 6, 32, total_length, pc, & fields->f_FRj);
1000
893
      break;
1001
8.22k
    case FRV_OPERAND_FRINTK :
1002
8.22k
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 30, 6, 32, total_length, pc, & fields->f_FRk);
1003
8.22k
      break;
1004
1.32k
    case FRV_OPERAND_FRINTKEVEN :
1005
1.32k
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 30, 6, 32, total_length, pc, & fields->f_FRk);
1006
1.32k
      break;
1007
1.01k
    case FRV_OPERAND_FRJ :
1008
1.01k
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 5, 6, 32, total_length, pc, & fields->f_FRj);
1009
1.01k
      break;
1010
1.00k
    case FRV_OPERAND_FRK :
1011
1.00k
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 30, 6, 32, total_length, pc, & fields->f_FRk);
1012
1.00k
      break;
1013
21
    case FRV_OPERAND_FRKHI :
1014
21
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 30, 6, 32, total_length, pc, & fields->f_FRk);
1015
21
      break;
1016
9
    case FRV_OPERAND_FRKLO :
1017
9
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 30, 6, 32, total_length, pc, & fields->f_FRk);
1018
9
      break;
1019
5.23k
    case FRV_OPERAND_GRDOUBLEK :
1020
5.23k
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 30, 6, 32, total_length, pc, & fields->f_GRk);
1021
5.23k
      break;
1022
58.9k
    case FRV_OPERAND_GRI :
1023
58.9k
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 17, 6, 32, total_length, pc, & fields->f_GRi);
1024
58.9k
      break;
1025
23.8k
    case FRV_OPERAND_GRJ :
1026
23.8k
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 5, 6, 32, total_length, pc, & fields->f_GRj);
1027
23.8k
      break;
1028
43.0k
    case FRV_OPERAND_GRK :
1029
43.0k
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 30, 6, 32, total_length, pc, & fields->f_GRk);
1030
43.0k
      break;
1031
634
    case FRV_OPERAND_GRKHI :
1032
634
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 30, 6, 32, total_length, pc, & fields->f_GRk);
1033
634
      break;
1034
358
    case FRV_OPERAND_GRKLO :
1035
358
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 30, 6, 32, total_length, pc, & fields->f_GRk);
1036
358
      break;
1037
10.6k
    case FRV_OPERAND_ICCI_1 :
1038
10.6k
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 11, 2, 32, total_length, pc, & fields->f_ICCi_1);
1039
10.6k
      break;
1040
1.11k
    case FRV_OPERAND_ICCI_2 :
1041
1.11k
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 26, 2, 32, total_length, pc, & fields->f_ICCi_2);
1042
1.11k
      break;
1043
14
    case FRV_OPERAND_ICCI_3 :
1044
14
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 1, 2, 32, total_length, pc, & fields->f_ICCi_3);
1045
14
      break;
1046
0
    case FRV_OPERAND_LI :
1047
0
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 25, 1, 32, total_length, pc, & fields->f_LI);
1048
0
      break;
1049
13
    case FRV_OPERAND_LRAD :
1050
13
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 4, 1, 32, total_length, pc, & fields->f_LRAD);
1051
13
      break;
1052
13
    case FRV_OPERAND_LRAE :
1053
13
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 5, 1, 32, total_length, pc, & fields->f_LRAE);
1054
13
      break;
1055
13
    case FRV_OPERAND_LRAS :
1056
13
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 3, 1, 32, total_length, pc, & fields->f_LRAS);
1057
13
      break;
1058
5
    case FRV_OPERAND_TLBPRL :
1059
5
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 25, 1, 32, total_length, pc, & fields->f_TLBPRL);
1060
5
      break;
1061
5
    case FRV_OPERAND_TLBPROPX :
1062
5
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 28, 3, 32, total_length, pc, & fields->f_TLBPRopx);
1063
5
      break;
1064
0
    case FRV_OPERAND_AE :
1065
0
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 25, 1, 32, total_length, pc, & fields->f_ae);
1066
0
      break;
1067
6
    case FRV_OPERAND_CALLANN :
1068
6
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 0, 0, 32, total_length, pc, & fields->f_reloc_ann);
1069
6
      break;
1070
0
    case FRV_OPERAND_CCOND :
1071
0
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 12, 1, 32, total_length, pc, & fields->f_ccond);
1072
0
      break;
1073
11.2k
    case FRV_OPERAND_COND :
1074
11.2k
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 8, 1, 32, total_length, pc, & fields->f_cond);
1075
11.2k
      break;
1076
19.8k
    case FRV_OPERAND_D12 :
1077
19.8k
      length = extract_normal (cd, ex_info, insn_value, 0|(1<<CGEN_IFLD_SIGNED), 0, 11, 12, 32, total_length, pc, & fields->f_d12);
1078
19.8k
      break;
1079
8
    case FRV_OPERAND_DEBUG :
1080
8
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 25, 1, 32, total_length, pc, & fields->f_debug);
1081
8
      break;
1082
0
    case FRV_OPERAND_EIR :
1083
0
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 17, 6, 32, total_length, pc, & fields->f_eir);
1084
0
      break;
1085
578
    case FRV_OPERAND_HINT :
1086
578
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 17, 2, 32, total_length, pc, & fields->f_hint);
1087
578
      break;
1088
44
    case FRV_OPERAND_HINT_NOT_TAKEN :
1089
44
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 17, 2, 32, total_length, pc, & fields->f_hint);
1090
44
      break;
1091
4
    case FRV_OPERAND_HINT_TAKEN :
1092
4
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 17, 2, 32, total_length, pc, & fields->f_hint);
1093
4
      break;
1094
582
    case FRV_OPERAND_LABEL16 :
1095
582
      {
1096
582
        long value;
1097
582
        length = extract_normal (cd, ex_info, insn_value, 0|(1<<CGEN_IFLD_SIGNED)|(1<<CGEN_IFLD_PCREL_ADDR), 0, 15, 16, 32, total_length, pc, & value);
1098
582
        value = ((((value) * (4))) + (pc));
1099
582
        fields->f_label16 = value;
1100
582
      }
1101
582
      break;
1102
758
    case FRV_OPERAND_LABEL24 :
1103
758
      {
1104
758
        length = extract_normal (cd, ex_info, insn_value, 0|(1<<CGEN_IFLD_SIGNED), 0, 30, 6, 32, total_length, pc, & fields->f_labelH6);
1105
758
        if (length <= 0) break;
1106
758
        length = extract_normal (cd, ex_info, insn_value, 0, 0, 17, 18, 32, total_length, pc, & fields->f_labelL18);
1107
758
        if (length <= 0) break;
1108
758
{
1109
758
  FLD (f_label24) = ((((((((FLD (f_labelH6)) * (((1) << (18))))) | (FLD (f_labelL18)))) * (4))) + (pc));
1110
758
}
1111
758
      }
1112
0
      break;
1113
78
    case FRV_OPERAND_LDANN :
1114
78
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 0, 0, 32, total_length, pc, & fields->f_reloc_ann);
1115
78
      break;
1116
7
    case FRV_OPERAND_LDDANN :
1117
7
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 0, 0, 32, total_length, pc, & fields->f_reloc_ann);
1118
7
      break;
1119
13
    case FRV_OPERAND_LOCK :
1120
13
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 25, 1, 32, total_length, pc, & fields->f_lock);
1121
13
      break;
1122
76.5k
    case FRV_OPERAND_PACK :
1123
76.5k
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 31, 1, 32, total_length, pc, & fields->f_pack);
1124
76.5k
      break;
1125
6.62k
    case FRV_OPERAND_S10 :
1126
6.62k
      length = extract_normal (cd, ex_info, insn_value, 0|(1<<CGEN_IFLD_SIGNED), 0, 9, 10, 32, total_length, pc, & fields->f_s10);
1127
6.62k
      break;
1128
8.73k
    case FRV_OPERAND_S12 :
1129
8.73k
      length = extract_normal (cd, ex_info, insn_value, 0|(1<<CGEN_IFLD_SIGNED), 0, 11, 12, 32, total_length, pc, & fields->f_d12);
1130
8.73k
      break;
1131
0
    case FRV_OPERAND_S16 :
1132
0
      length = extract_normal (cd, ex_info, insn_value, 0|(1<<CGEN_IFLD_SIGNED), 0, 15, 16, 32, total_length, pc, & fields->f_s16);
1133
0
      break;
1134
16
    case FRV_OPERAND_S5 :
1135
16
      length = extract_normal (cd, ex_info, insn_value, 0|(1<<CGEN_IFLD_SIGNED), 0, 4, 5, 32, total_length, pc, & fields->f_s5);
1136
16
      break;
1137
226
    case FRV_OPERAND_S6 :
1138
226
      length = extract_normal (cd, ex_info, insn_value, 0|(1<<CGEN_IFLD_SIGNED), 0, 5, 6, 32, total_length, pc, & fields->f_s6);
1139
226
      break;
1140
9.13k
    case FRV_OPERAND_S6_1 :
1141
9.13k
      length = extract_normal (cd, ex_info, insn_value, 0|(1<<CGEN_IFLD_SIGNED), 0, 11, 6, 32, total_length, pc, & fields->f_s6_1);
1142
9.13k
      break;
1143
592
    case FRV_OPERAND_SLO16 :
1144
592
      length = extract_normal (cd, ex_info, insn_value, 0|(1<<CGEN_IFLD_SIGNED), 0, 15, 16, 32, total_length, pc, & fields->f_s16);
1145
592
      break;
1146
17
    case FRV_OPERAND_SPR :
1147
17
      {
1148
17
        length = extract_normal (cd, ex_info, insn_value, 0, 0, 30, 6, 32, total_length, pc, & fields->f_spr_h);
1149
17
        if (length <= 0) break;
1150
17
        length = extract_normal (cd, ex_info, insn_value, 0, 0, 17, 6, 32, total_length, pc, & fields->f_spr_l);
1151
17
        if (length <= 0) break;
1152
17
{
1153
17
  FLD (f_spr) = ((((FLD (f_spr_h)) << (6))) | (FLD (f_spr_l)));
1154
17
}
1155
17
      }
1156
0
      break;
1157
119
    case FRV_OPERAND_U12 :
1158
119
      {
1159
119
        length = extract_normal (cd, ex_info, insn_value, 0|(1<<CGEN_IFLD_SIGNED), 0, 17, 6, 32, total_length, pc, & fields->f_u12_h);
1160
119
        if (length <= 0) break;
1161
119
        length = extract_normal (cd, ex_info, insn_value, 0, 0, 5, 6, 32, total_length, pc, & fields->f_u12_l);
1162
119
        if (length <= 0) break;
1163
119
{
1164
119
  FLD (f_u12) = ((((FLD (f_u12_h)) * (64))) | (FLD (f_u12_l)));
1165
119
}
1166
119
      }
1167
0
      break;
1168
0
    case FRV_OPERAND_U16 :
1169
0
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 15, 16, 32, total_length, pc, & fields->f_u16);
1170
0
      break;
1171
931
    case FRV_OPERAND_U6 :
1172
931
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 5, 6, 32, total_length, pc, & fields->f_u6);
1173
931
      break;
1174
634
    case FRV_OPERAND_UHI16 :
1175
634
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 15, 16, 32, total_length, pc, & fields->f_u16);
1176
634
      break;
1177
358
    case FRV_OPERAND_ULO16 :
1178
358
      length = extract_normal (cd, ex_info, insn_value, 0, 0, 15, 16, 32, total_length, pc, & fields->f_u16);
1179
358
      break;
1180
1181
0
    default :
1182
      /* xgettext:c-format */
1183
0
      opcodes_error_handler
1184
0
  (_("internal error: unrecognized field %d while decoding insn"),
1185
0
   opindex);
1186
0
      abort ();
1187
344k
    }
1188
1189
344k
  return length;
1190
344k
}
1191
1192
cgen_insert_fn * const frv_cgen_insert_handlers[] =
1193
{
1194
  insert_insn_normal,
1195
};
1196
1197
cgen_extract_fn * const frv_cgen_extract_handlers[] =
1198
{
1199
  extract_insn_normal,
1200
};
1201
1202
int frv_cgen_get_int_operand     (CGEN_CPU_DESC, int, const CGEN_FIELDS *);
1203
bfd_vma frv_cgen_get_vma_operand (CGEN_CPU_DESC, int, const CGEN_FIELDS *);
1204
1205
/* Getting values from cgen_fields is handled by a collection of functions.
1206
   They are distinguished by the type of the VALUE argument they return.
1207
   TODO: floating point, inlining support, remove cases where result type
1208
   not appropriate.  */
1209
1210
int
1211
frv_cgen_get_int_operand (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
1212
           int opindex,
1213
           const CGEN_FIELDS * fields)
1214
0
{
1215
0
  int value;
1216
1217
0
  switch (opindex)
1218
0
    {
1219
0
    case FRV_OPERAND_A0 :
1220
0
      value = fields->f_A;
1221
0
      break;
1222
0
    case FRV_OPERAND_A1 :
1223
0
      value = fields->f_A;
1224
0
      break;
1225
0
    case FRV_OPERAND_ACC40SI :
1226
0
      value = fields->f_ACC40Si;
1227
0
      break;
1228
0
    case FRV_OPERAND_ACC40SK :
1229
0
      value = fields->f_ACC40Sk;
1230
0
      break;
1231
0
    case FRV_OPERAND_ACC40UI :
1232
0
      value = fields->f_ACC40Ui;
1233
0
      break;
1234
0
    case FRV_OPERAND_ACC40UK :
1235
0
      value = fields->f_ACC40Uk;
1236
0
      break;
1237
0
    case FRV_OPERAND_ACCGI :
1238
0
      value = fields->f_ACCGi;
1239
0
      break;
1240
0
    case FRV_OPERAND_ACCGK :
1241
0
      value = fields->f_ACCGk;
1242
0
      break;
1243
0
    case FRV_OPERAND_CCI :
1244
0
      value = fields->f_CCi;
1245
0
      break;
1246
0
    case FRV_OPERAND_CPRDOUBLEK :
1247
0
      value = fields->f_CPRk;
1248
0
      break;
1249
0
    case FRV_OPERAND_CPRI :
1250
0
      value = fields->f_CPRi;
1251
0
      break;
1252
0
    case FRV_OPERAND_CPRJ :
1253
0
      value = fields->f_CPRj;
1254
0
      break;
1255
0
    case FRV_OPERAND_CPRK :
1256
0
      value = fields->f_CPRk;
1257
0
      break;
1258
0
    case FRV_OPERAND_CRI :
1259
0
      value = fields->f_CRi;
1260
0
      break;
1261
0
    case FRV_OPERAND_CRJ :
1262
0
      value = fields->f_CRj;
1263
0
      break;
1264
0
    case FRV_OPERAND_CRJ_FLOAT :
1265
0
      value = fields->f_CRj_float;
1266
0
      break;
1267
0
    case FRV_OPERAND_CRJ_INT :
1268
0
      value = fields->f_CRj_int;
1269
0
      break;
1270
0
    case FRV_OPERAND_CRK :
1271
0
      value = fields->f_CRk;
1272
0
      break;
1273
0
    case FRV_OPERAND_FCCI_1 :
1274
0
      value = fields->f_FCCi_1;
1275
0
      break;
1276
0
    case FRV_OPERAND_FCCI_2 :
1277
0
      value = fields->f_FCCi_2;
1278
0
      break;
1279
0
    case FRV_OPERAND_FCCI_3 :
1280
0
      value = fields->f_FCCi_3;
1281
0
      break;
1282
0
    case FRV_OPERAND_FCCK :
1283
0
      value = fields->f_FCCk;
1284
0
      break;
1285
0
    case FRV_OPERAND_FRDOUBLEI :
1286
0
      value = fields->f_FRi;
1287
0
      break;
1288
0
    case FRV_OPERAND_FRDOUBLEJ :
1289
0
      value = fields->f_FRj;
1290
0
      break;
1291
0
    case FRV_OPERAND_FRDOUBLEK :
1292
0
      value = fields->f_FRk;
1293
0
      break;
1294
0
    case FRV_OPERAND_FRI :
1295
0
      value = fields->f_FRi;
1296
0
      break;
1297
0
    case FRV_OPERAND_FRINTI :
1298
0
      value = fields->f_FRi;
1299
0
      break;
1300
0
    case FRV_OPERAND_FRINTIEVEN :
1301
0
      value = fields->f_FRi;
1302
0
      break;
1303
0
    case FRV_OPERAND_FRINTJ :
1304
0
      value = fields->f_FRj;
1305
0
      break;
1306
0
    case FRV_OPERAND_FRINTJEVEN :
1307
0
      value = fields->f_FRj;
1308
0
      break;
1309
0
    case FRV_OPERAND_FRINTK :
1310
0
      value = fields->f_FRk;
1311
0
      break;
1312
0
    case FRV_OPERAND_FRINTKEVEN :
1313
0
      value = fields->f_FRk;
1314
0
      break;
1315
0
    case FRV_OPERAND_FRJ :
1316
0
      value = fields->f_FRj;
1317
0
      break;
1318
0
    case FRV_OPERAND_FRK :
1319
0
      value = fields->f_FRk;
1320
0
      break;
1321
0
    case FRV_OPERAND_FRKHI :
1322
0
      value = fields->f_FRk;
1323
0
      break;
1324
0
    case FRV_OPERAND_FRKLO :
1325
0
      value = fields->f_FRk;
1326
0
      break;
1327
0
    case FRV_OPERAND_GRDOUBLEK :
1328
0
      value = fields->f_GRk;
1329
0
      break;
1330
0
    case FRV_OPERAND_GRI :
1331
0
      value = fields->f_GRi;
1332
0
      break;
1333
0
    case FRV_OPERAND_GRJ :
1334
0
      value = fields->f_GRj;
1335
0
      break;
1336
0
    case FRV_OPERAND_GRK :
1337
0
      value = fields->f_GRk;
1338
0
      break;
1339
0
    case FRV_OPERAND_GRKHI :
1340
0
      value = fields->f_GRk;
1341
0
      break;
1342
0
    case FRV_OPERAND_GRKLO :
1343
0
      value = fields->f_GRk;
1344
0
      break;
1345
0
    case FRV_OPERAND_ICCI_1 :
1346
0
      value = fields->f_ICCi_1;
1347
0
      break;
1348
0
    case FRV_OPERAND_ICCI_2 :
1349
0
      value = fields->f_ICCi_2;
1350
0
      break;
1351
0
    case FRV_OPERAND_ICCI_3 :
1352
0
      value = fields->f_ICCi_3;
1353
0
      break;
1354
0
    case FRV_OPERAND_LI :
1355
0
      value = fields->f_LI;
1356
0
      break;
1357
0
    case FRV_OPERAND_LRAD :
1358
0
      value = fields->f_LRAD;
1359
0
      break;
1360
0
    case FRV_OPERAND_LRAE :
1361
0
      value = fields->f_LRAE;
1362
0
      break;
1363
0
    case FRV_OPERAND_LRAS :
1364
0
      value = fields->f_LRAS;
1365
0
      break;
1366
0
    case FRV_OPERAND_TLBPRL :
1367
0
      value = fields->f_TLBPRL;
1368
0
      break;
1369
0
    case FRV_OPERAND_TLBPROPX :
1370
0
      value = fields->f_TLBPRopx;
1371
0
      break;
1372
0
    case FRV_OPERAND_AE :
1373
0
      value = fields->f_ae;
1374
0
      break;
1375
0
    case FRV_OPERAND_CALLANN :
1376
0
      value = fields->f_reloc_ann;
1377
0
      break;
1378
0
    case FRV_OPERAND_CCOND :
1379
0
      value = fields->f_ccond;
1380
0
      break;
1381
0
    case FRV_OPERAND_COND :
1382
0
      value = fields->f_cond;
1383
0
      break;
1384
0
    case FRV_OPERAND_D12 :
1385
0
      value = fields->f_d12;
1386
0
      break;
1387
0
    case FRV_OPERAND_DEBUG :
1388
0
      value = fields->f_debug;
1389
0
      break;
1390
0
    case FRV_OPERAND_EIR :
1391
0
      value = fields->f_eir;
1392
0
      break;
1393
0
    case FRV_OPERAND_HINT :
1394
0
      value = fields->f_hint;
1395
0
      break;
1396
0
    case FRV_OPERAND_HINT_NOT_TAKEN :
1397
0
      value = fields->f_hint;
1398
0
      break;
1399
0
    case FRV_OPERAND_HINT_TAKEN :
1400
0
      value = fields->f_hint;
1401
0
      break;
1402
0
    case FRV_OPERAND_LABEL16 :
1403
0
      value = fields->f_label16;
1404
0
      break;
1405
0
    case FRV_OPERAND_LABEL24 :
1406
0
      value = fields->f_label24;
1407
0
      break;
1408
0
    case FRV_OPERAND_LDANN :
1409
0
      value = fields->f_reloc_ann;
1410
0
      break;
1411
0
    case FRV_OPERAND_LDDANN :
1412
0
      value = fields->f_reloc_ann;
1413
0
      break;
1414
0
    case FRV_OPERAND_LOCK :
1415
0
      value = fields->f_lock;
1416
0
      break;
1417
0
    case FRV_OPERAND_PACK :
1418
0
      value = fields->f_pack;
1419
0
      break;
1420
0
    case FRV_OPERAND_S10 :
1421
0
      value = fields->f_s10;
1422
0
      break;
1423
0
    case FRV_OPERAND_S12 :
1424
0
      value = fields->f_d12;
1425
0
      break;
1426
0
    case FRV_OPERAND_S16 :
1427
0
      value = fields->f_s16;
1428
0
      break;
1429
0
    case FRV_OPERAND_S5 :
1430
0
      value = fields->f_s5;
1431
0
      break;
1432
0
    case FRV_OPERAND_S6 :
1433
0
      value = fields->f_s6;
1434
0
      break;
1435
0
    case FRV_OPERAND_S6_1 :
1436
0
      value = fields->f_s6_1;
1437
0
      break;
1438
0
    case FRV_OPERAND_SLO16 :
1439
0
      value = fields->f_s16;
1440
0
      break;
1441
0
    case FRV_OPERAND_SPR :
1442
0
      value = fields->f_spr;
1443
0
      break;
1444
0
    case FRV_OPERAND_U12 :
1445
0
      value = fields->f_u12;
1446
0
      break;
1447
0
    case FRV_OPERAND_U16 :
1448
0
      value = fields->f_u16;
1449
0
      break;
1450
0
    case FRV_OPERAND_U6 :
1451
0
      value = fields->f_u6;
1452
0
      break;
1453
0
    case FRV_OPERAND_UHI16 :
1454
0
      value = fields->f_u16;
1455
0
      break;
1456
0
    case FRV_OPERAND_ULO16 :
1457
0
      value = fields->f_u16;
1458
0
      break;
1459
1460
0
    default :
1461
      /* xgettext:c-format */
1462
0
      opcodes_error_handler
1463
0
  (_("internal error: unrecognized field %d while getting int operand"),
1464
0
   opindex);
1465
0
      abort ();
1466
0
  }
1467
1468
0
  return value;
1469
0
}
1470
1471
bfd_vma
1472
frv_cgen_get_vma_operand (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
1473
           int opindex,
1474
           const CGEN_FIELDS * fields)
1475
0
{
1476
0
  bfd_vma value;
1477
1478
0
  switch (opindex)
1479
0
    {
1480
0
    case FRV_OPERAND_A0 :
1481
0
      value = fields->f_A;
1482
0
      break;
1483
0
    case FRV_OPERAND_A1 :
1484
0
      value = fields->f_A;
1485
0
      break;
1486
0
    case FRV_OPERAND_ACC40SI :
1487
0
      value = fields->f_ACC40Si;
1488
0
      break;
1489
0
    case FRV_OPERAND_ACC40SK :
1490
0
      value = fields->f_ACC40Sk;
1491
0
      break;
1492
0
    case FRV_OPERAND_ACC40UI :
1493
0
      value = fields->f_ACC40Ui;
1494
0
      break;
1495
0
    case FRV_OPERAND_ACC40UK :
1496
0
      value = fields->f_ACC40Uk;
1497
0
      break;
1498
0
    case FRV_OPERAND_ACCGI :
1499
0
      value = fields->f_ACCGi;
1500
0
      break;
1501
0
    case FRV_OPERAND_ACCGK :
1502
0
      value = fields->f_ACCGk;
1503
0
      break;
1504
0
    case FRV_OPERAND_CCI :
1505
0
      value = fields->f_CCi;
1506
0
      break;
1507
0
    case FRV_OPERAND_CPRDOUBLEK :
1508
0
      value = fields->f_CPRk;
1509
0
      break;
1510
0
    case FRV_OPERAND_CPRI :
1511
0
      value = fields->f_CPRi;
1512
0
      break;
1513
0
    case FRV_OPERAND_CPRJ :
1514
0
      value = fields->f_CPRj;
1515
0
      break;
1516
0
    case FRV_OPERAND_CPRK :
1517
0
      value = fields->f_CPRk;
1518
0
      break;
1519
0
    case FRV_OPERAND_CRI :
1520
0
      value = fields->f_CRi;
1521
0
      break;
1522
0
    case FRV_OPERAND_CRJ :
1523
0
      value = fields->f_CRj;
1524
0
      break;
1525
0
    case FRV_OPERAND_CRJ_FLOAT :
1526
0
      value = fields->f_CRj_float;
1527
0
      break;
1528
0
    case FRV_OPERAND_CRJ_INT :
1529
0
      value = fields->f_CRj_int;
1530
0
      break;
1531
0
    case FRV_OPERAND_CRK :
1532
0
      value = fields->f_CRk;
1533
0
      break;
1534
0
    case FRV_OPERAND_FCCI_1 :
1535
0
      value = fields->f_FCCi_1;
1536
0
      break;
1537
0
    case FRV_OPERAND_FCCI_2 :
1538
0
      value = fields->f_FCCi_2;
1539
0
      break;
1540
0
    case FRV_OPERAND_FCCI_3 :
1541
0
      value = fields->f_FCCi_3;
1542
0
      break;
1543
0
    case FRV_OPERAND_FCCK :
1544
0
      value = fields->f_FCCk;
1545
0
      break;
1546
0
    case FRV_OPERAND_FRDOUBLEI :
1547
0
      value = fields->f_FRi;
1548
0
      break;
1549
0
    case FRV_OPERAND_FRDOUBLEJ :
1550
0
      value = fields->f_FRj;
1551
0
      break;
1552
0
    case FRV_OPERAND_FRDOUBLEK :
1553
0
      value = fields->f_FRk;
1554
0
      break;
1555
0
    case FRV_OPERAND_FRI :
1556
0
      value = fields->f_FRi;
1557
0
      break;
1558
0
    case FRV_OPERAND_FRINTI :
1559
0
      value = fields->f_FRi;
1560
0
      break;
1561
0
    case FRV_OPERAND_FRINTIEVEN :
1562
0
      value = fields->f_FRi;
1563
0
      break;
1564
0
    case FRV_OPERAND_FRINTJ :
1565
0
      value = fields->f_FRj;
1566
0
      break;
1567
0
    case FRV_OPERAND_FRINTJEVEN :
1568
0
      value = fields->f_FRj;
1569
0
      break;
1570
0
    case FRV_OPERAND_FRINTK :
1571
0
      value = fields->f_FRk;
1572
0
      break;
1573
0
    case FRV_OPERAND_FRINTKEVEN :
1574
0
      value = fields->f_FRk;
1575
0
      break;
1576
0
    case FRV_OPERAND_FRJ :
1577
0
      value = fields->f_FRj;
1578
0
      break;
1579
0
    case FRV_OPERAND_FRK :
1580
0
      value = fields->f_FRk;
1581
0
      break;
1582
0
    case FRV_OPERAND_FRKHI :
1583
0
      value = fields->f_FRk;
1584
0
      break;
1585
0
    case FRV_OPERAND_FRKLO :
1586
0
      value = fields->f_FRk;
1587
0
      break;
1588
0
    case FRV_OPERAND_GRDOUBLEK :
1589
0
      value = fields->f_GRk;
1590
0
      break;
1591
0
    case FRV_OPERAND_GRI :
1592
0
      value = fields->f_GRi;
1593
0
      break;
1594
0
    case FRV_OPERAND_GRJ :
1595
0
      value = fields->f_GRj;
1596
0
      break;
1597
0
    case FRV_OPERAND_GRK :
1598
0
      value = fields->f_GRk;
1599
0
      break;
1600
0
    case FRV_OPERAND_GRKHI :
1601
0
      value = fields->f_GRk;
1602
0
      break;
1603
0
    case FRV_OPERAND_GRKLO :
1604
0
      value = fields->f_GRk;
1605
0
      break;
1606
0
    case FRV_OPERAND_ICCI_1 :
1607
0
      value = fields->f_ICCi_1;
1608
0
      break;
1609
0
    case FRV_OPERAND_ICCI_2 :
1610
0
      value = fields->f_ICCi_2;
1611
0
      break;
1612
0
    case FRV_OPERAND_ICCI_3 :
1613
0
      value = fields->f_ICCi_3;
1614
0
      break;
1615
0
    case FRV_OPERAND_LI :
1616
0
      value = fields->f_LI;
1617
0
      break;
1618
0
    case FRV_OPERAND_LRAD :
1619
0
      value = fields->f_LRAD;
1620
0
      break;
1621
0
    case FRV_OPERAND_LRAE :
1622
0
      value = fields->f_LRAE;
1623
0
      break;
1624
0
    case FRV_OPERAND_LRAS :
1625
0
      value = fields->f_LRAS;
1626
0
      break;
1627
0
    case FRV_OPERAND_TLBPRL :
1628
0
      value = fields->f_TLBPRL;
1629
0
      break;
1630
0
    case FRV_OPERAND_TLBPROPX :
1631
0
      value = fields->f_TLBPRopx;
1632
0
      break;
1633
0
    case FRV_OPERAND_AE :
1634
0
      value = fields->f_ae;
1635
0
      break;
1636
0
    case FRV_OPERAND_CALLANN :
1637
0
      value = fields->f_reloc_ann;
1638
0
      break;
1639
0
    case FRV_OPERAND_CCOND :
1640
0
      value = fields->f_ccond;
1641
0
      break;
1642
0
    case FRV_OPERAND_COND :
1643
0
      value = fields->f_cond;
1644
0
      break;
1645
0
    case FRV_OPERAND_D12 :
1646
0
      value = fields->f_d12;
1647
0
      break;
1648
0
    case FRV_OPERAND_DEBUG :
1649
0
      value = fields->f_debug;
1650
0
      break;
1651
0
    case FRV_OPERAND_EIR :
1652
0
      value = fields->f_eir;
1653
0
      break;
1654
0
    case FRV_OPERAND_HINT :
1655
0
      value = fields->f_hint;
1656
0
      break;
1657
0
    case FRV_OPERAND_HINT_NOT_TAKEN :
1658
0
      value = fields->f_hint;
1659
0
      break;
1660
0
    case FRV_OPERAND_HINT_TAKEN :
1661
0
      value = fields->f_hint;
1662
0
      break;
1663
0
    case FRV_OPERAND_LABEL16 :
1664
0
      value = fields->f_label16;
1665
0
      break;
1666
0
    case FRV_OPERAND_LABEL24 :
1667
0
      value = fields->f_label24;
1668
0
      break;
1669
0
    case FRV_OPERAND_LDANN :
1670
0
      value = fields->f_reloc_ann;
1671
0
      break;
1672
0
    case FRV_OPERAND_LDDANN :
1673
0
      value = fields->f_reloc_ann;
1674
0
      break;
1675
0
    case FRV_OPERAND_LOCK :
1676
0
      value = fields->f_lock;
1677
0
      break;
1678
0
    case FRV_OPERAND_PACK :
1679
0
      value = fields->f_pack;
1680
0
      break;
1681
0
    case FRV_OPERAND_S10 :
1682
0
      value = fields->f_s10;
1683
0
      break;
1684
0
    case FRV_OPERAND_S12 :
1685
0
      value = fields->f_d12;
1686
0
      break;
1687
0
    case FRV_OPERAND_S16 :
1688
0
      value = fields->f_s16;
1689
0
      break;
1690
0
    case FRV_OPERAND_S5 :
1691
0
      value = fields->f_s5;
1692
0
      break;
1693
0
    case FRV_OPERAND_S6 :
1694
0
      value = fields->f_s6;
1695
0
      break;
1696
0
    case FRV_OPERAND_S6_1 :
1697
0
      value = fields->f_s6_1;
1698
0
      break;
1699
0
    case FRV_OPERAND_SLO16 :
1700
0
      value = fields->f_s16;
1701
0
      break;
1702
0
    case FRV_OPERAND_SPR :
1703
0
      value = fields->f_spr;
1704
0
      break;
1705
0
    case FRV_OPERAND_U12 :
1706
0
      value = fields->f_u12;
1707
0
      break;
1708
0
    case FRV_OPERAND_U16 :
1709
0
      value = fields->f_u16;
1710
0
      break;
1711
0
    case FRV_OPERAND_U6 :
1712
0
      value = fields->f_u6;
1713
0
      break;
1714
0
    case FRV_OPERAND_UHI16 :
1715
0
      value = fields->f_u16;
1716
0
      break;
1717
0
    case FRV_OPERAND_ULO16 :
1718
0
      value = fields->f_u16;
1719
0
      break;
1720
1721
0
    default :
1722
      /* xgettext:c-format */
1723
0
      opcodes_error_handler
1724
0
  (_("internal error: unrecognized field %d while getting vma operand"),
1725
0
   opindex);
1726
0
      abort ();
1727
0
  }
1728
1729
0
  return value;
1730
0
}
1731
1732
void frv_cgen_set_int_operand  (CGEN_CPU_DESC, int, CGEN_FIELDS *, int);
1733
void frv_cgen_set_vma_operand  (CGEN_CPU_DESC, int, CGEN_FIELDS *, bfd_vma);
1734
1735
/* Stuffing values in cgen_fields is handled by a collection of functions.
1736
   They are distinguished by the type of the VALUE argument they accept.
1737
   TODO: floating point, inlining support, remove cases where argument type
1738
   not appropriate.  */
1739
1740
void
1741
frv_cgen_set_int_operand (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
1742
           int opindex,
1743
           CGEN_FIELDS * fields,
1744
           int value)
1745
0
{
1746
0
  switch (opindex)
1747
0
    {
1748
0
    case FRV_OPERAND_A0 :
1749
0
      fields->f_A = value;
1750
0
      break;
1751
0
    case FRV_OPERAND_A1 :
1752
0
      fields->f_A = value;
1753
0
      break;
1754
0
    case FRV_OPERAND_ACC40SI :
1755
0
      fields->f_ACC40Si = value;
1756
0
      break;
1757
0
    case FRV_OPERAND_ACC40SK :
1758
0
      fields->f_ACC40Sk = value;
1759
0
      break;
1760
0
    case FRV_OPERAND_ACC40UI :
1761
0
      fields->f_ACC40Ui = value;
1762
0
      break;
1763
0
    case FRV_OPERAND_ACC40UK :
1764
0
      fields->f_ACC40Uk = value;
1765
0
      break;
1766
0
    case FRV_OPERAND_ACCGI :
1767
0
      fields->f_ACCGi = value;
1768
0
      break;
1769
0
    case FRV_OPERAND_ACCGK :
1770
0
      fields->f_ACCGk = value;
1771
0
      break;
1772
0
    case FRV_OPERAND_CCI :
1773
0
      fields->f_CCi = value;
1774
0
      break;
1775
0
    case FRV_OPERAND_CPRDOUBLEK :
1776
0
      fields->f_CPRk = value;
1777
0
      break;
1778
0
    case FRV_OPERAND_CPRI :
1779
0
      fields->f_CPRi = value;
1780
0
      break;
1781
0
    case FRV_OPERAND_CPRJ :
1782
0
      fields->f_CPRj = value;
1783
0
      break;
1784
0
    case FRV_OPERAND_CPRK :
1785
0
      fields->f_CPRk = value;
1786
0
      break;
1787
0
    case FRV_OPERAND_CRI :
1788
0
      fields->f_CRi = value;
1789
0
      break;
1790
0
    case FRV_OPERAND_CRJ :
1791
0
      fields->f_CRj = value;
1792
0
      break;
1793
0
    case FRV_OPERAND_CRJ_FLOAT :
1794
0
      fields->f_CRj_float = value;
1795
0
      break;
1796
0
    case FRV_OPERAND_CRJ_INT :
1797
0
      fields->f_CRj_int = value;
1798
0
      break;
1799
0
    case FRV_OPERAND_CRK :
1800
0
      fields->f_CRk = value;
1801
0
      break;
1802
0
    case FRV_OPERAND_FCCI_1 :
1803
0
      fields->f_FCCi_1 = value;
1804
0
      break;
1805
0
    case FRV_OPERAND_FCCI_2 :
1806
0
      fields->f_FCCi_2 = value;
1807
0
      break;
1808
0
    case FRV_OPERAND_FCCI_3 :
1809
0
      fields->f_FCCi_3 = value;
1810
0
      break;
1811
0
    case FRV_OPERAND_FCCK :
1812
0
      fields->f_FCCk = value;
1813
0
      break;
1814
0
    case FRV_OPERAND_FRDOUBLEI :
1815
0
      fields->f_FRi = value;
1816
0
      break;
1817
0
    case FRV_OPERAND_FRDOUBLEJ :
1818
0
      fields->f_FRj = value;
1819
0
      break;
1820
0
    case FRV_OPERAND_FRDOUBLEK :
1821
0
      fields->f_FRk = value;
1822
0
      break;
1823
0
    case FRV_OPERAND_FRI :
1824
0
      fields->f_FRi = value;
1825
0
      break;
1826
0
    case FRV_OPERAND_FRINTI :
1827
0
      fields->f_FRi = value;
1828
0
      break;
1829
0
    case FRV_OPERAND_FRINTIEVEN :
1830
0
      fields->f_FRi = value;
1831
0
      break;
1832
0
    case FRV_OPERAND_FRINTJ :
1833
0
      fields->f_FRj = value;
1834
0
      break;
1835
0
    case FRV_OPERAND_FRINTJEVEN :
1836
0
      fields->f_FRj = value;
1837
0
      break;
1838
0
    case FRV_OPERAND_FRINTK :
1839
0
      fields->f_FRk = value;
1840
0
      break;
1841
0
    case FRV_OPERAND_FRINTKEVEN :
1842
0
      fields->f_FRk = value;
1843
0
      break;
1844
0
    case FRV_OPERAND_FRJ :
1845
0
      fields->f_FRj = value;
1846
0
      break;
1847
0
    case FRV_OPERAND_FRK :
1848
0
      fields->f_FRk = value;
1849
0
      break;
1850
0
    case FRV_OPERAND_FRKHI :
1851
0
      fields->f_FRk = value;
1852
0
      break;
1853
0
    case FRV_OPERAND_FRKLO :
1854
0
      fields->f_FRk = value;
1855
0
      break;
1856
0
    case FRV_OPERAND_GRDOUBLEK :
1857
0
      fields->f_GRk = value;
1858
0
      break;
1859
0
    case FRV_OPERAND_GRI :
1860
0
      fields->f_GRi = value;
1861
0
      break;
1862
0
    case FRV_OPERAND_GRJ :
1863
0
      fields->f_GRj = value;
1864
0
      break;
1865
0
    case FRV_OPERAND_GRK :
1866
0
      fields->f_GRk = value;
1867
0
      break;
1868
0
    case FRV_OPERAND_GRKHI :
1869
0
      fields->f_GRk = value;
1870
0
      break;
1871
0
    case FRV_OPERAND_GRKLO :
1872
0
      fields->f_GRk = value;
1873
0
      break;
1874
0
    case FRV_OPERAND_ICCI_1 :
1875
0
      fields->f_ICCi_1 = value;
1876
0
      break;
1877
0
    case FRV_OPERAND_ICCI_2 :
1878
0
      fields->f_ICCi_2 = value;
1879
0
      break;
1880
0
    case FRV_OPERAND_ICCI_3 :
1881
0
      fields->f_ICCi_3 = value;
1882
0
      break;
1883
0
    case FRV_OPERAND_LI :
1884
0
      fields->f_LI = value;
1885
0
      break;
1886
0
    case FRV_OPERAND_LRAD :
1887
0
      fields->f_LRAD = value;
1888
0
      break;
1889
0
    case FRV_OPERAND_LRAE :
1890
0
      fields->f_LRAE = value;
1891
0
      break;
1892
0
    case FRV_OPERAND_LRAS :
1893
0
      fields->f_LRAS = value;
1894
0
      break;
1895
0
    case FRV_OPERAND_TLBPRL :
1896
0
      fields->f_TLBPRL = value;
1897
0
      break;
1898
0
    case FRV_OPERAND_TLBPROPX :
1899
0
      fields->f_TLBPRopx = value;
1900
0
      break;
1901
0
    case FRV_OPERAND_AE :
1902
0
      fields->f_ae = value;
1903
0
      break;
1904
0
    case FRV_OPERAND_CALLANN :
1905
0
      fields->f_reloc_ann = value;
1906
0
      break;
1907
0
    case FRV_OPERAND_CCOND :
1908
0
      fields->f_ccond = value;
1909
0
      break;
1910
0
    case FRV_OPERAND_COND :
1911
0
      fields->f_cond = value;
1912
0
      break;
1913
0
    case FRV_OPERAND_D12 :
1914
0
      fields->f_d12 = value;
1915
0
      break;
1916
0
    case FRV_OPERAND_DEBUG :
1917
0
      fields->f_debug = value;
1918
0
      break;
1919
0
    case FRV_OPERAND_EIR :
1920
0
      fields->f_eir = value;
1921
0
      break;
1922
0
    case FRV_OPERAND_HINT :
1923
0
      fields->f_hint = value;
1924
0
      break;
1925
0
    case FRV_OPERAND_HINT_NOT_TAKEN :
1926
0
      fields->f_hint = value;
1927
0
      break;
1928
0
    case FRV_OPERAND_HINT_TAKEN :
1929
0
      fields->f_hint = value;
1930
0
      break;
1931
0
    case FRV_OPERAND_LABEL16 :
1932
0
      fields->f_label16 = value;
1933
0
      break;
1934
0
    case FRV_OPERAND_LABEL24 :
1935
0
      fields->f_label24 = value;
1936
0
      break;
1937
0
    case FRV_OPERAND_LDANN :
1938
0
      fields->f_reloc_ann = value;
1939
0
      break;
1940
0
    case FRV_OPERAND_LDDANN :
1941
0
      fields->f_reloc_ann = value;
1942
0
      break;
1943
0
    case FRV_OPERAND_LOCK :
1944
0
      fields->f_lock = value;
1945
0
      break;
1946
0
    case FRV_OPERAND_PACK :
1947
0
      fields->f_pack = value;
1948
0
      break;
1949
0
    case FRV_OPERAND_S10 :
1950
0
      fields->f_s10 = value;
1951
0
      break;
1952
0
    case FRV_OPERAND_S12 :
1953
0
      fields->f_d12 = value;
1954
0
      break;
1955
0
    case FRV_OPERAND_S16 :
1956
0
      fields->f_s16 = value;
1957
0
      break;
1958
0
    case FRV_OPERAND_S5 :
1959
0
      fields->f_s5 = value;
1960
0
      break;
1961
0
    case FRV_OPERAND_S6 :
1962
0
      fields->f_s6 = value;
1963
0
      break;
1964
0
    case FRV_OPERAND_S6_1 :
1965
0
      fields->f_s6_1 = value;
1966
0
      break;
1967
0
    case FRV_OPERAND_SLO16 :
1968
0
      fields->f_s16 = value;
1969
0
      break;
1970
0
    case FRV_OPERAND_SPR :
1971
0
      fields->f_spr = value;
1972
0
      break;
1973
0
    case FRV_OPERAND_U12 :
1974
0
      fields->f_u12 = value;
1975
0
      break;
1976
0
    case FRV_OPERAND_U16 :
1977
0
      fields->f_u16 = value;
1978
0
      break;
1979
0
    case FRV_OPERAND_U6 :
1980
0
      fields->f_u6 = value;
1981
0
      break;
1982
0
    case FRV_OPERAND_UHI16 :
1983
0
      fields->f_u16 = value;
1984
0
      break;
1985
0
    case FRV_OPERAND_ULO16 :
1986
0
      fields->f_u16 = value;
1987
0
      break;
1988
1989
0
    default :
1990
      /* xgettext:c-format */
1991
0
      opcodes_error_handler
1992
0
  (_("internal error: unrecognized field %d while setting int operand"),
1993
0
   opindex);
1994
0
      abort ();
1995
0
  }
1996
0
}
1997
1998
void
1999
frv_cgen_set_vma_operand (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
2000
           int opindex,
2001
           CGEN_FIELDS * fields,
2002
           bfd_vma value)
2003
0
{
2004
0
  switch (opindex)
2005
0
    {
2006
0
    case FRV_OPERAND_A0 :
2007
0
      fields->f_A = value;
2008
0
      break;
2009
0
    case FRV_OPERAND_A1 :
2010
0
      fields->f_A = value;
2011
0
      break;
2012
0
    case FRV_OPERAND_ACC40SI :
2013
0
      fields->f_ACC40Si = value;
2014
0
      break;
2015
0
    case FRV_OPERAND_ACC40SK :
2016
0
      fields->f_ACC40Sk = value;
2017
0
      break;
2018
0
    case FRV_OPERAND_ACC40UI :
2019
0
      fields->f_ACC40Ui = value;
2020
0
      break;
2021
0
    case FRV_OPERAND_ACC40UK :
2022
0
      fields->f_ACC40Uk = value;
2023
0
      break;
2024
0
    case FRV_OPERAND_ACCGI :
2025
0
      fields->f_ACCGi = value;
2026
0
      break;
2027
0
    case FRV_OPERAND_ACCGK :
2028
0
      fields->f_ACCGk = value;
2029
0
      break;
2030
0
    case FRV_OPERAND_CCI :
2031
0
      fields->f_CCi = value;
2032
0
      break;
2033
0
    case FRV_OPERAND_CPRDOUBLEK :
2034
0
      fields->f_CPRk = value;
2035
0
      break;
2036
0
    case FRV_OPERAND_CPRI :
2037
0
      fields->f_CPRi = value;
2038
0
      break;
2039
0
    case FRV_OPERAND_CPRJ :
2040
0
      fields->f_CPRj = value;
2041
0
      break;
2042
0
    case FRV_OPERAND_CPRK :
2043
0
      fields->f_CPRk = value;
2044
0
      break;
2045
0
    case FRV_OPERAND_CRI :
2046
0
      fields->f_CRi = value;
2047
0
      break;
2048
0
    case FRV_OPERAND_CRJ :
2049
0
      fields->f_CRj = value;
2050
0
      break;
2051
0
    case FRV_OPERAND_CRJ_FLOAT :
2052
0
      fields->f_CRj_float = value;
2053
0
      break;
2054
0
    case FRV_OPERAND_CRJ_INT :
2055
0
      fields->f_CRj_int = value;
2056
0
      break;
2057
0
    case FRV_OPERAND_CRK :
2058
0
      fields->f_CRk = value;
2059
0
      break;
2060
0
    case FRV_OPERAND_FCCI_1 :
2061
0
      fields->f_FCCi_1 = value;
2062
0
      break;
2063
0
    case FRV_OPERAND_FCCI_2 :
2064
0
      fields->f_FCCi_2 = value;
2065
0
      break;
2066
0
    case FRV_OPERAND_FCCI_3 :
2067
0
      fields->f_FCCi_3 = value;
2068
0
      break;
2069
0
    case FRV_OPERAND_FCCK :
2070
0
      fields->f_FCCk = value;
2071
0
      break;
2072
0
    case FRV_OPERAND_FRDOUBLEI :
2073
0
      fields->f_FRi = value;
2074
0
      break;
2075
0
    case FRV_OPERAND_FRDOUBLEJ :
2076
0
      fields->f_FRj = value;
2077
0
      break;
2078
0
    case FRV_OPERAND_FRDOUBLEK :
2079
0
      fields->f_FRk = value;
2080
0
      break;
2081
0
    case FRV_OPERAND_FRI :
2082
0
      fields->f_FRi = value;
2083
0
      break;
2084
0
    case FRV_OPERAND_FRINTI :
2085
0
      fields->f_FRi = value;
2086
0
      break;
2087
0
    case FRV_OPERAND_FRINTIEVEN :
2088
0
      fields->f_FRi = value;
2089
0
      break;
2090
0
    case FRV_OPERAND_FRINTJ :
2091
0
      fields->f_FRj = value;
2092
0
      break;
2093
0
    case FRV_OPERAND_FRINTJEVEN :
2094
0
      fields->f_FRj = value;
2095
0
      break;
2096
0
    case FRV_OPERAND_FRINTK :
2097
0
      fields->f_FRk = value;
2098
0
      break;
2099
0
    case FRV_OPERAND_FRINTKEVEN :
2100
0
      fields->f_FRk = value;
2101
0
      break;
2102
0
    case FRV_OPERAND_FRJ :
2103
0
      fields->f_FRj = value;
2104
0
      break;
2105
0
    case FRV_OPERAND_FRK :
2106
0
      fields->f_FRk = value;
2107
0
      break;
2108
0
    case FRV_OPERAND_FRKHI :
2109
0
      fields->f_FRk = value;
2110
0
      break;
2111
0
    case FRV_OPERAND_FRKLO :
2112
0
      fields->f_FRk = value;
2113
0
      break;
2114
0
    case FRV_OPERAND_GRDOUBLEK :
2115
0
      fields->f_GRk = value;
2116
0
      break;
2117
0
    case FRV_OPERAND_GRI :
2118
0
      fields->f_GRi = value;
2119
0
      break;
2120
0
    case FRV_OPERAND_GRJ :
2121
0
      fields->f_GRj = value;
2122
0
      break;
2123
0
    case FRV_OPERAND_GRK :
2124
0
      fields->f_GRk = value;
2125
0
      break;
2126
0
    case FRV_OPERAND_GRKHI :
2127
0
      fields->f_GRk = value;
2128
0
      break;
2129
0
    case FRV_OPERAND_GRKLO :
2130
0
      fields->f_GRk = value;
2131
0
      break;
2132
0
    case FRV_OPERAND_ICCI_1 :
2133
0
      fields->f_ICCi_1 = value;
2134
0
      break;
2135
0
    case FRV_OPERAND_ICCI_2 :
2136
0
      fields->f_ICCi_2 = value;
2137
0
      break;
2138
0
    case FRV_OPERAND_ICCI_3 :
2139
0
      fields->f_ICCi_3 = value;
2140
0
      break;
2141
0
    case FRV_OPERAND_LI :
2142
0
      fields->f_LI = value;
2143
0
      break;
2144
0
    case FRV_OPERAND_LRAD :
2145
0
      fields->f_LRAD = value;
2146
0
      break;
2147
0
    case FRV_OPERAND_LRAE :
2148
0
      fields->f_LRAE = value;
2149
0
      break;
2150
0
    case FRV_OPERAND_LRAS :
2151
0
      fields->f_LRAS = value;
2152
0
      break;
2153
0
    case FRV_OPERAND_TLBPRL :
2154
0
      fields->f_TLBPRL = value;
2155
0
      break;
2156
0
    case FRV_OPERAND_TLBPROPX :
2157
0
      fields->f_TLBPRopx = value;
2158
0
      break;
2159
0
    case FRV_OPERAND_AE :
2160
0
      fields->f_ae = value;
2161
0
      break;
2162
0
    case FRV_OPERAND_CALLANN :
2163
0
      fields->f_reloc_ann = value;
2164
0
      break;
2165
0
    case FRV_OPERAND_CCOND :
2166
0
      fields->f_ccond = value;
2167
0
      break;
2168
0
    case FRV_OPERAND_COND :
2169
0
      fields->f_cond = value;
2170
0
      break;
2171
0
    case FRV_OPERAND_D12 :
2172
0
      fields->f_d12 = value;
2173
0
      break;
2174
0
    case FRV_OPERAND_DEBUG :
2175
0
      fields->f_debug = value;
2176
0
      break;
2177
0
    case FRV_OPERAND_EIR :
2178
0
      fields->f_eir = value;
2179
0
      break;
2180
0
    case FRV_OPERAND_HINT :
2181
0
      fields->f_hint = value;
2182
0
      break;
2183
0
    case FRV_OPERAND_HINT_NOT_TAKEN :
2184
0
      fields->f_hint = value;
2185
0
      break;
2186
0
    case FRV_OPERAND_HINT_TAKEN :
2187
0
      fields->f_hint = value;
2188
0
      break;
2189
0
    case FRV_OPERAND_LABEL16 :
2190
0
      fields->f_label16 = value;
2191
0
      break;
2192
0
    case FRV_OPERAND_LABEL24 :
2193
0
      fields->f_label24 = value;
2194
0
      break;
2195
0
    case FRV_OPERAND_LDANN :
2196
0
      fields->f_reloc_ann = value;
2197
0
      break;
2198
0
    case FRV_OPERAND_LDDANN :
2199
0
      fields->f_reloc_ann = value;
2200
0
      break;
2201
0
    case FRV_OPERAND_LOCK :
2202
0
      fields->f_lock = value;
2203
0
      break;
2204
0
    case FRV_OPERAND_PACK :
2205
0
      fields->f_pack = value;
2206
0
      break;
2207
0
    case FRV_OPERAND_S10 :
2208
0
      fields->f_s10 = value;
2209
0
      break;
2210
0
    case FRV_OPERAND_S12 :
2211
0
      fields->f_d12 = value;
2212
0
      break;
2213
0
    case FRV_OPERAND_S16 :
2214
0
      fields->f_s16 = value;
2215
0
      break;
2216
0
    case FRV_OPERAND_S5 :
2217
0
      fields->f_s5 = value;
2218
0
      break;
2219
0
    case FRV_OPERAND_S6 :
2220
0
      fields->f_s6 = value;
2221
0
      break;
2222
0
    case FRV_OPERAND_S6_1 :
2223
0
      fields->f_s6_1 = value;
2224
0
      break;
2225
0
    case FRV_OPERAND_SLO16 :
2226
0
      fields->f_s16 = value;
2227
0
      break;
2228
0
    case FRV_OPERAND_SPR :
2229
0
      fields->f_spr = value;
2230
0
      break;
2231
0
    case FRV_OPERAND_U12 :
2232
0
      fields->f_u12 = value;
2233
0
      break;
2234
0
    case FRV_OPERAND_U16 :
2235
0
      fields->f_u16 = value;
2236
0
      break;
2237
0
    case FRV_OPERAND_U6 :
2238
0
      fields->f_u6 = value;
2239
0
      break;
2240
0
    case FRV_OPERAND_UHI16 :
2241
0
      fields->f_u16 = value;
2242
0
      break;
2243
0
    case FRV_OPERAND_ULO16 :
2244
0
      fields->f_u16 = value;
2245
0
      break;
2246
2247
0
    default :
2248
      /* xgettext:c-format */
2249
0
      opcodes_error_handler
2250
0
  (_("internal error: unrecognized field %d while setting vma operand"),
2251
0
   opindex);
2252
0
      abort ();
2253
0
  }
2254
0
}
2255
2256
/* Function to call before using the instruction builder tables.  */
2257
2258
void
2259
frv_cgen_init_ibld_table (CGEN_CPU_DESC cd)
2260
4
{
2261
4
  cd->insert_handlers = & frv_cgen_insert_handlers[0];
2262
4
  cd->extract_handlers = & frv_cgen_extract_handlers[0];
2263
2264
4
  cd->insert_operand = frv_cgen_insert_operand;
2265
4
  cd->extract_operand = frv_cgen_extract_operand;
2266
2267
4
  cd->get_int_operand = frv_cgen_get_int_operand;
2268
4
  cd->set_int_operand = frv_cgen_set_int_operand;
2269
4
  cd->get_vma_operand = frv_cgen_get_vma_operand;
2270
4
  cd->set_vma_operand = frv_cgen_set_vma_operand;
2271
4
}