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_SIGN_OPT
))
150 long minval
= - (1L << (length
- 1));
151 unsigned long maxval
= mask
;
153 if ((value
> 0 && (unsigned long) value
> maxval
)
156 /* xgettext:c-format */
158 _("operand out of range (%ld not between %ld and %lu)"),
159 value
, minval
, maxval
);
163 else if (! CGEN_BOOL_ATTR (attrs
, CGEN_IFLD_SIGNED
))
165 unsigned long maxval
= mask
;
167 if ((unsigned long) value
> maxval
)
169 /* xgettext:c-format */
171 _("operand out of range (%lu not between 0 and %lu)"),
178 if (! cgen_signed_overflow_ok_p (cd
))
180 long minval
= - (1L << (length
- 1));
181 long maxval
= (1L << (length
- 1)) - 1;
183 if (value
< minval
|| value
> maxval
)
186 /* xgettext:c-format */
187 (errbuf
, _("operand out of range (%ld not between %ld and %ld)"),
188 value
, minval
, maxval
);
199 if (CGEN_INSN_LSB0_P
)
200 shift
= (word_offset
+ start
+ 1) - length
;
202 shift
= total_length
- (word_offset
+ start
+ length
);
203 *buffer
= (*buffer
& ~(mask
<< shift
)) | ((value
& mask
) << shift
);
206 #else /* ! CGEN_INT_INSN_P */
209 unsigned char *bufp
= (unsigned char *) buffer
+ word_offset
/ 8;
211 insert_1 (cd
, value
, start
, length
, word_length
, bufp
);
214 #endif /* ! CGEN_INT_INSN_P */
219 /* Default insn builder (insert handler).
220 The instruction is recorded in CGEN_INT_INSN_P byte order (meaning
221 that if CGEN_INSN_BYTES_PTR is an int * and thus, the value is
222 recorded in host byte order, otherwise BUFFER is an array of bytes
223 and the value is recorded in target byte order).
224 The result is an error message or NULL if success. */
227 insert_insn_normal (cd
, insn
, fields
, buffer
, pc
)
229 const CGEN_INSN
* insn
;
230 CGEN_FIELDS
* fields
;
231 CGEN_INSN_BYTES_PTR buffer
;
234 const CGEN_SYNTAX
*syntax
= CGEN_INSN_SYNTAX (insn
);
236 const CGEN_SYNTAX_CHAR_TYPE
* syn
;
238 CGEN_INIT_INSERT (cd
);
239 value
= CGEN_INSN_BASE_VALUE (insn
);
241 /* If we're recording insns as numbers (rather than a string of bytes),
242 target byte order handling is deferred until later. */
246 put_insn_int_value (cd
, buffer
, cd
->base_insn_bitsize
,
247 CGEN_FIELDS_BITSIZE (fields
), value
);
251 cgen_put_insn_value (cd
, buffer
, min (cd
->base_insn_bitsize
,
252 CGEN_FIELDS_BITSIZE (fields
)),
255 #endif /* ! CGEN_INT_INSN_P */
257 /* ??? It would be better to scan the format's fields.
258 Still need to be able to insert a value based on the operand though;
259 e.g. storing a branch displacement that got resolved later.
260 Needs more thought first. */
262 for (syn
= CGEN_SYNTAX_STRING (syntax
); * syn
; ++ syn
)
266 if (CGEN_SYNTAX_CHAR_P (* syn
))
269 errmsg
= (* cd
->insert_operand
) (cd
, CGEN_SYNTAX_FIELD (*syn
),
278 /* Cover function to store an insn value into an integral insn. Must go here
279 because it needs <prefix>-desc.h for CGEN_INT_INSN_P. */
282 put_insn_int_value (cd
, buf
, length
, insn_length
, value
)
283 CGEN_CPU_DESC cd ATTRIBUTE_UNUSED
;
284 CGEN_INSN_BYTES_PTR buf
;
289 /* For architectures with insns smaller than the base-insn-bitsize,
290 length may be too big. */
291 if (length
> insn_length
)
295 int shift
= insn_length
- length
;
296 /* Written this way to avoid undefined behaviour. */
297 CGEN_INSN_INT mask
= (((1L << (length
- 1)) - 1) << 1) | 1;
298 *buf
= (*buf
& ~(mask
<< shift
)) | ((value
& mask
) << shift
);
302 /* Operand extraction. */
304 #if ! CGEN_INT_INSN_P
306 /* Subroutine of extract_normal.
307 Ensure sufficient bytes are cached in EX_INFO.
308 OFFSET is the offset in bytes from the start of the insn of the value.
309 BYTES is the length of the needed value.
310 Returns 1 for success, 0 for failure. */
312 static CGEN_INLINE
int
313 fill_cache (cd
, ex_info
, offset
, bytes
, pc
)
315 CGEN_EXTRACT_INFO
*ex_info
;
319 /* It's doubtful that the middle part has already been fetched so
320 we don't optimize that case. kiss. */
322 disassemble_info
*info
= (disassemble_info
*) ex_info
->dis_info
;
324 /* First do a quick check. */
325 mask
= (1 << bytes
) - 1;
326 if (((ex_info
->valid
>> offset
) & mask
) == mask
)
329 /* Search for the first byte we need to read. */
330 for (mask
= 1 << offset
; bytes
> 0; --bytes
, ++offset
, mask
<<= 1)
331 if (! (mask
& ex_info
->valid
))
339 status
= (*info
->read_memory_func
)
340 (pc
, ex_info
->insn_bytes
+ offset
, bytes
, info
);
344 (*info
->memory_error_func
) (status
, pc
, info
);
348 ex_info
->valid
|= ((1 << bytes
) - 1) << offset
;
354 /* Subroutine of extract_normal. */
356 static CGEN_INLINE
long
357 extract_1 (cd
, ex_info
, start
, length
, word_length
, bufp
, pc
)
359 CGEN_EXTRACT_INFO
*ex_info
;
360 int start
,length
,word_length
;
366 int big_p
= CGEN_CPU_INSN_ENDIAN (cd
) == CGEN_ENDIAN_BIG
;
368 x
= bfd_get_bits (bufp
, word_length
, big_p
);
370 if (CGEN_INSN_LSB0_P
)
371 shift
= (start
+ 1) - length
;
373 shift
= (word_length
- (start
+ length
));
377 #endif /* ! CGEN_INT_INSN_P */
379 /* Default extraction routine.
381 INSN_VALUE is the first base_insn_bitsize bits of the insn in host order,
382 or sometimes less for cases like the m32r where the base insn size is 32
383 but some insns are 16 bits.
384 ATTRS is a mask of the boolean attributes. We only need `SIGNED',
385 but for generality we take a bitmask of all of them.
386 WORD_OFFSET is the offset in bits from the start of the insn of the value.
387 WORD_LENGTH is the length of the word in bits in which the value resides.
388 START is the starting bit number in the word, architecture origin.
389 LENGTH is the length of VALUE in bits.
390 TOTAL_LENGTH is the total length of the insn in bits.
392 Returns 1 for success, 0 for failure. */
394 /* ??? The return code isn't properly used. wip. */
396 /* ??? This doesn't handle bfd_vma's. Create another function when
400 extract_normal (cd
, ex_info
, insn_value
, attrs
, word_offset
, start
, length
,
401 word_length
, total_length
, pc
, valuep
)
403 #if ! CGEN_INT_INSN_P
404 CGEN_EXTRACT_INFO
*ex_info
;
406 CGEN_EXTRACT_INFO
*ex_info ATTRIBUTE_UNUSED
;
408 CGEN_INSN_INT insn_value
;
410 unsigned int word_offset
, start
, length
, word_length
, total_length
;
411 #if ! CGEN_INT_INSN_P
414 bfd_vma pc ATTRIBUTE_UNUSED
;
420 /* If LENGTH is zero, this operand doesn't contribute to the value
421 so give it a standard value of zero. */
434 if (word_length
> 32)
437 /* For architectures with insns smaller than the insn-base-bitsize,
438 word_length may be too big. */
439 if (cd
->min_insn_bitsize
< cd
->base_insn_bitsize
)
442 && word_length
> total_length
)
443 word_length
= total_length
;
446 /* Does the value reside in INSN_VALUE, and at the right alignment? */
448 if (CGEN_INT_INSN_P
|| (word_offset
== 0 && word_length
== total_length
))
450 if (CGEN_INSN_LSB0_P
)
451 value
= insn_value
>> ((word_offset
+ start
+ 1) - length
);
453 value
= insn_value
>> (total_length
- ( word_offset
+ start
+ length
));
456 #if ! CGEN_INT_INSN_P
460 unsigned char *bufp
= ex_info
->insn_bytes
+ word_offset
/ 8;
462 if (word_length
> 32)
465 if (fill_cache (cd
, ex_info
, word_offset
/ 8, word_length
/ 8, pc
) == 0)
468 value
= extract_1 (cd
, ex_info
, start
, length
, word_length
, bufp
, pc
);
471 #endif /* ! CGEN_INT_INSN_P */
473 /* Written this way to avoid undefined behaviour. */
474 mask
= (((1L << (length
- 1)) - 1) << 1) | 1;
478 if (CGEN_BOOL_ATTR (attrs
, CGEN_IFLD_SIGNED
)
479 && (value
& (1L << (length
- 1))))
487 /* Default insn extractor.
489 INSN_VALUE is the first base_insn_bitsize bits, translated to host order.
490 The extracted fields are stored in FIELDS.
491 EX_INFO is used to handle reading variable length insns.
492 Return the length of the insn in bits, or 0 if no match,
493 or -1 if an error occurs fetching data (memory_error_func will have
497 extract_insn_normal (cd
, insn
, ex_info
, insn_value
, fields
, pc
)
499 const CGEN_INSN
*insn
;
500 CGEN_EXTRACT_INFO
*ex_info
;
501 CGEN_INSN_INT insn_value
;
505 const CGEN_SYNTAX
*syntax
= CGEN_INSN_SYNTAX (insn
);
506 const CGEN_SYNTAX_CHAR_TYPE
*syn
;
508 CGEN_FIELDS_BITSIZE (fields
) = CGEN_INSN_BITSIZE (insn
);
510 CGEN_INIT_EXTRACT (cd
);
512 for (syn
= CGEN_SYNTAX_STRING (syntax
); *syn
; ++syn
)
516 if (CGEN_SYNTAX_CHAR_P (*syn
))
519 length
= (* cd
->extract_operand
) (cd
, CGEN_SYNTAX_FIELD (*syn
),
520 ex_info
, insn_value
, fields
, pc
);
525 /* We recognized and successfully extracted this insn. */
526 return CGEN_INSN_BITSIZE (insn
);
529 /* machine generated code added here */
531 /* Main entry point for operand insertion.
533 This function is basically just a big switch statement. Earlier versions
534 used tables to look up the function to use, but
535 - if the table contains both assembler and disassembler functions then
536 the disassembler contains much of the assembler and vice-versa,
537 - there's a lot of inlining possibilities as things grow,
538 - using a switch statement avoids the function call overhead.
540 This function could be moved into `parse_insn_normal', but keeping it
541 separate makes clear the interface between `parse_insn_normal' and each of
542 the handlers. It's also needed by GAS to insert operands that couldn't be
543 resolved during parsing.
547 fr30_cgen_insert_operand (cd
, opindex
, fields
, buffer
, pc
)
550 CGEN_FIELDS
* fields
;
551 CGEN_INSN_BYTES_PTR buffer
;
554 const char * errmsg
= NULL
;
555 unsigned int total_length
= CGEN_FIELDS_BITSIZE (fields
);
559 case FR30_OPERAND_CRI
:
560 errmsg
= insert_normal (cd
, fields
->f_CRi
, 0, 16, 12, 4, 16, total_length
, buffer
);
562 case FR30_OPERAND_CRJ
:
563 errmsg
= insert_normal (cd
, fields
->f_CRj
, 0, 16, 8, 4, 16, total_length
, buffer
);
565 case FR30_OPERAND_R13
:
567 case FR30_OPERAND_R14
:
569 case FR30_OPERAND_R15
:
571 case FR30_OPERAND_RI
:
572 errmsg
= insert_normal (cd
, fields
->f_Ri
, 0, 0, 12, 4, 16, total_length
, buffer
);
574 case FR30_OPERAND_RIC
:
575 errmsg
= insert_normal (cd
, fields
->f_Ric
, 0, 16, 12, 4, 16, total_length
, buffer
);
577 case FR30_OPERAND_RJ
:
578 errmsg
= insert_normal (cd
, fields
->f_Rj
, 0, 0, 8, 4, 16, total_length
, buffer
);
580 case FR30_OPERAND_RJC
:
581 errmsg
= insert_normal (cd
, fields
->f_Rjc
, 0, 16, 8, 4, 16, total_length
, buffer
);
583 case FR30_OPERAND_RS1
:
584 errmsg
= insert_normal (cd
, fields
->f_Rs1
, 0, 0, 8, 4, 16, total_length
, buffer
);
586 case FR30_OPERAND_RS2
:
587 errmsg
= insert_normal (cd
, fields
->f_Rs2
, 0, 0, 12, 4, 16, total_length
, buffer
);
589 case FR30_OPERAND_CC
:
590 errmsg
= insert_normal (cd
, fields
->f_cc
, 0, 0, 4, 4, 16, total_length
, buffer
);
592 case FR30_OPERAND_CCC
:
593 errmsg
= insert_normal (cd
, fields
->f_ccc
, 0, 16, 0, 8, 16, total_length
, buffer
);
595 case FR30_OPERAND_DIR10
:
597 long value
= fields
->f_dir10
;
598 value
= ((unsigned int) (value
) >> (2));
599 errmsg
= insert_normal (cd
, value
, 0, 0, 8, 8, 16, total_length
, buffer
);
602 case FR30_OPERAND_DIR8
:
603 errmsg
= insert_normal (cd
, fields
->f_dir8
, 0, 0, 8, 8, 16, total_length
, buffer
);
605 case FR30_OPERAND_DIR9
:
607 long value
= fields
->f_dir9
;
608 value
= ((unsigned int) (value
) >> (1));
609 errmsg
= insert_normal (cd
, value
, 0, 0, 8, 8, 16, total_length
, buffer
);
612 case FR30_OPERAND_DISP10
:
614 long value
= fields
->f_disp10
;
615 value
= ((int) (value
) >> (2));
616 errmsg
= insert_normal (cd
, value
, 0|(1<<CGEN_IFLD_SIGNED
), 0, 4, 8, 16, total_length
, buffer
);
619 case FR30_OPERAND_DISP8
:
620 errmsg
= insert_normal (cd
, fields
->f_disp8
, 0|(1<<CGEN_IFLD_SIGNED
), 0, 4, 8, 16, total_length
, buffer
);
622 case FR30_OPERAND_DISP9
:
624 long value
= fields
->f_disp9
;
625 value
= ((int) (value
) >> (1));
626 errmsg
= insert_normal (cd
, value
, 0|(1<<CGEN_IFLD_SIGNED
), 0, 4, 8, 16, total_length
, buffer
);
629 case FR30_OPERAND_I20
:
632 FLD (f_i20_4
) = ((unsigned int) (FLD (f_i20
)) >> (16));
633 FLD (f_i20_16
) = ((FLD (f_i20
)) & (65535));
635 errmsg
= insert_normal (cd
, fields
->f_i20_4
, 0, 0, 8, 4, 16, total_length
, buffer
);
638 errmsg
= insert_normal (cd
, fields
->f_i20_16
, 0, 16, 0, 16, 16, total_length
, buffer
);
643 case FR30_OPERAND_I32
:
644 errmsg
= insert_normal (cd
, fields
->f_i32
, 0|(1<<CGEN_IFLD_SIGN_OPT
), 16, 0, 32, 32, total_length
, buffer
);
646 case FR30_OPERAND_I8
:
647 errmsg
= insert_normal (cd
, fields
->f_i8
, 0, 0, 4, 8, 16, total_length
, buffer
);
649 case FR30_OPERAND_LABEL12
:
651 long value
= fields
->f_rel12
;
652 value
= ((int) (((value
) - (((pc
) + (2))))) >> (1));
653 errmsg
= insert_normal (cd
, value
, 0|(1<<CGEN_IFLD_SIGNED
)|(1<<CGEN_IFLD_PCREL_ADDR
), 0, 5, 11, 16, total_length
, buffer
);
656 case FR30_OPERAND_LABEL9
:
658 long value
= fields
->f_rel9
;
659 value
= ((int) (((value
) - (((pc
) + (2))))) >> (1));
660 errmsg
= insert_normal (cd
, value
, 0|(1<<CGEN_IFLD_SIGNED
)|(1<<CGEN_IFLD_PCREL_ADDR
), 0, 8, 8, 16, total_length
, buffer
);
663 case FR30_OPERAND_M4
:
665 long value
= fields
->f_m4
;
666 value
= ((value
) & (15));
667 errmsg
= insert_normal (cd
, value
, 0, 0, 8, 4, 16, total_length
, buffer
);
670 case FR30_OPERAND_PS
:
672 case FR30_OPERAND_REGLIST_HI_LD
:
673 errmsg
= insert_normal (cd
, fields
->f_reglist_hi_ld
, 0, 0, 8, 8, 16, total_length
, buffer
);
675 case FR30_OPERAND_REGLIST_HI_ST
:
676 errmsg
= insert_normal (cd
, fields
->f_reglist_hi_st
, 0, 0, 8, 8, 16, total_length
, buffer
);
678 case FR30_OPERAND_REGLIST_LOW_LD
:
679 errmsg
= insert_normal (cd
, fields
->f_reglist_low_ld
, 0, 0, 8, 8, 16, total_length
, buffer
);
681 case FR30_OPERAND_REGLIST_LOW_ST
:
682 errmsg
= insert_normal (cd
, fields
->f_reglist_low_st
, 0, 0, 8, 8, 16, total_length
, buffer
);
684 case FR30_OPERAND_S10
:
686 long value
= fields
->f_s10
;
687 value
= ((int) (value
) >> (2));
688 errmsg
= insert_normal (cd
, value
, 0|(1<<CGEN_IFLD_SIGNED
), 0, 8, 8, 16, total_length
, buffer
);
691 case FR30_OPERAND_U10
:
693 long value
= fields
->f_u10
;
694 value
= ((unsigned int) (value
) >> (2));
695 errmsg
= insert_normal (cd
, value
, 0, 0, 8, 8, 16, total_length
, buffer
);
698 case FR30_OPERAND_U4
:
699 errmsg
= insert_normal (cd
, fields
->f_u4
, 0, 0, 8, 4, 16, total_length
, buffer
);
701 case FR30_OPERAND_U4C
:
702 errmsg
= insert_normal (cd
, fields
->f_u4c
, 0, 0, 12, 4, 16, total_length
, buffer
);
704 case FR30_OPERAND_U8
:
705 errmsg
= insert_normal (cd
, fields
->f_u8
, 0, 0, 8, 8, 16, total_length
, buffer
);
707 case FR30_OPERAND_UDISP6
:
709 long value
= fields
->f_udisp6
;
710 value
= ((unsigned int) (value
) >> (2));
711 errmsg
= insert_normal (cd
, value
, 0, 0, 8, 4, 16, total_length
, buffer
);
716 /* xgettext:c-format */
717 fprintf (stderr
, _("Unrecognized field %d while building insn.\n"),
725 /* Main entry point for operand extraction.
726 The result is <= 0 for error, >0 for success.
727 ??? Actual values aren't well defined right now.
729 This function is basically just a big switch statement. Earlier versions
730 used tables to look up the function to use, but
731 - if the table contains both assembler and disassembler functions then
732 the disassembler contains much of the assembler and vice-versa,
733 - there's a lot of inlining possibilities as things grow,
734 - using a switch statement avoids the function call overhead.
736 This function could be moved into `print_insn_normal', but keeping it
737 separate makes clear the interface between `print_insn_normal' and each of
742 fr30_cgen_extract_operand (cd
, opindex
, ex_info
, insn_value
, fields
, pc
)
745 CGEN_EXTRACT_INFO
*ex_info
;
746 CGEN_INSN_INT insn_value
;
747 CGEN_FIELDS
* fields
;
750 /* Assume success (for those operands that are nops). */
752 unsigned int total_length
= CGEN_FIELDS_BITSIZE (fields
);
756 case FR30_OPERAND_CRI
:
757 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 16, 12, 4, 16, total_length
, pc
, & fields
->f_CRi
);
759 case FR30_OPERAND_CRJ
:
760 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 16, 8, 4, 16, total_length
, pc
, & fields
->f_CRj
);
762 case FR30_OPERAND_R13
:
764 case FR30_OPERAND_R14
:
766 case FR30_OPERAND_R15
:
768 case FR30_OPERAND_RI
:
769 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 12, 4, 16, total_length
, pc
, & fields
->f_Ri
);
771 case FR30_OPERAND_RIC
:
772 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 16, 12, 4, 16, total_length
, pc
, & fields
->f_Ric
);
774 case FR30_OPERAND_RJ
:
775 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 8, 4, 16, total_length
, pc
, & fields
->f_Rj
);
777 case FR30_OPERAND_RJC
:
778 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 16, 8, 4, 16, total_length
, pc
, & fields
->f_Rjc
);
780 case FR30_OPERAND_RS1
:
781 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 8, 4, 16, total_length
, pc
, & fields
->f_Rs1
);
783 case FR30_OPERAND_RS2
:
784 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 12, 4, 16, total_length
, pc
, & fields
->f_Rs2
);
786 case FR30_OPERAND_CC
:
787 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 4, 4, 16, total_length
, pc
, & fields
->f_cc
);
789 case FR30_OPERAND_CCC
:
790 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 16, 0, 8, 16, total_length
, pc
, & fields
->f_ccc
);
792 case FR30_OPERAND_DIR10
:
795 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 8, 8, 16, total_length
, pc
, & value
);
796 value
= ((value
) << (2));
797 fields
->f_dir10
= value
;
800 case FR30_OPERAND_DIR8
:
801 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 8, 8, 16, total_length
, pc
, & fields
->f_dir8
);
803 case FR30_OPERAND_DIR9
:
806 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 8, 8, 16, total_length
, pc
, & value
);
807 value
= ((value
) << (1));
808 fields
->f_dir9
= value
;
811 case FR30_OPERAND_DISP10
:
814 length
= extract_normal (cd
, ex_info
, insn_value
, 0|(1<<CGEN_IFLD_SIGNED
), 0, 4, 8, 16, total_length
, pc
, & value
);
815 value
= ((value
) << (2));
816 fields
->f_disp10
= value
;
819 case FR30_OPERAND_DISP8
:
820 length
= extract_normal (cd
, ex_info
, insn_value
, 0|(1<<CGEN_IFLD_SIGNED
), 0, 4, 8, 16, total_length
, pc
, & fields
->f_disp8
);
822 case FR30_OPERAND_DISP9
:
825 length
= extract_normal (cd
, ex_info
, insn_value
, 0|(1<<CGEN_IFLD_SIGNED
), 0, 4, 8, 16, total_length
, pc
, & value
);
826 value
= ((value
) << (1));
827 fields
->f_disp9
= value
;
830 case FR30_OPERAND_I20
:
832 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 8, 4, 16, total_length
, pc
, & fields
->f_i20_4
);
833 if (length
<= 0) break;
834 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 16, 0, 16, 16, total_length
, pc
, & fields
->f_i20_16
);
835 if (length
<= 0) break;
837 FLD (f_i20
) = ((((FLD (f_i20_4
)) << (16))) | (FLD (f_i20_16
)));
841 case FR30_OPERAND_I32
:
842 length
= extract_normal (cd
, ex_info
, insn_value
, 0|(1<<CGEN_IFLD_SIGN_OPT
), 16, 0, 32, 32, total_length
, pc
, & fields
->f_i32
);
844 case FR30_OPERAND_I8
:
845 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 4, 8, 16, total_length
, pc
, & fields
->f_i8
);
847 case FR30_OPERAND_LABEL12
:
850 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
);
851 value
= ((((value
) << (1))) + (((pc
) + (2))));
852 fields
->f_rel12
= value
;
855 case FR30_OPERAND_LABEL9
:
858 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
);
859 value
= ((((value
) << (1))) + (((pc
) + (2))));
860 fields
->f_rel9
= value
;
863 case FR30_OPERAND_M4
:
866 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 8, 4, 16, total_length
, pc
, & value
);
867 value
= ((value
) | (((-1) << (4))));
868 fields
->f_m4
= value
;
871 case FR30_OPERAND_PS
:
873 case FR30_OPERAND_REGLIST_HI_LD
:
874 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 8, 8, 16, total_length
, pc
, & fields
->f_reglist_hi_ld
);
876 case FR30_OPERAND_REGLIST_HI_ST
:
877 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 8, 8, 16, total_length
, pc
, & fields
->f_reglist_hi_st
);
879 case FR30_OPERAND_REGLIST_LOW_LD
:
880 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 8, 8, 16, total_length
, pc
, & fields
->f_reglist_low_ld
);
882 case FR30_OPERAND_REGLIST_LOW_ST
:
883 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 8, 8, 16, total_length
, pc
, & fields
->f_reglist_low_st
);
885 case FR30_OPERAND_S10
:
888 length
= extract_normal (cd
, ex_info
, insn_value
, 0|(1<<CGEN_IFLD_SIGNED
), 0, 8, 8, 16, total_length
, pc
, & value
);
889 value
= ((value
) << (2));
890 fields
->f_s10
= value
;
893 case FR30_OPERAND_U10
:
896 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 8, 8, 16, total_length
, pc
, & value
);
897 value
= ((value
) << (2));
898 fields
->f_u10
= value
;
901 case FR30_OPERAND_U4
:
902 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 8, 4, 16, total_length
, pc
, & fields
->f_u4
);
904 case FR30_OPERAND_U4C
:
905 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 12, 4, 16, total_length
, pc
, & fields
->f_u4c
);
907 case FR30_OPERAND_U8
:
908 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 8, 8, 16, total_length
, pc
, & fields
->f_u8
);
910 case FR30_OPERAND_UDISP6
:
913 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 8, 4, 16, total_length
, pc
, & value
);
914 value
= ((value
) << (2));
915 fields
->f_udisp6
= value
;
920 /* xgettext:c-format */
921 fprintf (stderr
, _("Unrecognized field %d while decoding insn.\n"),
929 cgen_insert_fn
* const fr30_cgen_insert_handlers
[] =
934 cgen_extract_fn
* const fr30_cgen_extract_handlers
[] =
939 /* Getting values from cgen_fields is handled by a collection of functions.
940 They are distinguished by the type of the VALUE argument they return.
941 TODO: floating point, inlining support, remove cases where result type
945 fr30_cgen_get_int_operand (cd
, opindex
, fields
)
948 const CGEN_FIELDS
* fields
;
954 case FR30_OPERAND_CRI
:
955 value
= fields
->f_CRi
;
957 case FR30_OPERAND_CRJ
:
958 value
= fields
->f_CRj
;
960 case FR30_OPERAND_R13
:
963 case FR30_OPERAND_R14
:
966 case FR30_OPERAND_R15
:
969 case FR30_OPERAND_RI
:
970 value
= fields
->f_Ri
;
972 case FR30_OPERAND_RIC
:
973 value
= fields
->f_Ric
;
975 case FR30_OPERAND_RJ
:
976 value
= fields
->f_Rj
;
978 case FR30_OPERAND_RJC
:
979 value
= fields
->f_Rjc
;
981 case FR30_OPERAND_RS1
:
982 value
= fields
->f_Rs1
;
984 case FR30_OPERAND_RS2
:
985 value
= fields
->f_Rs2
;
987 case FR30_OPERAND_CC
:
988 value
= fields
->f_cc
;
990 case FR30_OPERAND_CCC
:
991 value
= fields
->f_ccc
;
993 case FR30_OPERAND_DIR10
:
994 value
= fields
->f_dir10
;
996 case FR30_OPERAND_DIR8
:
997 value
= fields
->f_dir8
;
999 case FR30_OPERAND_DIR9
:
1000 value
= fields
->f_dir9
;
1002 case FR30_OPERAND_DISP10
:
1003 value
= fields
->f_disp10
;
1005 case FR30_OPERAND_DISP8
:
1006 value
= fields
->f_disp8
;
1008 case FR30_OPERAND_DISP9
:
1009 value
= fields
->f_disp9
;
1011 case FR30_OPERAND_I20
:
1012 value
= fields
->f_i20
;
1014 case FR30_OPERAND_I32
:
1015 value
= fields
->f_i32
;
1017 case FR30_OPERAND_I8
:
1018 value
= fields
->f_i8
;
1020 case FR30_OPERAND_LABEL12
:
1021 value
= fields
->f_rel12
;
1023 case FR30_OPERAND_LABEL9
:
1024 value
= fields
->f_rel9
;
1026 case FR30_OPERAND_M4
:
1027 value
= fields
->f_m4
;
1029 case FR30_OPERAND_PS
:
1032 case FR30_OPERAND_REGLIST_HI_LD
:
1033 value
= fields
->f_reglist_hi_ld
;
1035 case FR30_OPERAND_REGLIST_HI_ST
:
1036 value
= fields
->f_reglist_hi_st
;
1038 case FR30_OPERAND_REGLIST_LOW_LD
:
1039 value
= fields
->f_reglist_low_ld
;
1041 case FR30_OPERAND_REGLIST_LOW_ST
:
1042 value
= fields
->f_reglist_low_st
;
1044 case FR30_OPERAND_S10
:
1045 value
= fields
->f_s10
;
1047 case FR30_OPERAND_U10
:
1048 value
= fields
->f_u10
;
1050 case FR30_OPERAND_U4
:
1051 value
= fields
->f_u4
;
1053 case FR30_OPERAND_U4C
:
1054 value
= fields
->f_u4c
;
1056 case FR30_OPERAND_U8
:
1057 value
= fields
->f_u8
;
1059 case FR30_OPERAND_UDISP6
:
1060 value
= fields
->f_udisp6
;
1064 /* xgettext:c-format */
1065 fprintf (stderr
, _("Unrecognized field %d while getting int operand.\n"),
1074 fr30_cgen_get_vma_operand (cd
, opindex
, fields
)
1077 const CGEN_FIELDS
* fields
;
1083 case FR30_OPERAND_CRI
:
1084 value
= fields
->f_CRi
;
1086 case FR30_OPERAND_CRJ
:
1087 value
= fields
->f_CRj
;
1089 case FR30_OPERAND_R13
:
1092 case FR30_OPERAND_R14
:
1095 case FR30_OPERAND_R15
:
1098 case FR30_OPERAND_RI
:
1099 value
= fields
->f_Ri
;
1101 case FR30_OPERAND_RIC
:
1102 value
= fields
->f_Ric
;
1104 case FR30_OPERAND_RJ
:
1105 value
= fields
->f_Rj
;
1107 case FR30_OPERAND_RJC
:
1108 value
= fields
->f_Rjc
;
1110 case FR30_OPERAND_RS1
:
1111 value
= fields
->f_Rs1
;
1113 case FR30_OPERAND_RS2
:
1114 value
= fields
->f_Rs2
;
1116 case FR30_OPERAND_CC
:
1117 value
= fields
->f_cc
;
1119 case FR30_OPERAND_CCC
:
1120 value
= fields
->f_ccc
;
1122 case FR30_OPERAND_DIR10
:
1123 value
= fields
->f_dir10
;
1125 case FR30_OPERAND_DIR8
:
1126 value
= fields
->f_dir8
;
1128 case FR30_OPERAND_DIR9
:
1129 value
= fields
->f_dir9
;
1131 case FR30_OPERAND_DISP10
:
1132 value
= fields
->f_disp10
;
1134 case FR30_OPERAND_DISP8
:
1135 value
= fields
->f_disp8
;
1137 case FR30_OPERAND_DISP9
:
1138 value
= fields
->f_disp9
;
1140 case FR30_OPERAND_I20
:
1141 value
= fields
->f_i20
;
1143 case FR30_OPERAND_I32
:
1144 value
= fields
->f_i32
;
1146 case FR30_OPERAND_I8
:
1147 value
= fields
->f_i8
;
1149 case FR30_OPERAND_LABEL12
:
1150 value
= fields
->f_rel12
;
1152 case FR30_OPERAND_LABEL9
:
1153 value
= fields
->f_rel9
;
1155 case FR30_OPERAND_M4
:
1156 value
= fields
->f_m4
;
1158 case FR30_OPERAND_PS
:
1161 case FR30_OPERAND_REGLIST_HI_LD
:
1162 value
= fields
->f_reglist_hi_ld
;
1164 case FR30_OPERAND_REGLIST_HI_ST
:
1165 value
= fields
->f_reglist_hi_st
;
1167 case FR30_OPERAND_REGLIST_LOW_LD
:
1168 value
= fields
->f_reglist_low_ld
;
1170 case FR30_OPERAND_REGLIST_LOW_ST
:
1171 value
= fields
->f_reglist_low_st
;
1173 case FR30_OPERAND_S10
:
1174 value
= fields
->f_s10
;
1176 case FR30_OPERAND_U10
:
1177 value
= fields
->f_u10
;
1179 case FR30_OPERAND_U4
:
1180 value
= fields
->f_u4
;
1182 case FR30_OPERAND_U4C
:
1183 value
= fields
->f_u4c
;
1185 case FR30_OPERAND_U8
:
1186 value
= fields
->f_u8
;
1188 case FR30_OPERAND_UDISP6
:
1189 value
= fields
->f_udisp6
;
1193 /* xgettext:c-format */
1194 fprintf (stderr
, _("Unrecognized field %d while getting vma operand.\n"),
1202 /* Stuffing values in cgen_fields is handled by a collection of functions.
1203 They are distinguished by the type of the VALUE argument they accept.
1204 TODO: floating point, inlining support, remove cases where argument type
1208 fr30_cgen_set_int_operand (cd
, opindex
, fields
, value
)
1211 CGEN_FIELDS
* fields
;
1216 case FR30_OPERAND_CRI
:
1217 fields
->f_CRi
= value
;
1219 case FR30_OPERAND_CRJ
:
1220 fields
->f_CRj
= value
;
1222 case FR30_OPERAND_R13
:
1224 case FR30_OPERAND_R14
:
1226 case FR30_OPERAND_R15
:
1228 case FR30_OPERAND_RI
:
1229 fields
->f_Ri
= value
;
1231 case FR30_OPERAND_RIC
:
1232 fields
->f_Ric
= value
;
1234 case FR30_OPERAND_RJ
:
1235 fields
->f_Rj
= value
;
1237 case FR30_OPERAND_RJC
:
1238 fields
->f_Rjc
= value
;
1240 case FR30_OPERAND_RS1
:
1241 fields
->f_Rs1
= value
;
1243 case FR30_OPERAND_RS2
:
1244 fields
->f_Rs2
= value
;
1246 case FR30_OPERAND_CC
:
1247 fields
->f_cc
= value
;
1249 case FR30_OPERAND_CCC
:
1250 fields
->f_ccc
= value
;
1252 case FR30_OPERAND_DIR10
:
1253 fields
->f_dir10
= value
;
1255 case FR30_OPERAND_DIR8
:
1256 fields
->f_dir8
= value
;
1258 case FR30_OPERAND_DIR9
:
1259 fields
->f_dir9
= value
;
1261 case FR30_OPERAND_DISP10
:
1262 fields
->f_disp10
= value
;
1264 case FR30_OPERAND_DISP8
:
1265 fields
->f_disp8
= value
;
1267 case FR30_OPERAND_DISP9
:
1268 fields
->f_disp9
= value
;
1270 case FR30_OPERAND_I20
:
1271 fields
->f_i20
= value
;
1273 case FR30_OPERAND_I32
:
1274 fields
->f_i32
= value
;
1276 case FR30_OPERAND_I8
:
1277 fields
->f_i8
= value
;
1279 case FR30_OPERAND_LABEL12
:
1280 fields
->f_rel12
= value
;
1282 case FR30_OPERAND_LABEL9
:
1283 fields
->f_rel9
= value
;
1285 case FR30_OPERAND_M4
:
1286 fields
->f_m4
= value
;
1288 case FR30_OPERAND_PS
:
1290 case FR30_OPERAND_REGLIST_HI_LD
:
1291 fields
->f_reglist_hi_ld
= value
;
1293 case FR30_OPERAND_REGLIST_HI_ST
:
1294 fields
->f_reglist_hi_st
= value
;
1296 case FR30_OPERAND_REGLIST_LOW_LD
:
1297 fields
->f_reglist_low_ld
= value
;
1299 case FR30_OPERAND_REGLIST_LOW_ST
:
1300 fields
->f_reglist_low_st
= value
;
1302 case FR30_OPERAND_S10
:
1303 fields
->f_s10
= value
;
1305 case FR30_OPERAND_U10
:
1306 fields
->f_u10
= value
;
1308 case FR30_OPERAND_U4
:
1309 fields
->f_u4
= value
;
1311 case FR30_OPERAND_U4C
:
1312 fields
->f_u4c
= value
;
1314 case FR30_OPERAND_U8
:
1315 fields
->f_u8
= value
;
1317 case FR30_OPERAND_UDISP6
:
1318 fields
->f_udisp6
= value
;
1322 /* xgettext:c-format */
1323 fprintf (stderr
, _("Unrecognized field %d while setting int operand.\n"),
1330 fr30_cgen_set_vma_operand (cd
, opindex
, fields
, value
)
1333 CGEN_FIELDS
* fields
;
1338 case FR30_OPERAND_CRI
:
1339 fields
->f_CRi
= value
;
1341 case FR30_OPERAND_CRJ
:
1342 fields
->f_CRj
= value
;
1344 case FR30_OPERAND_R13
:
1346 case FR30_OPERAND_R14
:
1348 case FR30_OPERAND_R15
:
1350 case FR30_OPERAND_RI
:
1351 fields
->f_Ri
= value
;
1353 case FR30_OPERAND_RIC
:
1354 fields
->f_Ric
= value
;
1356 case FR30_OPERAND_RJ
:
1357 fields
->f_Rj
= value
;
1359 case FR30_OPERAND_RJC
:
1360 fields
->f_Rjc
= value
;
1362 case FR30_OPERAND_RS1
:
1363 fields
->f_Rs1
= value
;
1365 case FR30_OPERAND_RS2
:
1366 fields
->f_Rs2
= value
;
1368 case FR30_OPERAND_CC
:
1369 fields
->f_cc
= value
;
1371 case FR30_OPERAND_CCC
:
1372 fields
->f_ccc
= value
;
1374 case FR30_OPERAND_DIR10
:
1375 fields
->f_dir10
= value
;
1377 case FR30_OPERAND_DIR8
:
1378 fields
->f_dir8
= value
;
1380 case FR30_OPERAND_DIR9
:
1381 fields
->f_dir9
= value
;
1383 case FR30_OPERAND_DISP10
:
1384 fields
->f_disp10
= value
;
1386 case FR30_OPERAND_DISP8
:
1387 fields
->f_disp8
= value
;
1389 case FR30_OPERAND_DISP9
:
1390 fields
->f_disp9
= value
;
1392 case FR30_OPERAND_I20
:
1393 fields
->f_i20
= value
;
1395 case FR30_OPERAND_I32
:
1396 fields
->f_i32
= value
;
1398 case FR30_OPERAND_I8
:
1399 fields
->f_i8
= value
;
1401 case FR30_OPERAND_LABEL12
:
1402 fields
->f_rel12
= value
;
1404 case FR30_OPERAND_LABEL9
:
1405 fields
->f_rel9
= value
;
1407 case FR30_OPERAND_M4
:
1408 fields
->f_m4
= value
;
1410 case FR30_OPERAND_PS
:
1412 case FR30_OPERAND_REGLIST_HI_LD
:
1413 fields
->f_reglist_hi_ld
= value
;
1415 case FR30_OPERAND_REGLIST_HI_ST
:
1416 fields
->f_reglist_hi_st
= value
;
1418 case FR30_OPERAND_REGLIST_LOW_LD
:
1419 fields
->f_reglist_low_ld
= value
;
1421 case FR30_OPERAND_REGLIST_LOW_ST
:
1422 fields
->f_reglist_low_st
= value
;
1424 case FR30_OPERAND_S10
:
1425 fields
->f_s10
= value
;
1427 case FR30_OPERAND_U10
:
1428 fields
->f_u10
= value
;
1430 case FR30_OPERAND_U4
:
1431 fields
->f_u4
= value
;
1433 case FR30_OPERAND_U4C
:
1434 fields
->f_u4c
= value
;
1436 case FR30_OPERAND_U8
:
1437 fields
->f_u8
= value
;
1439 case FR30_OPERAND_UDISP6
:
1440 fields
->f_udisp6
= value
;
1444 /* xgettext:c-format */
1445 fprintf (stderr
, _("Unrecognized field %d while setting vma operand.\n"),
1451 /* Function to call before using the instruction builder tables. */
1454 fr30_cgen_init_ibld_table (cd
)
1457 cd
->insert_handlers
= & fr30_cgen_insert_handlers
[0];
1458 cd
->extract_handlers
= & fr30_cgen_extract_handlers
[0];
1460 cd
->insert_operand
= fr30_cgen_insert_operand
;
1461 cd
->extract_operand
= fr30_cgen_extract_operand
;
1463 cd
->get_int_operand
= fr30_cgen_get_int_operand
;
1464 cd
->set_int_operand
= fr30_cgen_set_int_operand
;
1465 cd
->get_vma_operand
= fr30_cgen_get_vma_operand
;
1466 cd
->set_vma_operand
= fr30_cgen_set_vma_operand
;