1 /* DO NOT EDIT! -*- buffer-read-only: t -*- vi:set ro: */
2 /* Instruction building/extraction support for xstormy16. -*- C -*-
4 THIS FILE IS MACHINE GENERATED WITH CGEN: Cpu tools GENerator.
5 - the resultant file is machine generated, cgen-ibld.in isn't
7 Copyright (C) 1996-2020 Free Software Foundation, Inc.
9 This file is part of libopcodes.
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)
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.
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. */
25 /* ??? Eventually more and more of this stuff can go to cpu-independent files.
34 #include "xstormy16-desc.h"
35 #include "xstormy16-opc.h"
36 #include "cgen/basic-modes.h"
38 #include "safe-ctype.h"
41 #define min(a,b) ((a) < (b) ? (a) : (b))
43 #define max(a,b) ((a) > (b) ? (a) : (b))
45 /* Used by the ifield rtx function. */
46 #define FLD(f) (fields->f)
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
);
62 static void put_insn_int_value
63 (CGEN_CPU_DESC
, CGEN_INSN_BYTES_PTR
, int, int, CGEN_INSN_INT
);
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
);
74 /* Operand insertion. */
78 /* Subroutine of insert_normal. */
80 static CGEN_INLINE
void
81 insert_1 (CGEN_CPU_DESC cd
,
91 x
= cgen_get_insn_value (cd
, bufp
, word_length
, cd
->endian
);
93 /* Written this way to avoid undefined behaviour. */
94 mask
= (((1L << (length
- 1)) - 1) << 1) | 1;
96 shift
= (start
+ 1) - length
;
98 shift
= (word_length
- (start
+ length
));
99 x
= (x
& ~(mask
<< shift
)) | ((value
& mask
) << shift
);
101 cgen_put_insn_value (cd
, bufp
, word_length
, (bfd_vma
) x
, cd
->endian
);
104 #endif /* ! CGEN_INT_INSN_P */
106 /* Default insertion routine.
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.
115 The result is an error message or NULL if success. */
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
123 insert_normal (CGEN_CPU_DESC cd
,
126 unsigned int word_offset
,
129 unsigned int word_length
,
130 unsigned int total_length
,
131 CGEN_INSN_BYTES_PTR buffer
)
133 static char errbuf
[100];
134 /* Written this way to avoid undefined behaviour. */
135 unsigned long mask
= (((1L << (length
- 1)) - 1) << 1) | 1;
137 /* If LENGTH is zero, this operand doesn't contribute to the value. */
141 if (word_length
> 8 * sizeof (CGEN_INSN_INT
))
144 /* For architectures with insns smaller than the base-insn-bitsize,
145 word_length may be too big. */
146 if (cd
->min_insn_bitsize
< cd
->base_insn_bitsize
)
149 && word_length
> total_length
)
150 word_length
= total_length
;
153 /* Ensure VALUE will fit. */
154 if (CGEN_BOOL_ATTR (attrs
, CGEN_IFLD_SIGN_OPT
))
156 long minval
= - (1L << (length
- 1));
157 unsigned long maxval
= mask
;
159 if ((value
> 0 && (unsigned long) value
> maxval
)
162 /* xgettext:c-format */
164 _("operand out of range (%ld not between %ld and %lu)"),
165 value
, minval
, maxval
);
169 else if (! CGEN_BOOL_ATTR (attrs
, CGEN_IFLD_SIGNED
))
171 unsigned long maxval
= mask
;
172 unsigned long val
= (unsigned long) value
;
174 /* For hosts with a word size > 32 check to see if value has been sign
175 extended beyond 32 bits. If so then ignore these higher sign bits
176 as the user is attempting to store a 32-bit signed value into an
177 unsigned 32-bit field which is allowed. */
178 if (sizeof (unsigned long) > 4 && ((value
>> 32) == -1))
183 /* xgettext:c-format */
185 _("operand out of range (0x%lx not between 0 and 0x%lx)"),
192 if (! cgen_signed_overflow_ok_p (cd
))
194 long minval
= - (1L << (length
- 1));
195 long maxval
= (1L << (length
- 1)) - 1;
197 if (value
< minval
|| value
> maxval
)
200 /* xgettext:c-format */
201 (errbuf
, _("operand out of range (%ld not between %ld and %ld)"),
202 value
, minval
, maxval
);
211 int shift_within_word
, shift_to_word
, shift
;
213 /* How to shift the value to BIT0 of the word. */
214 shift_to_word
= total_length
- (word_offset
+ word_length
);
216 /* How to shift the value to the field within the word. */
217 if (CGEN_INSN_LSB0_P
)
218 shift_within_word
= start
+ 1 - length
;
220 shift_within_word
= word_length
- start
- length
;
222 /* The total SHIFT, then mask in the value. */
223 shift
= shift_to_word
+ shift_within_word
;
224 *buffer
= (*buffer
& ~(mask
<< shift
)) | ((value
& mask
) << shift
);
227 #else /* ! CGEN_INT_INSN_P */
230 unsigned char *bufp
= (unsigned char *) buffer
+ word_offset
/ 8;
232 insert_1 (cd
, value
, start
, length
, word_length
, bufp
);
235 #endif /* ! CGEN_INT_INSN_P */
240 /* Default insn builder (insert handler).
241 The instruction is recorded in CGEN_INT_INSN_P byte order (meaning
242 that if CGEN_INSN_BYTES_PTR is an int * and thus, the value is
243 recorded in host byte order, otherwise BUFFER is an array of bytes
244 and the value is recorded in target byte order).
245 The result is an error message or NULL if success. */
248 insert_insn_normal (CGEN_CPU_DESC cd
,
249 const CGEN_INSN
* insn
,
250 CGEN_FIELDS
* fields
,
251 CGEN_INSN_BYTES_PTR buffer
,
254 const CGEN_SYNTAX
*syntax
= CGEN_INSN_SYNTAX (insn
);
256 const CGEN_SYNTAX_CHAR_TYPE
* syn
;
258 CGEN_INIT_INSERT (cd
);
259 value
= CGEN_INSN_BASE_VALUE (insn
);
261 /* If we're recording insns as numbers (rather than a string of bytes),
262 target byte order handling is deferred until later. */
266 put_insn_int_value (cd
, buffer
, cd
->base_insn_bitsize
,
267 CGEN_FIELDS_BITSIZE (fields
), value
);
271 cgen_put_insn_value (cd
, buffer
, min ((unsigned) cd
->base_insn_bitsize
,
272 (unsigned) CGEN_FIELDS_BITSIZE (fields
)),
273 value
, cd
->insn_endian
);
275 #endif /* ! CGEN_INT_INSN_P */
277 /* ??? It would be better to scan the format's fields.
278 Still need to be able to insert a value based on the operand though;
279 e.g. storing a branch displacement that got resolved later.
280 Needs more thought first. */
282 for (syn
= CGEN_SYNTAX_STRING (syntax
); * syn
; ++ syn
)
286 if (CGEN_SYNTAX_CHAR_P (* syn
))
289 errmsg
= (* cd
->insert_operand
) (cd
, CGEN_SYNTAX_FIELD (*syn
),
299 /* Cover function to store an insn value into an integral insn. Must go here
300 because it needs <prefix>-desc.h for CGEN_INT_INSN_P. */
303 put_insn_int_value (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED
,
304 CGEN_INSN_BYTES_PTR buf
,
309 /* For architectures with insns smaller than the base-insn-bitsize,
310 length may be too big. */
311 if (length
> insn_length
)
315 int shift
= insn_length
- length
;
316 /* Written this way to avoid undefined behaviour. */
317 CGEN_INSN_INT mask
= (((1L << (length
- 1)) - 1) << 1) | 1;
319 *buf
= (*buf
& ~(mask
<< shift
)) | ((value
& mask
) << shift
);
324 /* Operand extraction. */
326 #if ! CGEN_INT_INSN_P
328 /* Subroutine of extract_normal.
329 Ensure sufficient bytes are cached in EX_INFO.
330 OFFSET is the offset in bytes from the start of the insn of the value.
331 BYTES is the length of the needed value.
332 Returns 1 for success, 0 for failure. */
334 static CGEN_INLINE
int
335 fill_cache (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED
,
336 CGEN_EXTRACT_INFO
*ex_info
,
341 /* It's doubtful that the middle part has already been fetched so
342 we don't optimize that case. kiss. */
344 disassemble_info
*info
= (disassemble_info
*) ex_info
->dis_info
;
346 /* First do a quick check. */
347 mask
= (1 << bytes
) - 1;
348 if (((ex_info
->valid
>> offset
) & mask
) == mask
)
351 /* Search for the first byte we need to read. */
352 for (mask
= 1 << offset
; bytes
> 0; --bytes
, ++offset
, mask
<<= 1)
353 if (! (mask
& ex_info
->valid
))
361 status
= (*info
->read_memory_func
)
362 (pc
, ex_info
->insn_bytes
+ offset
, bytes
, info
);
366 (*info
->memory_error_func
) (status
, pc
, info
);
370 ex_info
->valid
|= ((1 << bytes
) - 1) << offset
;
376 /* Subroutine of extract_normal. */
378 static CGEN_INLINE
long
379 extract_1 (CGEN_CPU_DESC cd
,
380 CGEN_EXTRACT_INFO
*ex_info ATTRIBUTE_UNUSED
,
385 bfd_vma pc ATTRIBUTE_UNUSED
)
390 x
= cgen_get_insn_value (cd
, bufp
, word_length
, cd
->endian
);
392 if (CGEN_INSN_LSB0_P
)
393 shift
= (start
+ 1) - length
;
395 shift
= (word_length
- (start
+ length
));
399 #endif /* ! CGEN_INT_INSN_P */
401 /* Default extraction routine.
403 INSN_VALUE is the first base_insn_bitsize bits of the insn in host order,
404 or sometimes less for cases like the m32r where the base insn size is 32
405 but some insns are 16 bits.
406 ATTRS is a mask of the boolean attributes. We only need `SIGNED',
407 but for generality we take a bitmask of all of them.
408 WORD_OFFSET is the offset in bits from the start of the insn of the value.
409 WORD_LENGTH is the length of the word in bits in which the value resides.
410 START is the starting bit number in the word, architecture origin.
411 LENGTH is the length of VALUE in bits.
412 TOTAL_LENGTH is the total length of the insn in bits.
414 Returns 1 for success, 0 for failure. */
416 /* ??? The return code isn't properly used. wip. */
418 /* ??? This doesn't handle bfd_vma's. Create another function when
422 extract_normal (CGEN_CPU_DESC cd
,
423 #if ! CGEN_INT_INSN_P
424 CGEN_EXTRACT_INFO
*ex_info
,
426 CGEN_EXTRACT_INFO
*ex_info ATTRIBUTE_UNUSED
,
428 CGEN_INSN_INT insn_value
,
430 unsigned int word_offset
,
433 unsigned int word_length
,
434 unsigned int total_length
,
435 #if ! CGEN_INT_INSN_P
438 bfd_vma pc ATTRIBUTE_UNUSED
,
444 /* If LENGTH is zero, this operand doesn't contribute to the value
445 so give it a standard value of zero. */
452 if (word_length
> 8 * sizeof (CGEN_INSN_INT
))
455 /* For architectures with insns smaller than the insn-base-bitsize,
456 word_length may be too big. */
457 if (cd
->min_insn_bitsize
< cd
->base_insn_bitsize
)
459 if (word_offset
+ word_length
> total_length
)
460 word_length
= total_length
- word_offset
;
463 /* Does the value reside in INSN_VALUE, and at the right alignment? */
465 if (CGEN_INT_INSN_P
|| (word_offset
== 0 && word_length
== total_length
))
467 if (CGEN_INSN_LSB0_P
)
468 value
= insn_value
>> ((word_offset
+ start
+ 1) - length
);
470 value
= insn_value
>> (total_length
- ( word_offset
+ start
+ length
));
473 #if ! CGEN_INT_INSN_P
477 unsigned char *bufp
= ex_info
->insn_bytes
+ word_offset
/ 8;
479 if (word_length
> 8 * sizeof (CGEN_INSN_INT
))
482 if (fill_cache (cd
, ex_info
, word_offset
/ 8, word_length
/ 8, pc
) == 0)
488 value
= extract_1 (cd
, ex_info
, start
, length
, word_length
, bufp
, pc
);
491 #endif /* ! CGEN_INT_INSN_P */
493 /* Written this way to avoid undefined behaviour. */
494 mask
= (((1L << (length
- 1)) - 1) << 1) | 1;
498 if (CGEN_BOOL_ATTR (attrs
, CGEN_IFLD_SIGNED
)
499 && (value
& (1L << (length
- 1))))
507 /* Default insn extractor.
509 INSN_VALUE is the first base_insn_bitsize bits, translated to host order.
510 The extracted fields are stored in FIELDS.
511 EX_INFO is used to handle reading variable length insns.
512 Return the length of the insn in bits, or 0 if no match,
513 or -1 if an error occurs fetching data (memory_error_func will have
517 extract_insn_normal (CGEN_CPU_DESC cd
,
518 const CGEN_INSN
*insn
,
519 CGEN_EXTRACT_INFO
*ex_info
,
520 CGEN_INSN_INT insn_value
,
524 const CGEN_SYNTAX
*syntax
= CGEN_INSN_SYNTAX (insn
);
525 const CGEN_SYNTAX_CHAR_TYPE
*syn
;
527 CGEN_FIELDS_BITSIZE (fields
) = CGEN_INSN_BITSIZE (insn
);
529 CGEN_INIT_EXTRACT (cd
);
531 for (syn
= CGEN_SYNTAX_STRING (syntax
); *syn
; ++syn
)
535 if (CGEN_SYNTAX_CHAR_P (*syn
))
538 length
= (* cd
->extract_operand
) (cd
, CGEN_SYNTAX_FIELD (*syn
),
539 ex_info
, insn_value
, fields
, pc
);
544 /* We recognized and successfully extracted this insn. */
545 return CGEN_INSN_BITSIZE (insn
);
548 /* Machine generated code added here. */
550 const char * xstormy16_cgen_insert_operand
551 (CGEN_CPU_DESC
, int, CGEN_FIELDS
*, CGEN_INSN_BYTES_PTR
, bfd_vma
);
553 /* Main entry point for operand insertion.
555 This function is basically just a big switch statement. Earlier versions
556 used tables to look up the function to use, but
557 - if the table contains both assembler and disassembler functions then
558 the disassembler contains much of the assembler and vice-versa,
559 - there's a lot of inlining possibilities as things grow,
560 - using a switch statement avoids the function call overhead.
562 This function could be moved into `parse_insn_normal', but keeping it
563 separate makes clear the interface between `parse_insn_normal' and each of
564 the handlers. It's also needed by GAS to insert operands that couldn't be
565 resolved during parsing. */
568 xstormy16_cgen_insert_operand (CGEN_CPU_DESC cd
,
570 CGEN_FIELDS
* fields
,
571 CGEN_INSN_BYTES_PTR buffer
,
572 bfd_vma pc ATTRIBUTE_UNUSED
)
574 const char * errmsg
= NULL
;
575 unsigned int total_length
= CGEN_FIELDS_BITSIZE (fields
);
579 case XSTORMY16_OPERAND_RB
:
580 errmsg
= insert_normal (cd
, fields
->f_Rb
, 0, 0, 17, 3, 32, total_length
, buffer
);
582 case XSTORMY16_OPERAND_RBJ
:
583 errmsg
= insert_normal (cd
, fields
->f_Rbj
, 0, 0, 11, 1, 32, total_length
, buffer
);
585 case XSTORMY16_OPERAND_RD
:
586 errmsg
= insert_normal (cd
, fields
->f_Rd
, 0, 0, 12, 4, 32, total_length
, buffer
);
588 case XSTORMY16_OPERAND_RDM
:
589 errmsg
= insert_normal (cd
, fields
->f_Rdm
, 0, 0, 13, 3, 32, total_length
, buffer
);
591 case XSTORMY16_OPERAND_RM
:
592 errmsg
= insert_normal (cd
, fields
->f_Rm
, 0, 0, 4, 3, 32, total_length
, buffer
);
594 case XSTORMY16_OPERAND_RS
:
595 errmsg
= insert_normal (cd
, fields
->f_Rs
, 0, 0, 8, 4, 32, total_length
, buffer
);
597 case XSTORMY16_OPERAND_ABS24
:
600 FLD (f_abs24_1
) = ((FLD (f_abs24
)) & (255));
601 FLD (f_abs24_2
) = ((UINT
) (FLD (f_abs24
)) >> (8));
603 errmsg
= insert_normal (cd
, fields
->f_abs24_1
, 0, 0, 8, 8, 32, total_length
, buffer
);
606 errmsg
= insert_normal (cd
, fields
->f_abs24_2
, 0, 0, 16, 16, 32, total_length
, buffer
);
611 case XSTORMY16_OPERAND_BCOND2
:
612 errmsg
= insert_normal (cd
, fields
->f_op2
, 0, 0, 4, 4, 32, total_length
, buffer
);
614 case XSTORMY16_OPERAND_BCOND5
:
615 errmsg
= insert_normal (cd
, fields
->f_op5
, 0, 0, 16, 4, 32, total_length
, buffer
);
617 case XSTORMY16_OPERAND_HMEM8
:
619 long value
= fields
->f_hmem8
;
620 value
= ((value
) - (32512));
621 errmsg
= insert_normal (cd
, value
, 0|(1<<CGEN_IFLD_ABS_ADDR
), 0, 8, 8, 32, total_length
, buffer
);
624 case XSTORMY16_OPERAND_IMM12
:
625 errmsg
= insert_normal (cd
, fields
->f_imm12
, 0|(1<<CGEN_IFLD_SIGNED
), 0, 20, 12, 32, total_length
, buffer
);
627 case XSTORMY16_OPERAND_IMM16
:
628 errmsg
= insert_normal (cd
, fields
->f_imm16
, 0|(1<<CGEN_IFLD_SIGN_OPT
), 0, 16, 16, 32, total_length
, buffer
);
630 case XSTORMY16_OPERAND_IMM2
:
631 errmsg
= insert_normal (cd
, fields
->f_imm2
, 0, 0, 10, 2, 32, total_length
, buffer
);
633 case XSTORMY16_OPERAND_IMM3
:
634 errmsg
= insert_normal (cd
, fields
->f_imm3
, 0, 0, 4, 3, 32, total_length
, buffer
);
636 case XSTORMY16_OPERAND_IMM3B
:
637 errmsg
= insert_normal (cd
, fields
->f_imm3b
, 0, 0, 17, 3, 32, total_length
, buffer
);
639 case XSTORMY16_OPERAND_IMM4
:
640 errmsg
= insert_normal (cd
, fields
->f_imm4
, 0, 0, 8, 4, 32, total_length
, buffer
);
642 case XSTORMY16_OPERAND_IMM8
:
643 errmsg
= insert_normal (cd
, fields
->f_imm8
, 0, 0, 8, 8, 32, total_length
, buffer
);
645 case XSTORMY16_OPERAND_IMM8SMALL
:
646 errmsg
= insert_normal (cd
, fields
->f_imm8
, 0, 0, 8, 8, 32, total_length
, buffer
);
648 case XSTORMY16_OPERAND_LMEM8
:
649 errmsg
= insert_normal (cd
, fields
->f_lmem8
, 0|(1<<CGEN_IFLD_ABS_ADDR
), 0, 8, 8, 32, total_length
, buffer
);
651 case XSTORMY16_OPERAND_REL12
:
653 long value
= fields
->f_rel12
;
654 value
= ((value
) - (((pc
) + (4))));
655 errmsg
= insert_normal (cd
, value
, 0|(1<<CGEN_IFLD_SIGNED
)|(1<<CGEN_IFLD_PCREL_ADDR
), 0, 20, 12, 32, total_length
, buffer
);
658 case XSTORMY16_OPERAND_REL12A
:
660 long value
= fields
->f_rel12a
;
661 value
= ((SI
) (((value
) - (((pc
) + (2))))) >> (1));
662 errmsg
= insert_normal (cd
, value
, 0|(1<<CGEN_IFLD_SIGNED
)|(1<<CGEN_IFLD_PCREL_ADDR
), 0, 4, 11, 32, total_length
, buffer
);
665 case XSTORMY16_OPERAND_REL8_2
:
667 long value
= fields
->f_rel8_2
;
668 value
= ((value
) - (((pc
) + (2))));
669 errmsg
= insert_normal (cd
, value
, 0|(1<<CGEN_IFLD_SIGNED
)|(1<<CGEN_IFLD_PCREL_ADDR
), 0, 8, 8, 32, total_length
, buffer
);
672 case XSTORMY16_OPERAND_REL8_4
:
674 long value
= fields
->f_rel8_4
;
675 value
= ((value
) - (((pc
) + (4))));
676 errmsg
= insert_normal (cd
, value
, 0|(1<<CGEN_IFLD_SIGNED
)|(1<<CGEN_IFLD_PCREL_ADDR
), 0, 8, 8, 32, total_length
, buffer
);
679 case XSTORMY16_OPERAND_WS2
:
680 errmsg
= insert_normal (cd
, fields
->f_op2m
, 0, 0, 7, 1, 32, total_length
, buffer
);
684 /* xgettext:c-format */
685 opcodes_error_handler
686 (_("internal error: unrecognized field %d while building insn"),
694 int xstormy16_cgen_extract_operand
695 (CGEN_CPU_DESC
, int, CGEN_EXTRACT_INFO
*, CGEN_INSN_INT
, CGEN_FIELDS
*, bfd_vma
);
697 /* Main entry point for operand extraction.
698 The result is <= 0 for error, >0 for success.
699 ??? Actual values aren't well defined right now.
701 This function is basically just a big switch statement. Earlier versions
702 used tables to look up the function to use, but
703 - if the table contains both assembler and disassembler functions then
704 the disassembler contains much of the assembler and vice-versa,
705 - there's a lot of inlining possibilities as things grow,
706 - using a switch statement avoids the function call overhead.
708 This function could be moved into `print_insn_normal', but keeping it
709 separate makes clear the interface between `print_insn_normal' and each of
713 xstormy16_cgen_extract_operand (CGEN_CPU_DESC cd
,
715 CGEN_EXTRACT_INFO
*ex_info
,
716 CGEN_INSN_INT insn_value
,
717 CGEN_FIELDS
* fields
,
720 /* Assume success (for those operands that are nops). */
722 unsigned int total_length
= CGEN_FIELDS_BITSIZE (fields
);
726 case XSTORMY16_OPERAND_RB
:
727 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 17, 3, 32, total_length
, pc
, & fields
->f_Rb
);
729 case XSTORMY16_OPERAND_RBJ
:
730 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 11, 1, 32, total_length
, pc
, & fields
->f_Rbj
);
732 case XSTORMY16_OPERAND_RD
:
733 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 12, 4, 32, total_length
, pc
, & fields
->f_Rd
);
735 case XSTORMY16_OPERAND_RDM
:
736 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 13, 3, 32, total_length
, pc
, & fields
->f_Rdm
);
738 case XSTORMY16_OPERAND_RM
:
739 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 4, 3, 32, total_length
, pc
, & fields
->f_Rm
);
741 case XSTORMY16_OPERAND_RS
:
742 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 8, 4, 32, total_length
, pc
, & fields
->f_Rs
);
744 case XSTORMY16_OPERAND_ABS24
:
746 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 8, 8, 32, total_length
, pc
, & fields
->f_abs24_1
);
747 if (length
<= 0) break;
748 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 16, 16, 32, total_length
, pc
, & fields
->f_abs24_2
);
749 if (length
<= 0) break;
750 FLD (f_abs24
) = ((((FLD (f_abs24_2
)) << (8))) | (FLD (f_abs24_1
)));
753 case XSTORMY16_OPERAND_BCOND2
:
754 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 4, 4, 32, total_length
, pc
, & fields
->f_op2
);
756 case XSTORMY16_OPERAND_BCOND5
:
757 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 16, 4, 32, total_length
, pc
, & fields
->f_op5
);
759 case XSTORMY16_OPERAND_HMEM8
:
762 length
= extract_normal (cd
, ex_info
, insn_value
, 0|(1<<CGEN_IFLD_ABS_ADDR
), 0, 8, 8, 32, total_length
, pc
, & value
);
763 value
= ((value
) + (32512));
764 fields
->f_hmem8
= value
;
767 case XSTORMY16_OPERAND_IMM12
:
768 length
= extract_normal (cd
, ex_info
, insn_value
, 0|(1<<CGEN_IFLD_SIGNED
), 0, 20, 12, 32, total_length
, pc
, & fields
->f_imm12
);
770 case XSTORMY16_OPERAND_IMM16
:
771 length
= extract_normal (cd
, ex_info
, insn_value
, 0|(1<<CGEN_IFLD_SIGN_OPT
), 0, 16, 16, 32, total_length
, pc
, & fields
->f_imm16
);
773 case XSTORMY16_OPERAND_IMM2
:
774 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 10, 2, 32, total_length
, pc
, & fields
->f_imm2
);
776 case XSTORMY16_OPERAND_IMM3
:
777 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 4, 3, 32, total_length
, pc
, & fields
->f_imm3
);
779 case XSTORMY16_OPERAND_IMM3B
:
780 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 17, 3, 32, total_length
, pc
, & fields
->f_imm3b
);
782 case XSTORMY16_OPERAND_IMM4
:
783 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 8, 4, 32, total_length
, pc
, & fields
->f_imm4
);
785 case XSTORMY16_OPERAND_IMM8
:
786 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 8, 8, 32, total_length
, pc
, & fields
->f_imm8
);
788 case XSTORMY16_OPERAND_IMM8SMALL
:
789 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 8, 8, 32, total_length
, pc
, & fields
->f_imm8
);
791 case XSTORMY16_OPERAND_LMEM8
:
792 length
= extract_normal (cd
, ex_info
, insn_value
, 0|(1<<CGEN_IFLD_ABS_ADDR
), 0, 8, 8, 32, total_length
, pc
, & fields
->f_lmem8
);
794 case XSTORMY16_OPERAND_REL12
:
797 length
= extract_normal (cd
, ex_info
, insn_value
, 0|(1<<CGEN_IFLD_SIGNED
)|(1<<CGEN_IFLD_PCREL_ADDR
), 0, 20, 12, 32, total_length
, pc
, & value
);
798 value
= ((value
) + (((pc
) + (4))));
799 fields
->f_rel12
= value
;
802 case XSTORMY16_OPERAND_REL12A
:
805 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
);
806 value
= ((((value
) * (2))) + (((pc
) + (2))));
807 fields
->f_rel12a
= value
;
810 case XSTORMY16_OPERAND_REL8_2
:
813 length
= extract_normal (cd
, ex_info
, insn_value
, 0|(1<<CGEN_IFLD_SIGNED
)|(1<<CGEN_IFLD_PCREL_ADDR
), 0, 8, 8, 32, total_length
, pc
, & value
);
814 value
= ((value
) + (((pc
) + (2))));
815 fields
->f_rel8_2
= value
;
818 case XSTORMY16_OPERAND_REL8_4
:
821 length
= extract_normal (cd
, ex_info
, insn_value
, 0|(1<<CGEN_IFLD_SIGNED
)|(1<<CGEN_IFLD_PCREL_ADDR
), 0, 8, 8, 32, total_length
, pc
, & value
);
822 value
= ((value
) + (((pc
) + (4))));
823 fields
->f_rel8_4
= value
;
826 case XSTORMY16_OPERAND_WS2
:
827 length
= extract_normal (cd
, ex_info
, insn_value
, 0, 0, 7, 1, 32, total_length
, pc
, & fields
->f_op2m
);
831 /* xgettext:c-format */
832 opcodes_error_handler
833 (_("internal error: unrecognized field %d while decoding insn"),
841 cgen_insert_fn
* const xstormy16_cgen_insert_handlers
[] =
846 cgen_extract_fn
* const xstormy16_cgen_extract_handlers
[] =
851 int xstormy16_cgen_get_int_operand (CGEN_CPU_DESC
, int, const CGEN_FIELDS
*);
852 bfd_vma
xstormy16_cgen_get_vma_operand (CGEN_CPU_DESC
, int, const CGEN_FIELDS
*);
854 /* Getting values from cgen_fields is handled by a collection of functions.
855 They are distinguished by the type of the VALUE argument they return.
856 TODO: floating point, inlining support, remove cases where result type
860 xstormy16_cgen_get_int_operand (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED
,
862 const CGEN_FIELDS
* fields
)
868 case XSTORMY16_OPERAND_RB
:
869 value
= fields
->f_Rb
;
871 case XSTORMY16_OPERAND_RBJ
:
872 value
= fields
->f_Rbj
;
874 case XSTORMY16_OPERAND_RD
:
875 value
= fields
->f_Rd
;
877 case XSTORMY16_OPERAND_RDM
:
878 value
= fields
->f_Rdm
;
880 case XSTORMY16_OPERAND_RM
:
881 value
= fields
->f_Rm
;
883 case XSTORMY16_OPERAND_RS
:
884 value
= fields
->f_Rs
;
886 case XSTORMY16_OPERAND_ABS24
:
887 value
= fields
->f_abs24
;
889 case XSTORMY16_OPERAND_BCOND2
:
890 value
= fields
->f_op2
;
892 case XSTORMY16_OPERAND_BCOND5
:
893 value
= fields
->f_op5
;
895 case XSTORMY16_OPERAND_HMEM8
:
896 value
= fields
->f_hmem8
;
898 case XSTORMY16_OPERAND_IMM12
:
899 value
= fields
->f_imm12
;
901 case XSTORMY16_OPERAND_IMM16
:
902 value
= fields
->f_imm16
;
904 case XSTORMY16_OPERAND_IMM2
:
905 value
= fields
->f_imm2
;
907 case XSTORMY16_OPERAND_IMM3
:
908 value
= fields
->f_imm3
;
910 case XSTORMY16_OPERAND_IMM3B
:
911 value
= fields
->f_imm3b
;
913 case XSTORMY16_OPERAND_IMM4
:
914 value
= fields
->f_imm4
;
916 case XSTORMY16_OPERAND_IMM8
:
917 value
= fields
->f_imm8
;
919 case XSTORMY16_OPERAND_IMM8SMALL
:
920 value
= fields
->f_imm8
;
922 case XSTORMY16_OPERAND_LMEM8
:
923 value
= fields
->f_lmem8
;
925 case XSTORMY16_OPERAND_REL12
:
926 value
= fields
->f_rel12
;
928 case XSTORMY16_OPERAND_REL12A
:
929 value
= fields
->f_rel12a
;
931 case XSTORMY16_OPERAND_REL8_2
:
932 value
= fields
->f_rel8_2
;
934 case XSTORMY16_OPERAND_REL8_4
:
935 value
= fields
->f_rel8_4
;
937 case XSTORMY16_OPERAND_WS2
:
938 value
= fields
->f_op2m
;
942 /* xgettext:c-format */
943 opcodes_error_handler
944 (_("internal error: unrecognized field %d while getting int operand"),
953 xstormy16_cgen_get_vma_operand (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED
,
955 const CGEN_FIELDS
* fields
)
961 case XSTORMY16_OPERAND_RB
:
962 value
= fields
->f_Rb
;
964 case XSTORMY16_OPERAND_RBJ
:
965 value
= fields
->f_Rbj
;
967 case XSTORMY16_OPERAND_RD
:
968 value
= fields
->f_Rd
;
970 case XSTORMY16_OPERAND_RDM
:
971 value
= fields
->f_Rdm
;
973 case XSTORMY16_OPERAND_RM
:
974 value
= fields
->f_Rm
;
976 case XSTORMY16_OPERAND_RS
:
977 value
= fields
->f_Rs
;
979 case XSTORMY16_OPERAND_ABS24
:
980 value
= fields
->f_abs24
;
982 case XSTORMY16_OPERAND_BCOND2
:
983 value
= fields
->f_op2
;
985 case XSTORMY16_OPERAND_BCOND5
:
986 value
= fields
->f_op5
;
988 case XSTORMY16_OPERAND_HMEM8
:
989 value
= fields
->f_hmem8
;
991 case XSTORMY16_OPERAND_IMM12
:
992 value
= fields
->f_imm12
;
994 case XSTORMY16_OPERAND_IMM16
:
995 value
= fields
->f_imm16
;
997 case XSTORMY16_OPERAND_IMM2
:
998 value
= fields
->f_imm2
;
1000 case XSTORMY16_OPERAND_IMM3
:
1001 value
= fields
->f_imm3
;
1003 case XSTORMY16_OPERAND_IMM3B
:
1004 value
= fields
->f_imm3b
;
1006 case XSTORMY16_OPERAND_IMM4
:
1007 value
= fields
->f_imm4
;
1009 case XSTORMY16_OPERAND_IMM8
:
1010 value
= fields
->f_imm8
;
1012 case XSTORMY16_OPERAND_IMM8SMALL
:
1013 value
= fields
->f_imm8
;
1015 case XSTORMY16_OPERAND_LMEM8
:
1016 value
= fields
->f_lmem8
;
1018 case XSTORMY16_OPERAND_REL12
:
1019 value
= fields
->f_rel12
;
1021 case XSTORMY16_OPERAND_REL12A
:
1022 value
= fields
->f_rel12a
;
1024 case XSTORMY16_OPERAND_REL8_2
:
1025 value
= fields
->f_rel8_2
;
1027 case XSTORMY16_OPERAND_REL8_4
:
1028 value
= fields
->f_rel8_4
;
1030 case XSTORMY16_OPERAND_WS2
:
1031 value
= fields
->f_op2m
;
1035 /* xgettext:c-format */
1036 opcodes_error_handler
1037 (_("internal error: unrecognized field %d while getting vma operand"),
1045 void xstormy16_cgen_set_int_operand (CGEN_CPU_DESC
, int, CGEN_FIELDS
*, int);
1046 void xstormy16_cgen_set_vma_operand (CGEN_CPU_DESC
, int, CGEN_FIELDS
*, bfd_vma
);
1048 /* Stuffing values in cgen_fields is handled by a collection of functions.
1049 They are distinguished by the type of the VALUE argument they accept.
1050 TODO: floating point, inlining support, remove cases where argument type
1054 xstormy16_cgen_set_int_operand (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED
,
1056 CGEN_FIELDS
* fields
,
1061 case XSTORMY16_OPERAND_RB
:
1062 fields
->f_Rb
= value
;
1064 case XSTORMY16_OPERAND_RBJ
:
1065 fields
->f_Rbj
= value
;
1067 case XSTORMY16_OPERAND_RD
:
1068 fields
->f_Rd
= value
;
1070 case XSTORMY16_OPERAND_RDM
:
1071 fields
->f_Rdm
= value
;
1073 case XSTORMY16_OPERAND_RM
:
1074 fields
->f_Rm
= value
;
1076 case XSTORMY16_OPERAND_RS
:
1077 fields
->f_Rs
= value
;
1079 case XSTORMY16_OPERAND_ABS24
:
1080 fields
->f_abs24
= value
;
1082 case XSTORMY16_OPERAND_BCOND2
:
1083 fields
->f_op2
= value
;
1085 case XSTORMY16_OPERAND_BCOND5
:
1086 fields
->f_op5
= value
;
1088 case XSTORMY16_OPERAND_HMEM8
:
1089 fields
->f_hmem8
= value
;
1091 case XSTORMY16_OPERAND_IMM12
:
1092 fields
->f_imm12
= value
;
1094 case XSTORMY16_OPERAND_IMM16
:
1095 fields
->f_imm16
= value
;
1097 case XSTORMY16_OPERAND_IMM2
:
1098 fields
->f_imm2
= value
;
1100 case XSTORMY16_OPERAND_IMM3
:
1101 fields
->f_imm3
= value
;
1103 case XSTORMY16_OPERAND_IMM3B
:
1104 fields
->f_imm3b
= value
;
1106 case XSTORMY16_OPERAND_IMM4
:
1107 fields
->f_imm4
= value
;
1109 case XSTORMY16_OPERAND_IMM8
:
1110 fields
->f_imm8
= value
;
1112 case XSTORMY16_OPERAND_IMM8SMALL
:
1113 fields
->f_imm8
= value
;
1115 case XSTORMY16_OPERAND_LMEM8
:
1116 fields
->f_lmem8
= value
;
1118 case XSTORMY16_OPERAND_REL12
:
1119 fields
->f_rel12
= value
;
1121 case XSTORMY16_OPERAND_REL12A
:
1122 fields
->f_rel12a
= value
;
1124 case XSTORMY16_OPERAND_REL8_2
:
1125 fields
->f_rel8_2
= value
;
1127 case XSTORMY16_OPERAND_REL8_4
:
1128 fields
->f_rel8_4
= value
;
1130 case XSTORMY16_OPERAND_WS2
:
1131 fields
->f_op2m
= value
;
1135 /* xgettext:c-format */
1136 opcodes_error_handler
1137 (_("internal error: unrecognized field %d while setting int operand"),
1144 xstormy16_cgen_set_vma_operand (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED
,
1146 CGEN_FIELDS
* fields
,
1151 case XSTORMY16_OPERAND_RB
:
1152 fields
->f_Rb
= value
;
1154 case XSTORMY16_OPERAND_RBJ
:
1155 fields
->f_Rbj
= value
;
1157 case XSTORMY16_OPERAND_RD
:
1158 fields
->f_Rd
= value
;
1160 case XSTORMY16_OPERAND_RDM
:
1161 fields
->f_Rdm
= value
;
1163 case XSTORMY16_OPERAND_RM
:
1164 fields
->f_Rm
= value
;
1166 case XSTORMY16_OPERAND_RS
:
1167 fields
->f_Rs
= value
;
1169 case XSTORMY16_OPERAND_ABS24
:
1170 fields
->f_abs24
= value
;
1172 case XSTORMY16_OPERAND_BCOND2
:
1173 fields
->f_op2
= value
;
1175 case XSTORMY16_OPERAND_BCOND5
:
1176 fields
->f_op5
= value
;
1178 case XSTORMY16_OPERAND_HMEM8
:
1179 fields
->f_hmem8
= value
;
1181 case XSTORMY16_OPERAND_IMM12
:
1182 fields
->f_imm12
= value
;
1184 case XSTORMY16_OPERAND_IMM16
:
1185 fields
->f_imm16
= value
;
1187 case XSTORMY16_OPERAND_IMM2
:
1188 fields
->f_imm2
= value
;
1190 case XSTORMY16_OPERAND_IMM3
:
1191 fields
->f_imm3
= value
;
1193 case XSTORMY16_OPERAND_IMM3B
:
1194 fields
->f_imm3b
= value
;
1196 case XSTORMY16_OPERAND_IMM4
:
1197 fields
->f_imm4
= value
;
1199 case XSTORMY16_OPERAND_IMM8
:
1200 fields
->f_imm8
= value
;
1202 case XSTORMY16_OPERAND_IMM8SMALL
:
1203 fields
->f_imm8
= value
;
1205 case XSTORMY16_OPERAND_LMEM8
:
1206 fields
->f_lmem8
= value
;
1208 case XSTORMY16_OPERAND_REL12
:
1209 fields
->f_rel12
= value
;
1211 case XSTORMY16_OPERAND_REL12A
:
1212 fields
->f_rel12a
= value
;
1214 case XSTORMY16_OPERAND_REL8_2
:
1215 fields
->f_rel8_2
= value
;
1217 case XSTORMY16_OPERAND_REL8_4
:
1218 fields
->f_rel8_4
= value
;
1220 case XSTORMY16_OPERAND_WS2
:
1221 fields
->f_op2m
= value
;
1225 /* xgettext:c-format */
1226 opcodes_error_handler
1227 (_("internal error: unrecognized field %d while setting vma operand"),
1233 /* Function to call before using the instruction builder tables. */
1236 xstormy16_cgen_init_ibld_table (CGEN_CPU_DESC cd
)
1238 cd
->insert_handlers
= & xstormy16_cgen_insert_handlers
[0];
1239 cd
->extract_handlers
= & xstormy16_cgen_extract_handlers
[0];
1241 cd
->insert_operand
= xstormy16_cgen_insert_operand
;
1242 cd
->extract_operand
= xstormy16_cgen_extract_operand
;
1244 cd
->get_int_operand
= xstormy16_cgen_get_int_operand
;
1245 cd
->set_int_operand
= xstormy16_cgen_set_int_operand
;
1246 cd
->get_vma_operand
= xstormy16_cgen_get_vma_operand
;
1247 cd
->set_vma_operand
= xstormy16_cgen_set_vma_operand
;