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