1 /* Instruction building/extraction support for fr30. -*- C -*-
3 THIS FILE IS MACHINE GENERATED WITH CGEN: Cpu tools GENerator.
4 - the resultant file is machine generated, cgen-ibld.in isn't
6 Copyright 1996, 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
8 This file is part of the GNU Binutils and GDB, the GNU debugger.
10 This program is free software; you can redistribute it and/or modify
11 it under the terms of the GNU General Public License as published by
12 the Free Software Foundation; either version 2, or (at your option)
15 This program is distributed in the hope that it will be useful,
16 but WITHOUT ANY WARRANTY; without even the implied warranty of
17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 GNU General Public License for more details.
20 You should have received a copy of the GNU General Public License
21 along with this program; if not, write to the Free Software Foundation, Inc.,
22 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
24 /* ??? Eventually more and more of this stuff can go to cpu-independent files.
34 #include "fr30-desc.h"
39 #define min(a,b) ((a) < (b) ? (a) : (b))
41 #define max(a,b) ((a) > (b) ? (a) : (b))
43 /* Used by the ifield rtx function. */
44 #define FLD(f) (fields->f)
46 static const char * insert_normal
47 PARAMS ((CGEN_CPU_DESC
, long, unsigned int, unsigned int, unsigned int,
48 unsigned int, unsigned int, unsigned int, CGEN_INSN_BYTES_PTR
));
49 static const char * insert_insn_normal
50 PARAMS ((CGEN_CPU_DESC
, const CGEN_INSN
*,
51 CGEN_FIELDS
*, CGEN_INSN_BYTES_PTR
, bfd_vma
));
53 static int extract_normal
54 PARAMS ((CGEN_CPU_DESC
, CGEN_EXTRACT_INFO
*, CGEN_INSN_INT
,
55 unsigned int, unsigned int, unsigned int, unsigned int,
56 unsigned int, unsigned int, bfd_vma
, long *));
57 static int extract_insn_normal
58 PARAMS ((CGEN_CPU_DESC
, const CGEN_INSN
*, CGEN_EXTRACT_INFO
*,
59 CGEN_INSN_INT
, CGEN_FIELDS
*, bfd_vma
));
60 static void put_insn_int_value
61 PARAMS ((CGEN_CPU_DESC
, CGEN_INSN_BYTES_PTR
, int, int, CGEN_INSN_INT
));
64 /* Operand insertion. */
68 /* Subroutine of insert_normal. */
70 static CGEN_INLINE
void
71 insert_1 (cd
, value
, start
, length
, word_length
, bufp
)
74 int start
,length
,word_length
;
79 int big_p
= CGEN_CPU_INSN_ENDIAN (cd
) == CGEN_ENDIAN_BIG
;
81 x
= bfd_get_bits (bufp
, word_length
, big_p
);
83 /* Written this way to avoid undefined behaviour. */
84 mask
= (((1L << (length
- 1)) - 1) << 1) | 1;
86 shift
= (start
+ 1) - length
;
88 shift
= (word_length
- (start
+ length
));
89 x
= (x
& ~(mask
<< shift
)) | ((value
& mask
) << shift
);
91 bfd_put_bits ((bfd_vma
) x
, bufp
, word_length
, big_p
);
94 #endif /* ! CGEN_INT_INSN_P */
96 /* Default insertion routine.
98 ATTRS is a mask of the boolean attributes.
99 WORD_OFFSET is the offset in bits from the start of the insn of the value.
100 WORD_LENGTH is the length of the word in bits in which the value resides.
101 START is the starting bit number in the word, architecture origin.
102 LENGTH is the length of VALUE in bits.
103 TOTAL_LENGTH is the total length of the insn in bits.
105 The result is an error message or NULL if success. */
107 /* ??? This duplicates functionality with bfd's howto table and
108 bfd_install_relocation. */
109 /* ??? This doesn't handle bfd_vma's. Create another function when
113 insert_normal (cd
, value
, attrs
, word_offset
, start
, length
, word_length
,
114 total_length
, buffer
)
118 unsigned int word_offset
, start
, length
, word_length
, total_length
;
119 CGEN_INSN_BYTES_PTR buffer
;
121 static char errbuf
[100];
122 /* Written this way to avoid undefined behaviour. */
123 unsigned long mask
= (((1L << (length
- 1)) - 1) << 1) | 1;
125 /* If LENGTH is zero, this operand doesn't contribute to the value. */
135 if (word_length
> 32)
138 /* For architectures with insns smaller than the base-insn-bitsize,
139 word_length may be too big. */
140 if (cd
->min_insn_bitsize
< cd
->base_insn_bitsize
)
143 && word_length
> total_length
)
144 word_length
= total_length
;
147 /* Ensure VALUE will fit. */
148 if (! CGEN_BOOL_ATTR (attrs
, CGEN_IFLD_SIGNED
))
150 unsigned long maxval
= mask
;
152 if ((unsigned long) value
> maxval
)
154 /* xgettext:c-format */
156 _("operand out of range (%lu not between 0 and %lu)"),
163 if (! cgen_signed_overflow_ok_p (cd
))
165 long minval
= - (1L << (length
- 1));
166 long maxval
= (1L << (length
- 1)) - 1;
168 if (value
< minval
|| value
> maxval
)
171 /* xgettext:c-format */
172 (errbuf
, _("operand out of range (%ld not between %ld and %ld)"),
173 value
, minval
, maxval
);
184 if (CGEN_INSN_LSB0_P
)
185 shift
= (word_offset
+ start
+ 1) - length
;
187 shift
= total_length
- (word_offset
+ start
+ length
);
188 *buffer
= (*buffer
& ~(mask
<< shift
)) | ((value
& mask
) << shift
);
191 #else /* ! CGEN_INT_INSN_P */
194 unsigned char *bufp
= (unsigned char *) buffer
+ word_offset
/ 8;
196 insert_1 (cd
, value
, start
, length
, word_length
, bufp
);
199 #endif /* ! CGEN_INT_INSN_P */
204 /* Default insn builder (insert handler).
205 The instruction is recorded in CGEN_INT_INSN_P byte order
206 (meaning that if CGEN_INT_INSN_P BUFFER is an int * and thus the value is
207 recorded in host byte order, otherwise BUFFER is an array of bytes and the
208 value is recorded in target byte order).
209 The result is an error message or NULL if success. */
212 insert_insn_normal (cd
, insn
, fields
, buffer
, pc
)
214 const CGEN_INSN
* insn
;
215 CGEN_FIELDS
* fields
;
216 CGEN_INSN_BYTES_PTR buffer
;
219 const CGEN_SYNTAX
*syntax
= CGEN_INSN_SYNTAX (insn
);
221 const CGEN_SYNTAX_CHAR_TYPE
* syn
;
223 CGEN_INIT_INSERT (cd
);
224 value
= CGEN_INSN_BASE_VALUE (insn
);
226 /* If we're recording insns as numbers (rather than a string of bytes),
227 target byte order handling is deferred until later. */
231 put_insn_int_value (cd
, buffer
, cd
->base_insn_bitsize
,
232 CGEN_FIELDS_BITSIZE (fields
), value
);
236 cgen_put_insn_value (cd
, buffer
, min (cd
->base_insn_bitsize
,
237 CGEN_FIELDS_BITSIZE (fields
)),
240 #endif /* ! CGEN_INT_INSN_P */
242 /* ??? It would be better to scan the format's fields.
243 Still need to be able to insert a value based on the operand though;
244 e.g. storing a branch displacement that got resolved later.
245 Needs more thought first. */
247 for (syn
= CGEN_SYNTAX_STRING (syntax
); * syn
; ++ syn
)
251 if (CGEN_SYNTAX_CHAR_P (* syn
))
254 errmsg
= (* cd
->insert_operand
) (cd
, CGEN_SYNTAX_FIELD (*syn
),
263 /* Cover function to store an insn value into an integral insn. Must go here
264 because it needs <prefix>-desc.h for CGEN_INT_INSN_P. */
267 put_insn_int_value (cd
, buf
, length
, insn_length
, value
)
269 CGEN_INSN_BYTES_PTR buf
;
274 /* For architectures with insns smaller than the base-insn-bitsize,
275 length may be too big. */
276 if (length
> insn_length
)
280 int shift
= insn_length
- length
;
281 /* Written this way to avoid undefined behaviour. */
282 CGEN_INSN_INT mask
= (((1L << (length
- 1)) - 1) << 1) | 1;
283 *buf
= (*buf
& ~(mask
<< shift
)) | ((value
& mask
) << shift
);
287 /* Operand extraction. */
289 #if ! CGEN_INT_INSN_P
291 /* Subroutine of extract_normal.
292 Ensure sufficient bytes are cached in EX_INFO.
293 OFFSET is the offset in bytes from the start of the insn of the value.
294 BYTES is the length of the needed value.
295 Returns 1 for success, 0 for failure. */
297 static CGEN_INLINE
int
298 fill_cache (cd
, ex_info
, offset
, bytes
, pc
)
300 CGEN_EXTRACT_INFO
*ex_info
;
304 /* It's doubtful that the middle part has already been fetched so
305 we don't optimize that case. kiss. */
307 disassemble_info
*info
= (disassemble_info
*) ex_info
->dis_info
;
309 /* First do a quick check. */
310 mask
= (1 << bytes
) - 1;
311 if (((ex_info
->valid
>> offset
) & mask
) == mask
)
314 /* Search for the first byte we need to read. */
315 for (mask
= 1 << offset
; bytes
> 0; --bytes
, ++offset
, mask
<<= 1)
316 if (! (mask
& ex_info
->valid
))
324 status
= (*info
->read_memory_func
)
325 (pc
, ex_info
->insn_bytes
+ offset
, bytes
, info
);
329 (*info
->memory_error_func
) (status
, pc
, info
);
333 ex_info
->valid
|= ((1 << bytes
) - 1) << offset
;
339 /* Subroutine of extract_normal. */
341 static CGEN_INLINE
long
342 extract_1 (cd
, ex_info
, start
, length
, word_length
, bufp
, pc
)
344 CGEN_EXTRACT_INFO
*ex_info
;
345 int start
,length
,word_length
;
351 int big_p
= CGEN_CPU_INSN_ENDIAN (cd
) == CGEN_ENDIAN_BIG
;
353 x
= bfd_get_bits (bufp
, word_length
, big_p
);
355 if (CGEN_INSN_LSB0_P
)
356 shift
= (start
+ 1) - length
;
358 shift
= (word_length
- (start
+ length
));
362 #endif /* ! CGEN_INT_INSN_P */
364 /* Default extraction routine.
366 INSN_VALUE is the first base_insn_bitsize bits of the insn in host order,
367 or sometimes less for cases like the m32r where the base insn size is 32
368 but some insns are 16 bits.
369 ATTRS is a mask of the boolean attributes. We only need `SIGNED',
370 but for generality we take a bitmask of all of them.
371 WORD_OFFSET is the offset in bits from the start of the insn of the value.
372 WORD_LENGTH is the length of the word in bits in which the value resides.
373 START is the starting bit number in the word, architecture origin.
374 LENGTH is the length of VALUE in bits.
375 TOTAL_LENGTH is the total length of the insn in bits.
377 Returns 1 for success, 0 for failure. */
379 /* ??? The return code isn't properly used. wip. */
381 /* ??? This doesn't handle bfd_vma's. Create another function when
385 extract_normal (cd
, ex_info
, insn_value
, attrs
, word_offset
, start
, length
,
386 word_length
, total_length
, pc
, valuep
)
388 #if ! CGEN_INT_INSN_P
389 CGEN_EXTRACT_INFO
*ex_info
;
391 CGEN_EXTRACT_INFO
*ex_info ATTRIBUTE_UNUSED
;
393 CGEN_INSN_INT insn_value
;
395 unsigned int word_offset
, start
, length
, word_length
, total_length
;
396 #if ! CGEN_INT_INSN_P
399 bfd_vma pc ATTRIBUTE_UNUSED
;
403 CGEN_INSN_INT value
, mask
;
405 /* If LENGTH is zero, this operand doesn't contribute to the value
406 so give it a standard value of zero. */
419 if (word_length
> 32)
422 /* For architectures with insns smaller than the insn-base-bitsize,
423 word_length may be too big. */
424 if (cd
->min_insn_bitsize
< cd
->base_insn_bitsize
)
427 && word_length
> total_length
)
428 word_length
= total_length
;
431 /* Does the value reside in INSN_VALUE? */
433 if (CGEN_INT_INSN_P
|| word_offset
== 0)
435 if (CGEN_INSN_LSB0_P
)
436 value
= insn_value
>> ((word_offset
+ start
+ 1) - length
);
438 value
= insn_value
>> (total_length
- ( word_offset
+ start
+ length
));
441 #if ! CGEN_INT_INSN_P
445 unsigned char *bufp
= ex_info
->insn_bytes
+ word_offset
/ 8;
447 if (word_length
> 32)
450 if (fill_cache (cd
, ex_info
, word_offset
/ 8, word_length
/ 8, pc
) == 0)
453 value
= extract_1 (cd
, ex_info
, start
, length
, word_length
, bufp
, pc
);
456 #endif /* ! CGEN_INT_INSN_P */
458 /* Written this way to avoid undefined behaviour. */
459 mask
= (((1L << (length
- 1)) - 1) << 1) | 1;
463 if (CGEN_BOOL_ATTR (attrs
, CGEN_IFLD_SIGNED
)
464 && (value
& (1L << (length
- 1))))
472 /* Default insn extractor.
474 INSN_VALUE is the first base_insn_bitsize bits, translated to host order.
475 The extracted fields are stored in FIELDS.
476 EX_INFO is used to handle reading variable length insns.
477 Return the length of the insn in bits, or 0 if no match,
478 or -1 if an error occurs fetching data (memory_error_func will have
482 extract_insn_normal (cd
, insn
, ex_info
, insn_value
, fields
, pc
)
484 const CGEN_INSN
*insn
;
485 CGEN_EXTRACT_INFO
*ex_info
;
486 CGEN_INSN_INT insn_value
;
490 const CGEN_SYNTAX
*syntax
= CGEN_INSN_SYNTAX (insn
);
491 const CGEN_SYNTAX_CHAR_TYPE
*syn
;
493 CGEN_FIELDS_BITSIZE (fields
) = CGEN_INSN_BITSIZE (insn
);
495 CGEN_INIT_EXTRACT (cd
);
497 for (syn
= CGEN_SYNTAX_STRING (syntax
); *syn
; ++syn
)
501 if (CGEN_SYNTAX_CHAR_P (*syn
))
504 length
= (* cd
->extract_operand
) (cd
, CGEN_SYNTAX_FIELD (*syn
),
505 ex_info
, insn_value
, fields
, pc
);
510 /* We recognized and successfully extracted this insn. */
511 return CGEN_INSN_BITSIZE (insn
);
514 /* machine generated code added here */
516 /* Main entry point for operand insertion.
518 This function is basically just a big switch statement. Earlier versions
519 used tables to look up the function to use, but
520 - if the table contains both assembler and disassembler functions then
521 the disassembler contains much of the assembler and vice-versa,
522 - there's a lot of inlining possibilities as things grow,
523 - using a switch statement avoids the function call overhead.
525 This function could be moved into `parse_insn_normal', but keeping it
526 separate makes clear the interface between `parse_insn_normal' and each of
527 the handlers. It's also needed by GAS to insert operands that couldn't be
528 resolved during parsing.
532 fr30_cgen_insert_operand (cd
, opindex
, fields
, buffer
, pc
)
535 CGEN_FIELDS
* fields
;
536 CGEN_INSN_BYTES_PTR buffer
;
539 const char * errmsg
= NULL
;
540 unsigned int total_length
= CGEN_FIELDS_BITSIZE (fields
);
544 case FR30_OPERAND_CRI
:
545 errmsg
= insert_normal (cd
, fields
->f_CRi
, 0, 16, 12, 4, 16, total_length
, buffer
);
547 case FR30_OPERAND_CRJ
:
548 errmsg
= insert_normal (cd
, fields
->f_CRj
, 0, 16, 8, 4, 16, total_length
, buffer
);
550 case FR30_OPERAND_R13
:
552 case FR30_OPERAND_R14
:
554 case FR30_OPERAND_R15
:
556 case FR30_OPERAND_RI
:
557 errmsg
= insert_normal (cd
, fields
->f_Ri
, 0, 0, 12, 4, 16, total_length
, buffer
);
559 case FR30_OPERAND_RIC
:
560 errmsg
= insert_normal (cd
, fields
->f_Ric
, 0, 16, 12, 4, 16, total_length
, buffer
);
562 case FR30_OPERAND_RJ
:
563 errmsg
= insert_normal (cd
, fields
->f_Rj
, 0, 0, 8, 4, 16, total_length
, buffer
);
565 case FR30_OPERAND_RJC
:
566 errmsg
= insert_normal (cd
, fields
->f_Rjc
, 0, 16, 8, 4, 16, total_length
, buffer
);
568 case FR30_OPERAND_RS1
:
569 errmsg
= insert_normal (cd
, fields
->f_Rs1
, 0, 0, 8, 4, 16, total_length
, buffer
);
571 case FR30_OPERAND_RS2
:
572 errmsg
= insert_normal (cd
, fields
->f_Rs2
, 0, 0, 12, 4, 16, total_length
, buffer
);
574 case FR30_OPERAND_CC
:
575 errmsg
= insert_normal (cd
, fields
->f_cc
, 0, 0, 4, 4, 16, total_length
, buffer
);
577 case FR30_OPERAND_CCC
:
578 errmsg
= insert_normal (cd
, fields
->f_ccc
, 0, 16, 0, 8, 16, total_length
, buffer
);
580 case FR30_OPERAND_DIR10
:
582 long value
= fields
->f_dir10
;
583 value
= ((unsigned int) (value
) >> (2));
584 errmsg
= insert_normal (cd
, value
, 0, 0, 8, 8, 16, total_length
, buffer
);
587 case FR30_OPERAND_DIR8
:
588 errmsg
= insert_normal (cd
, fields
->f_dir8
, 0, 0, 8, 8, 16, total_length
, buffer
);
590 case FR30_OPERAND_DIR9
:
592 long value
= fields
->f_dir9
;
593 value
= ((unsigned int) (value
) >> (1));
594 errmsg
= insert_normal (cd
, value
, 0, 0, 8, 8, 16, total_length
, buffer
);
597 case FR30_OPERAND_DISP10
:
599 long value
= fields
->f_disp10
;
600 value
= ((int) (value
) >> (2));
601 errmsg
= insert_normal (cd
, value
, 0|(1<<CGEN_IFLD_SIGNED
), 0, 4, 8, 16, total_length
, buffer
);
604 case FR30_OPERAND_DISP8
:
605 errmsg
= insert_normal (cd
, fields
->f_disp8
, 0|(1<<CGEN_IFLD_SIGNED
), 0, 4, 8, 16, total_length
, buffer
);
607 case FR30_OPERAND_DISP9
:
609 long value
= fields
->f_disp9
;
610 value
= ((int) (value
) >> (1));
611 errmsg
= insert_normal (cd
, value
, 0|(1<<CGEN_IFLD_SIGNED
), 0, 4, 8, 16, total_length
, buffer
);
614 case FR30_OPERAND_I20
:
617 FLD (f_i20_4
) = ((unsigned int) (FLD (f_i20
)) >> (16));
618 FLD (f_i20_16
) = ((FLD (f_i20
)) & (65535));
620 errmsg
= insert_normal (cd
, fields
->f_i20_4
, 0, 0, 8, 4, 16, total_length
, buffer
);
623 errmsg
= insert_normal (cd
, fields
->f_i20_16
, 0, 16, 0, 16, 16, total_length
, buffer
);
628 case FR30_OPERAND_I32
:
629 errmsg
= insert_normal (cd
, fields
->f_i32
, 0|(1<<CGEN_IFLD_SIGN_OPT
), 16, 0, 32, 32, total_length
, buffer
);
631 case FR30_OPERAND_I8
:
632 errmsg
= insert_normal (cd
, fields
->f_i8
, 0, 0, 4, 8, 16, total_length
, buffer
);
634 case FR30_OPERAND_LABEL12
:
636 long value
= fields
->f_rel12
;
637 value
= ((int) (((value
) - (((pc
) + (2))))) >> (1));
638 errmsg
= insert_normal (cd
, value
, 0|(1<<CGEN_IFLD_SIGNED
)|(1<<CGEN_IFLD_PCREL_ADDR
), 0, 5, 11, 16, total_length
, buffer
);
641 case FR30_OPERAND_LABEL9
:
643 long value
= fields
->f_rel9
;
644 value
= ((int) (((value
) - (((pc
) + (2))))) >> (1));
645 errmsg
= insert_normal (cd
, value
, 0|(1<<CGEN_IFLD_SIGNED
)|(1<<CGEN_IFLD_PCREL_ADDR
), 0, 8, 8, 16, total_length
, buffer
);
648 case FR30_OPERAND_M4
:
650 long value
= fields
->f_m4
;
651 value
= ((value
) & (15));
652 errmsg
= insert_normal (cd
, value
, 0, 0, 8, 4, 16, total_length
, buffer
);
655 case FR30_OPERAND_PS
:
657 case FR30_OPERAND_REGLIST_HI_LD
:
658 errmsg
= insert_normal (cd
, fields
->f_reglist_hi_ld
, 0, 0, 8, 8, 16, total_length
, buffer
);
660 case FR30_OPERAND_REGLIST_HI_ST
:
661 errmsg
= insert_normal (cd
, fields
->f_reglist_hi_st
, 0, 0, 8, 8, 16, total_length
, buffer
);
663 case FR30_OPERAND_REGLIST_LOW_LD
:
664 errmsg
= insert_normal (cd
, fields
->f_reglist_low_ld
, 0, 0, 8, 8, 16, total_length
, buffer
);
666 case FR30_OPERAND_REGLIST_LOW_ST
:
667 errmsg
= insert_normal (cd
, fields
->f_reglist_low_st
, 0, 0, 8, 8, 16, total_length
, buffer
);
669 case FR30_OPERAND_S10
:
671 long value
= fields
->f_s10
;
672 value
= ((int) (value
) >> (2));
673 errmsg
= insert_normal (cd
, value
, 0|(1<<CGEN_IFLD_SIGNED
), 0, 8, 8, 16, total_length
, buffer
);
676 case FR30_OPERAND_U10
:
678 long value
= fields
->f_u10
;
679 value
= ((unsigned int) (value
) >> (2));
680 errmsg
= insert_normal (cd
, value
, 0, 0, 8, 8, 16, total_length
, buffer
);
683 case FR30_OPERAND_U4
:
684 errmsg
= insert_normal (cd
, fields
->f_u4
, 0, 0, 8, 4, 16, total_length
, buffer
);
686 case FR30_OPERAND_U4C
:
687 errmsg
= insert_normal (cd
, fields
->f_u4c
, 0, 0, 12, 4, 16, total_length
, buffer
);
689 case FR30_OPERAND_U8
:
690 errmsg
= insert_normal (cd
, fields
->f_u8
, 0, 0, 8, 8, 16, total_length
, buffer
);
692 case FR30_OPERAND_UDISP6
:
694 long value
= fields
->f_udisp6
;
695 value
= ((unsigned int) (value
) >> (2));
696 errmsg
= insert_normal (cd
, value
, 0, 0, 8, 4, 16, total_length
, buffer
);
701 /* xgettext:c-format */
702 fprintf (stderr
, _("Unrecognized field %d while building insn.\n"),
710 /* Main entry point for operand extraction.
711 The result is <= 0 for error, >0 for success.
712 ??? Actual values aren't well defined right now.
714 This function is basically just a big switch statement. Earlier versions
715 used tables to look up the function to use, but
716 - if the table contains both assembler and disassembler functions then
717 the disassembler contains much of the assembler and vice-versa,
718 - there's a lot of inlining possibilities as things grow,
719 - using a switch statement avoids the function call overhead.
721 This function could be moved into `print_insn_normal', but keeping it
722 separate makes clear the interface between `print_insn_normal' and each of
727 fr30_cgen_extract_operand (cd
, opindex
, ex_info
, insn_value
, fields
, pc
)
730 CGEN_EXTRACT_INFO
*ex_info
;
731 CGEN_INSN_INT insn_value
;
732 CGEN_FIELDS
* fields
;
735 /* Assume success (for those operands that are nops). */
737 unsigned int total_length
= CGEN_FIELDS_BITSIZE (fields
);
741 case FR30_OPERAND_CRI
:
742 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 16, 12, 4, 16, total_length
, pc
, & fields
->f_CRi
);
744 case FR30_OPERAND_CRJ
:
745 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 16, 8, 4, 16, total_length
, pc
, & fields
->f_CRj
);
747 case FR30_OPERAND_R13
:
749 case FR30_OPERAND_R14
:
751 case FR30_OPERAND_R15
:
753 case FR30_OPERAND_RI
:
754 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 12, 4, 16, total_length
, pc
, & fields
->f_Ri
);
756 case FR30_OPERAND_RIC
:
757 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 16, 12, 4, 16, total_length
, pc
, & fields
->f_Ric
);
759 case FR30_OPERAND_RJ
:
760 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 8, 4, 16, total_length
, pc
, & fields
->f_Rj
);
762 case FR30_OPERAND_RJC
:
763 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 16, 8, 4, 16, total_length
, pc
, & fields
->f_Rjc
);
765 case FR30_OPERAND_RS1
:
766 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 8, 4, 16, total_length
, pc
, & fields
->f_Rs1
);
768 case FR30_OPERAND_RS2
:
769 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 12, 4, 16, total_length
, pc
, & fields
->f_Rs2
);
771 case FR30_OPERAND_CC
:
772 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 4, 4, 16, total_length
, pc
, & fields
->f_cc
);
774 case FR30_OPERAND_CCC
:
775 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 16, 0, 8, 16, total_length
, pc
, & fields
->f_ccc
);
777 case FR30_OPERAND_DIR10
:
780 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 8, 8, 16, total_length
, pc
, & value
);
781 value
= ((value
) << (2));
782 fields
->f_dir10
= value
;
785 case FR30_OPERAND_DIR8
:
786 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 8, 8, 16, total_length
, pc
, & fields
->f_dir8
);
788 case FR30_OPERAND_DIR9
:
791 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 8, 8, 16, total_length
, pc
, & value
);
792 value
= ((value
) << (1));
793 fields
->f_dir9
= value
;
796 case FR30_OPERAND_DISP10
:
799 length
= extract_normal (cd
, ex_info
, insn_value
, 0|(1<<CGEN_IFLD_SIGNED
), 0, 4, 8, 16, total_length
, pc
, & value
);
800 value
= ((value
) << (2));
801 fields
->f_disp10
= value
;
804 case FR30_OPERAND_DISP8
:
805 length
= extract_normal (cd
, ex_info
, insn_value
, 0|(1<<CGEN_IFLD_SIGNED
), 0, 4, 8, 16, total_length
, pc
, & fields
->f_disp8
);
807 case FR30_OPERAND_DISP9
:
810 length
= extract_normal (cd
, ex_info
, insn_value
, 0|(1<<CGEN_IFLD_SIGNED
), 0, 4, 8, 16, total_length
, pc
, & value
);
811 value
= ((value
) << (1));
812 fields
->f_disp9
= value
;
815 case FR30_OPERAND_I20
:
817 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 8, 4, 16, total_length
, pc
, & fields
->f_i20_4
);
818 if (length
<= 0) break;
819 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 16, 0, 16, 16, total_length
, pc
, & fields
->f_i20_16
);
820 if (length
<= 0) break;
822 FLD (f_i20
) = ((((FLD (f_i20_4
)) << (16))) | (FLD (f_i20_16
)));
826 case FR30_OPERAND_I32
:
827 length
= extract_normal (cd
, ex_info
, insn_value
, 0|(1<<CGEN_IFLD_SIGN_OPT
), 16, 0, 32, 32, total_length
, pc
, & fields
->f_i32
);
829 case FR30_OPERAND_I8
:
830 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 4, 8, 16, total_length
, pc
, & fields
->f_i8
);
832 case FR30_OPERAND_LABEL12
:
835 length
= extract_normal (cd
, ex_info
, insn_value
, 0|(1<<CGEN_IFLD_SIGNED
)|(1<<CGEN_IFLD_PCREL_ADDR
), 0, 5, 11, 16, total_length
, pc
, & value
);
836 value
= ((((value
) << (1))) + (((pc
) + (2))));
837 fields
->f_rel12
= value
;
840 case FR30_OPERAND_LABEL9
:
843 length
= extract_normal (cd
, ex_info
, insn_value
, 0|(1<<CGEN_IFLD_SIGNED
)|(1<<CGEN_IFLD_PCREL_ADDR
), 0, 8, 8, 16, total_length
, pc
, & value
);
844 value
= ((((value
) << (1))) + (((pc
) + (2))));
845 fields
->f_rel9
= value
;
848 case FR30_OPERAND_M4
:
851 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 8, 4, 16, total_length
, pc
, & value
);
852 value
= ((value
) | (((-1) << (4))));
853 fields
->f_m4
= value
;
856 case FR30_OPERAND_PS
:
858 case FR30_OPERAND_REGLIST_HI_LD
:
859 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 8, 8, 16, total_length
, pc
, & fields
->f_reglist_hi_ld
);
861 case FR30_OPERAND_REGLIST_HI_ST
:
862 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 8, 8, 16, total_length
, pc
, & fields
->f_reglist_hi_st
);
864 case FR30_OPERAND_REGLIST_LOW_LD
:
865 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 8, 8, 16, total_length
, pc
, & fields
->f_reglist_low_ld
);
867 case FR30_OPERAND_REGLIST_LOW_ST
:
868 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 8, 8, 16, total_length
, pc
, & fields
->f_reglist_low_st
);
870 case FR30_OPERAND_S10
:
873 length
= extract_normal (cd
, ex_info
, insn_value
, 0|(1<<CGEN_IFLD_SIGNED
), 0, 8, 8, 16, total_length
, pc
, & value
);
874 value
= ((value
) << (2));
875 fields
->f_s10
= value
;
878 case FR30_OPERAND_U10
:
881 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 8, 8, 16, total_length
, pc
, & value
);
882 value
= ((value
) << (2));
883 fields
->f_u10
= value
;
886 case FR30_OPERAND_U4
:
887 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 8, 4, 16, total_length
, pc
, & fields
->f_u4
);
889 case FR30_OPERAND_U4C
:
890 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 12, 4, 16, total_length
, pc
, & fields
->f_u4c
);
892 case FR30_OPERAND_U8
:
893 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 8, 8, 16, total_length
, pc
, & fields
->f_u8
);
895 case FR30_OPERAND_UDISP6
:
898 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 8, 4, 16, total_length
, pc
, & value
);
899 value
= ((value
) << (2));
900 fields
->f_udisp6
= value
;
905 /* xgettext:c-format */
906 fprintf (stderr
, _("Unrecognized field %d while decoding insn.\n"),
914 cgen_insert_fn
* const fr30_cgen_insert_handlers
[] =
919 cgen_extract_fn
* const fr30_cgen_extract_handlers
[] =
924 /* Getting values from cgen_fields is handled by a collection of functions.
925 They are distinguished by the type of the VALUE argument they return.
926 TODO: floating point, inlining support, remove cases where result type
930 fr30_cgen_get_int_operand (cd
, opindex
, fields
)
933 const CGEN_FIELDS
* fields
;
939 case FR30_OPERAND_CRI
:
940 value
= fields
->f_CRi
;
942 case FR30_OPERAND_CRJ
:
943 value
= fields
->f_CRj
;
945 case FR30_OPERAND_R13
:
948 case FR30_OPERAND_R14
:
951 case FR30_OPERAND_R15
:
954 case FR30_OPERAND_RI
:
955 value
= fields
->f_Ri
;
957 case FR30_OPERAND_RIC
:
958 value
= fields
->f_Ric
;
960 case FR30_OPERAND_RJ
:
961 value
= fields
->f_Rj
;
963 case FR30_OPERAND_RJC
:
964 value
= fields
->f_Rjc
;
966 case FR30_OPERAND_RS1
:
967 value
= fields
->f_Rs1
;
969 case FR30_OPERAND_RS2
:
970 value
= fields
->f_Rs2
;
972 case FR30_OPERAND_CC
:
973 value
= fields
->f_cc
;
975 case FR30_OPERAND_CCC
:
976 value
= fields
->f_ccc
;
978 case FR30_OPERAND_DIR10
:
979 value
= fields
->f_dir10
;
981 case FR30_OPERAND_DIR8
:
982 value
= fields
->f_dir8
;
984 case FR30_OPERAND_DIR9
:
985 value
= fields
->f_dir9
;
987 case FR30_OPERAND_DISP10
:
988 value
= fields
->f_disp10
;
990 case FR30_OPERAND_DISP8
:
991 value
= fields
->f_disp8
;
993 case FR30_OPERAND_DISP9
:
994 value
= fields
->f_disp9
;
996 case FR30_OPERAND_I20
:
997 value
= fields
->f_i20
;
999 case FR30_OPERAND_I32
:
1000 value
= fields
->f_i32
;
1002 case FR30_OPERAND_I8
:
1003 value
= fields
->f_i8
;
1005 case FR30_OPERAND_LABEL12
:
1006 value
= fields
->f_rel12
;
1008 case FR30_OPERAND_LABEL9
:
1009 value
= fields
->f_rel9
;
1011 case FR30_OPERAND_M4
:
1012 value
= fields
->f_m4
;
1014 case FR30_OPERAND_PS
:
1017 case FR30_OPERAND_REGLIST_HI_LD
:
1018 value
= fields
->f_reglist_hi_ld
;
1020 case FR30_OPERAND_REGLIST_HI_ST
:
1021 value
= fields
->f_reglist_hi_st
;
1023 case FR30_OPERAND_REGLIST_LOW_LD
:
1024 value
= fields
->f_reglist_low_ld
;
1026 case FR30_OPERAND_REGLIST_LOW_ST
:
1027 value
= fields
->f_reglist_low_st
;
1029 case FR30_OPERAND_S10
:
1030 value
= fields
->f_s10
;
1032 case FR30_OPERAND_U10
:
1033 value
= fields
->f_u10
;
1035 case FR30_OPERAND_U4
:
1036 value
= fields
->f_u4
;
1038 case FR30_OPERAND_U4C
:
1039 value
= fields
->f_u4c
;
1041 case FR30_OPERAND_U8
:
1042 value
= fields
->f_u8
;
1044 case FR30_OPERAND_UDISP6
:
1045 value
= fields
->f_udisp6
;
1049 /* xgettext:c-format */
1050 fprintf (stderr
, _("Unrecognized field %d while getting int operand.\n"),
1059 fr30_cgen_get_vma_operand (cd
, opindex
, fields
)
1062 const CGEN_FIELDS
* fields
;
1068 case FR30_OPERAND_CRI
:
1069 value
= fields
->f_CRi
;
1071 case FR30_OPERAND_CRJ
:
1072 value
= fields
->f_CRj
;
1074 case FR30_OPERAND_R13
:
1077 case FR30_OPERAND_R14
:
1080 case FR30_OPERAND_R15
:
1083 case FR30_OPERAND_RI
:
1084 value
= fields
->f_Ri
;
1086 case FR30_OPERAND_RIC
:
1087 value
= fields
->f_Ric
;
1089 case FR30_OPERAND_RJ
:
1090 value
= fields
->f_Rj
;
1092 case FR30_OPERAND_RJC
:
1093 value
= fields
->f_Rjc
;
1095 case FR30_OPERAND_RS1
:
1096 value
= fields
->f_Rs1
;
1098 case FR30_OPERAND_RS2
:
1099 value
= fields
->f_Rs2
;
1101 case FR30_OPERAND_CC
:
1102 value
= fields
->f_cc
;
1104 case FR30_OPERAND_CCC
:
1105 value
= fields
->f_ccc
;
1107 case FR30_OPERAND_DIR10
:
1108 value
= fields
->f_dir10
;
1110 case FR30_OPERAND_DIR8
:
1111 value
= fields
->f_dir8
;
1113 case FR30_OPERAND_DIR9
:
1114 value
= fields
->f_dir9
;
1116 case FR30_OPERAND_DISP10
:
1117 value
= fields
->f_disp10
;
1119 case FR30_OPERAND_DISP8
:
1120 value
= fields
->f_disp8
;
1122 case FR30_OPERAND_DISP9
:
1123 value
= fields
->f_disp9
;
1125 case FR30_OPERAND_I20
:
1126 value
= fields
->f_i20
;
1128 case FR30_OPERAND_I32
:
1129 value
= fields
->f_i32
;
1131 case FR30_OPERAND_I8
:
1132 value
= fields
->f_i8
;
1134 case FR30_OPERAND_LABEL12
:
1135 value
= fields
->f_rel12
;
1137 case FR30_OPERAND_LABEL9
:
1138 value
= fields
->f_rel9
;
1140 case FR30_OPERAND_M4
:
1141 value
= fields
->f_m4
;
1143 case FR30_OPERAND_PS
:
1146 case FR30_OPERAND_REGLIST_HI_LD
:
1147 value
= fields
->f_reglist_hi_ld
;
1149 case FR30_OPERAND_REGLIST_HI_ST
:
1150 value
= fields
->f_reglist_hi_st
;
1152 case FR30_OPERAND_REGLIST_LOW_LD
:
1153 value
= fields
->f_reglist_low_ld
;
1155 case FR30_OPERAND_REGLIST_LOW_ST
:
1156 value
= fields
->f_reglist_low_st
;
1158 case FR30_OPERAND_S10
:
1159 value
= fields
->f_s10
;
1161 case FR30_OPERAND_U10
:
1162 value
= fields
->f_u10
;
1164 case FR30_OPERAND_U4
:
1165 value
= fields
->f_u4
;
1167 case FR30_OPERAND_U4C
:
1168 value
= fields
->f_u4c
;
1170 case FR30_OPERAND_U8
:
1171 value
= fields
->f_u8
;
1173 case FR30_OPERAND_UDISP6
:
1174 value
= fields
->f_udisp6
;
1178 /* xgettext:c-format */
1179 fprintf (stderr
, _("Unrecognized field %d while getting vma operand.\n"),
1187 /* Stuffing values in cgen_fields is handled by a collection of functions.
1188 They are distinguished by the type of the VALUE argument they accept.
1189 TODO: floating point, inlining support, remove cases where argument type
1193 fr30_cgen_set_int_operand (cd
, opindex
, fields
, value
)
1196 CGEN_FIELDS
* fields
;
1201 case FR30_OPERAND_CRI
:
1202 fields
->f_CRi
= value
;
1204 case FR30_OPERAND_CRJ
:
1205 fields
->f_CRj
= value
;
1207 case FR30_OPERAND_R13
:
1209 case FR30_OPERAND_R14
:
1211 case FR30_OPERAND_R15
:
1213 case FR30_OPERAND_RI
:
1214 fields
->f_Ri
= value
;
1216 case FR30_OPERAND_RIC
:
1217 fields
->f_Ric
= value
;
1219 case FR30_OPERAND_RJ
:
1220 fields
->f_Rj
= value
;
1222 case FR30_OPERAND_RJC
:
1223 fields
->f_Rjc
= value
;
1225 case FR30_OPERAND_RS1
:
1226 fields
->f_Rs1
= value
;
1228 case FR30_OPERAND_RS2
:
1229 fields
->f_Rs2
= value
;
1231 case FR30_OPERAND_CC
:
1232 fields
->f_cc
= value
;
1234 case FR30_OPERAND_CCC
:
1235 fields
->f_ccc
= value
;
1237 case FR30_OPERAND_DIR10
:
1238 fields
->f_dir10
= value
;
1240 case FR30_OPERAND_DIR8
:
1241 fields
->f_dir8
= value
;
1243 case FR30_OPERAND_DIR9
:
1244 fields
->f_dir9
= value
;
1246 case FR30_OPERAND_DISP10
:
1247 fields
->f_disp10
= value
;
1249 case FR30_OPERAND_DISP8
:
1250 fields
->f_disp8
= value
;
1252 case FR30_OPERAND_DISP9
:
1253 fields
->f_disp9
= value
;
1255 case FR30_OPERAND_I20
:
1256 fields
->f_i20
= value
;
1258 case FR30_OPERAND_I32
:
1259 fields
->f_i32
= value
;
1261 case FR30_OPERAND_I8
:
1262 fields
->f_i8
= value
;
1264 case FR30_OPERAND_LABEL12
:
1265 fields
->f_rel12
= value
;
1267 case FR30_OPERAND_LABEL9
:
1268 fields
->f_rel9
= value
;
1270 case FR30_OPERAND_M4
:
1271 fields
->f_m4
= value
;
1273 case FR30_OPERAND_PS
:
1275 case FR30_OPERAND_REGLIST_HI_LD
:
1276 fields
->f_reglist_hi_ld
= value
;
1278 case FR30_OPERAND_REGLIST_HI_ST
:
1279 fields
->f_reglist_hi_st
= value
;
1281 case FR30_OPERAND_REGLIST_LOW_LD
:
1282 fields
->f_reglist_low_ld
= value
;
1284 case FR30_OPERAND_REGLIST_LOW_ST
:
1285 fields
->f_reglist_low_st
= value
;
1287 case FR30_OPERAND_S10
:
1288 fields
->f_s10
= value
;
1290 case FR30_OPERAND_U10
:
1291 fields
->f_u10
= value
;
1293 case FR30_OPERAND_U4
:
1294 fields
->f_u4
= value
;
1296 case FR30_OPERAND_U4C
:
1297 fields
->f_u4c
= value
;
1299 case FR30_OPERAND_U8
:
1300 fields
->f_u8
= value
;
1302 case FR30_OPERAND_UDISP6
:
1303 fields
->f_udisp6
= value
;
1307 /* xgettext:c-format */
1308 fprintf (stderr
, _("Unrecognized field %d while setting int operand.\n"),
1315 fr30_cgen_set_vma_operand (cd
, opindex
, fields
, value
)
1318 CGEN_FIELDS
* fields
;
1323 case FR30_OPERAND_CRI
:
1324 fields
->f_CRi
= value
;
1326 case FR30_OPERAND_CRJ
:
1327 fields
->f_CRj
= value
;
1329 case FR30_OPERAND_R13
:
1331 case FR30_OPERAND_R14
:
1333 case FR30_OPERAND_R15
:
1335 case FR30_OPERAND_RI
:
1336 fields
->f_Ri
= value
;
1338 case FR30_OPERAND_RIC
:
1339 fields
->f_Ric
= value
;
1341 case FR30_OPERAND_RJ
:
1342 fields
->f_Rj
= value
;
1344 case FR30_OPERAND_RJC
:
1345 fields
->f_Rjc
= value
;
1347 case FR30_OPERAND_RS1
:
1348 fields
->f_Rs1
= value
;
1350 case FR30_OPERAND_RS2
:
1351 fields
->f_Rs2
= value
;
1353 case FR30_OPERAND_CC
:
1354 fields
->f_cc
= value
;
1356 case FR30_OPERAND_CCC
:
1357 fields
->f_ccc
= value
;
1359 case FR30_OPERAND_DIR10
:
1360 fields
->f_dir10
= value
;
1362 case FR30_OPERAND_DIR8
:
1363 fields
->f_dir8
= value
;
1365 case FR30_OPERAND_DIR9
:
1366 fields
->f_dir9
= value
;
1368 case FR30_OPERAND_DISP10
:
1369 fields
->f_disp10
= value
;
1371 case FR30_OPERAND_DISP8
:
1372 fields
->f_disp8
= value
;
1374 case FR30_OPERAND_DISP9
:
1375 fields
->f_disp9
= value
;
1377 case FR30_OPERAND_I20
:
1378 fields
->f_i20
= value
;
1380 case FR30_OPERAND_I32
:
1381 fields
->f_i32
= value
;
1383 case FR30_OPERAND_I8
:
1384 fields
->f_i8
= value
;
1386 case FR30_OPERAND_LABEL12
:
1387 fields
->f_rel12
= value
;
1389 case FR30_OPERAND_LABEL9
:
1390 fields
->f_rel9
= value
;
1392 case FR30_OPERAND_M4
:
1393 fields
->f_m4
= value
;
1395 case FR30_OPERAND_PS
:
1397 case FR30_OPERAND_REGLIST_HI_LD
:
1398 fields
->f_reglist_hi_ld
= value
;
1400 case FR30_OPERAND_REGLIST_HI_ST
:
1401 fields
->f_reglist_hi_st
= value
;
1403 case FR30_OPERAND_REGLIST_LOW_LD
:
1404 fields
->f_reglist_low_ld
= value
;
1406 case FR30_OPERAND_REGLIST_LOW_ST
:
1407 fields
->f_reglist_low_st
= value
;
1409 case FR30_OPERAND_S10
:
1410 fields
->f_s10
= value
;
1412 case FR30_OPERAND_U10
:
1413 fields
->f_u10
= value
;
1415 case FR30_OPERAND_U4
:
1416 fields
->f_u4
= value
;
1418 case FR30_OPERAND_U4C
:
1419 fields
->f_u4c
= value
;
1421 case FR30_OPERAND_U8
:
1422 fields
->f_u8
= value
;
1424 case FR30_OPERAND_UDISP6
:
1425 fields
->f_udisp6
= value
;
1429 /* xgettext:c-format */
1430 fprintf (stderr
, _("Unrecognized field %d while setting vma operand.\n"),
1436 /* Function to call before using the instruction builder tables. */
1439 fr30_cgen_init_ibld_table (cd
)
1442 cd
->insert_handlers
= & fr30_cgen_insert_handlers
[0];
1443 cd
->extract_handlers
= & fr30_cgen_extract_handlers
[0];
1445 cd
->insert_operand
= fr30_cgen_insert_operand
;
1446 cd
->extract_operand
= fr30_cgen_extract_operand
;
1448 cd
->get_int_operand
= fr30_cgen_get_int_operand
;
1449 cd
->set_int_operand
= fr30_cgen_set_int_operand
;
1450 cd
->get_vma_operand
= fr30_cgen_get_vma_operand
;
1451 cd
->set_vma_operand
= fr30_cgen_set_vma_operand
;