1*3d8817e4Smiod /* Disassembler interface for targets using CGEN. -*- C -*-
2*3d8817e4Smiod CGEN: Cpu tools GENerator
3*3d8817e4Smiod
4*3d8817e4Smiod THIS FILE IS MACHINE GENERATED WITH CGEN.
5*3d8817e4Smiod - the resultant file is machine generated, cgen-dis.in isn't
6*3d8817e4Smiod
7*3d8817e4Smiod Copyright 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2005
8*3d8817e4Smiod Free Software Foundation, Inc.
9*3d8817e4Smiod
10*3d8817e4Smiod This file is part of the GNU Binutils and GDB, the GNU debugger.
11*3d8817e4Smiod
12*3d8817e4Smiod This program is free software; you can redistribute it and/or modify
13*3d8817e4Smiod it under the terms of the GNU General Public License as published by
14*3d8817e4Smiod the Free Software Foundation; either version 2, or (at your option)
15*3d8817e4Smiod any later version.
16*3d8817e4Smiod
17*3d8817e4Smiod This program is distributed in the hope that it will be useful,
18*3d8817e4Smiod but WITHOUT ANY WARRANTY; without even the implied warranty of
19*3d8817e4Smiod MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20*3d8817e4Smiod GNU General Public License for more details.
21*3d8817e4Smiod
22*3d8817e4Smiod You should have received a copy of the GNU General Public License
23*3d8817e4Smiod along with this program; if not, write to the Free Software Foundation, Inc.,
24*3d8817e4Smiod 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. */
25*3d8817e4Smiod
26*3d8817e4Smiod /* ??? Eventually more and more of this stuff can go to cpu-independent files.
27*3d8817e4Smiod Keep that in mind. */
28*3d8817e4Smiod
29*3d8817e4Smiod #include "sysdep.h"
30*3d8817e4Smiod #include <stdio.h>
31*3d8817e4Smiod #include "ansidecl.h"
32*3d8817e4Smiod #include "dis-asm.h"
33*3d8817e4Smiod #include "bfd.h"
34*3d8817e4Smiod #include "symcat.h"
35*3d8817e4Smiod #include "libiberty.h"
36*3d8817e4Smiod #include "xstormy16-desc.h"
37*3d8817e4Smiod #include "xstormy16-opc.h"
38*3d8817e4Smiod #include "opintl.h"
39*3d8817e4Smiod
40*3d8817e4Smiod /* Default text to print if an instruction isn't recognized. */
41*3d8817e4Smiod #define UNKNOWN_INSN_MSG _("*unknown*")
42*3d8817e4Smiod
43*3d8817e4Smiod static void print_normal
44*3d8817e4Smiod (CGEN_CPU_DESC, void *, long, unsigned int, bfd_vma, int);
45*3d8817e4Smiod static void print_address
46*3d8817e4Smiod (CGEN_CPU_DESC, void *, bfd_vma, unsigned int, bfd_vma, int) ATTRIBUTE_UNUSED;
47*3d8817e4Smiod static void print_keyword
48*3d8817e4Smiod (CGEN_CPU_DESC, void *, CGEN_KEYWORD *, long, unsigned int) ATTRIBUTE_UNUSED;
49*3d8817e4Smiod static void print_insn_normal
50*3d8817e4Smiod (CGEN_CPU_DESC, void *, const CGEN_INSN *, CGEN_FIELDS *, bfd_vma, int);
51*3d8817e4Smiod static int print_insn
52*3d8817e4Smiod (CGEN_CPU_DESC, bfd_vma, disassemble_info *, bfd_byte *, unsigned);
53*3d8817e4Smiod static int default_print_insn
54*3d8817e4Smiod (CGEN_CPU_DESC, bfd_vma, disassemble_info *) ATTRIBUTE_UNUSED;
55*3d8817e4Smiod static int read_insn
56*3d8817e4Smiod (CGEN_CPU_DESC, bfd_vma, disassemble_info *, bfd_byte *, int, CGEN_EXTRACT_INFO *,
57*3d8817e4Smiod unsigned long *);
58*3d8817e4Smiod
59*3d8817e4Smiod /* -- disassembler routines inserted here. */
60*3d8817e4Smiod
61*3d8817e4Smiod
62*3d8817e4Smiod void xstormy16_cgen_print_operand
63*3d8817e4Smiod (CGEN_CPU_DESC, int, PTR, CGEN_FIELDS *, void const *, bfd_vma, int);
64*3d8817e4Smiod
65*3d8817e4Smiod /* Main entry point for printing operands.
66*3d8817e4Smiod XINFO is a `void *' and not a `disassemble_info *' to not put a requirement
67*3d8817e4Smiod of dis-asm.h on cgen.h.
68*3d8817e4Smiod
69*3d8817e4Smiod This function is basically just a big switch statement. Earlier versions
70*3d8817e4Smiod used tables to look up the function to use, but
71*3d8817e4Smiod - if the table contains both assembler and disassembler functions then
72*3d8817e4Smiod the disassembler contains much of the assembler and vice-versa,
73*3d8817e4Smiod - there's a lot of inlining possibilities as things grow,
74*3d8817e4Smiod - using a switch statement avoids the function call overhead.
75*3d8817e4Smiod
76*3d8817e4Smiod This function could be moved into `print_insn_normal', but keeping it
77*3d8817e4Smiod separate makes clear the interface between `print_insn_normal' and each of
78*3d8817e4Smiod the handlers. */
79*3d8817e4Smiod
80*3d8817e4Smiod void
xstormy16_cgen_print_operand(CGEN_CPU_DESC cd,int opindex,void * xinfo,CGEN_FIELDS * fields,void const * attrs ATTRIBUTE_UNUSED,bfd_vma pc,int length)81*3d8817e4Smiod xstormy16_cgen_print_operand (CGEN_CPU_DESC cd,
82*3d8817e4Smiod int opindex,
83*3d8817e4Smiod void * xinfo,
84*3d8817e4Smiod CGEN_FIELDS *fields,
85*3d8817e4Smiod void const *attrs ATTRIBUTE_UNUSED,
86*3d8817e4Smiod bfd_vma pc,
87*3d8817e4Smiod int length)
88*3d8817e4Smiod {
89*3d8817e4Smiod disassemble_info *info = (disassemble_info *) xinfo;
90*3d8817e4Smiod
91*3d8817e4Smiod switch (opindex)
92*3d8817e4Smiod {
93*3d8817e4Smiod case XSTORMY16_OPERAND_RB :
94*3d8817e4Smiod print_keyword (cd, info, & xstormy16_cgen_opval_gr_Rb_names, fields->f_Rb, 0);
95*3d8817e4Smiod break;
96*3d8817e4Smiod case XSTORMY16_OPERAND_RBJ :
97*3d8817e4Smiod print_keyword (cd, info, & xstormy16_cgen_opval_gr_Rb_names, fields->f_Rbj, 0);
98*3d8817e4Smiod break;
99*3d8817e4Smiod case XSTORMY16_OPERAND_RD :
100*3d8817e4Smiod print_keyword (cd, info, & xstormy16_cgen_opval_gr_names, fields->f_Rd, 0);
101*3d8817e4Smiod break;
102*3d8817e4Smiod case XSTORMY16_OPERAND_RDM :
103*3d8817e4Smiod print_keyword (cd, info, & xstormy16_cgen_opval_gr_names, fields->f_Rdm, 0);
104*3d8817e4Smiod break;
105*3d8817e4Smiod case XSTORMY16_OPERAND_RM :
106*3d8817e4Smiod print_keyword (cd, info, & xstormy16_cgen_opval_gr_names, fields->f_Rm, 0);
107*3d8817e4Smiod break;
108*3d8817e4Smiod case XSTORMY16_OPERAND_RS :
109*3d8817e4Smiod print_keyword (cd, info, & xstormy16_cgen_opval_gr_names, fields->f_Rs, 0);
110*3d8817e4Smiod break;
111*3d8817e4Smiod case XSTORMY16_OPERAND_ABS24 :
112*3d8817e4Smiod print_normal (cd, info, fields->f_abs24, 0|(1<<CGEN_OPERAND_ABS_ADDR)|(1<<CGEN_OPERAND_VIRTUAL), pc, length);
113*3d8817e4Smiod break;
114*3d8817e4Smiod case XSTORMY16_OPERAND_BCOND2 :
115*3d8817e4Smiod print_keyword (cd, info, & xstormy16_cgen_opval_h_branchcond, fields->f_op2, 0);
116*3d8817e4Smiod break;
117*3d8817e4Smiod case XSTORMY16_OPERAND_BCOND5 :
118*3d8817e4Smiod print_keyword (cd, info, & xstormy16_cgen_opval_h_branchcond, fields->f_op5, 0);
119*3d8817e4Smiod break;
120*3d8817e4Smiod case XSTORMY16_OPERAND_HMEM8 :
121*3d8817e4Smiod print_normal (cd, info, fields->f_hmem8, 0|(1<<CGEN_OPERAND_ABS_ADDR), pc, length);
122*3d8817e4Smiod break;
123*3d8817e4Smiod case XSTORMY16_OPERAND_IMM12 :
124*3d8817e4Smiod print_normal (cd, info, fields->f_imm12, 0|(1<<CGEN_OPERAND_SIGNED), pc, length);
125*3d8817e4Smiod break;
126*3d8817e4Smiod case XSTORMY16_OPERAND_IMM16 :
127*3d8817e4Smiod print_normal (cd, info, fields->f_imm16, 0|(1<<CGEN_OPERAND_SIGN_OPT), pc, length);
128*3d8817e4Smiod break;
129*3d8817e4Smiod case XSTORMY16_OPERAND_IMM2 :
130*3d8817e4Smiod print_normal (cd, info, fields->f_imm2, 0, pc, length);
131*3d8817e4Smiod break;
132*3d8817e4Smiod case XSTORMY16_OPERAND_IMM3 :
133*3d8817e4Smiod print_normal (cd, info, fields->f_imm3, 0, pc, length);
134*3d8817e4Smiod break;
135*3d8817e4Smiod case XSTORMY16_OPERAND_IMM3B :
136*3d8817e4Smiod print_normal (cd, info, fields->f_imm3b, 0, pc, length);
137*3d8817e4Smiod break;
138*3d8817e4Smiod case XSTORMY16_OPERAND_IMM4 :
139*3d8817e4Smiod print_normal (cd, info, fields->f_imm4, 0, pc, length);
140*3d8817e4Smiod break;
141*3d8817e4Smiod case XSTORMY16_OPERAND_IMM8 :
142*3d8817e4Smiod print_normal (cd, info, fields->f_imm8, 0, pc, length);
143*3d8817e4Smiod break;
144*3d8817e4Smiod case XSTORMY16_OPERAND_IMM8SMALL :
145*3d8817e4Smiod print_normal (cd, info, fields->f_imm8, 0, pc, length);
146*3d8817e4Smiod break;
147*3d8817e4Smiod case XSTORMY16_OPERAND_LMEM8 :
148*3d8817e4Smiod print_normal (cd, info, fields->f_lmem8, 0|(1<<CGEN_OPERAND_ABS_ADDR), pc, length);
149*3d8817e4Smiod break;
150*3d8817e4Smiod case XSTORMY16_OPERAND_REL12 :
151*3d8817e4Smiod print_normal (cd, info, fields->f_rel12, 0|(1<<CGEN_OPERAND_PCREL_ADDR), pc, length);
152*3d8817e4Smiod break;
153*3d8817e4Smiod case XSTORMY16_OPERAND_REL12A :
154*3d8817e4Smiod print_normal (cd, info, fields->f_rel12a, 0|(1<<CGEN_OPERAND_PCREL_ADDR), pc, length);
155*3d8817e4Smiod break;
156*3d8817e4Smiod case XSTORMY16_OPERAND_REL8_2 :
157*3d8817e4Smiod print_normal (cd, info, fields->f_rel8_2, 0|(1<<CGEN_OPERAND_PCREL_ADDR), pc, length);
158*3d8817e4Smiod break;
159*3d8817e4Smiod case XSTORMY16_OPERAND_REL8_4 :
160*3d8817e4Smiod print_normal (cd, info, fields->f_rel8_4, 0|(1<<CGEN_OPERAND_PCREL_ADDR), pc, length);
161*3d8817e4Smiod break;
162*3d8817e4Smiod case XSTORMY16_OPERAND_WS2 :
163*3d8817e4Smiod print_keyword (cd, info, & xstormy16_cgen_opval_h_wordsize, fields->f_op2m, 0);
164*3d8817e4Smiod break;
165*3d8817e4Smiod
166*3d8817e4Smiod default :
167*3d8817e4Smiod /* xgettext:c-format */
168*3d8817e4Smiod fprintf (stderr, _("Unrecognized field %d while printing insn.\n"),
169*3d8817e4Smiod opindex);
170*3d8817e4Smiod abort ();
171*3d8817e4Smiod }
172*3d8817e4Smiod }
173*3d8817e4Smiod
174*3d8817e4Smiod cgen_print_fn * const xstormy16_cgen_print_handlers[] =
175*3d8817e4Smiod {
176*3d8817e4Smiod print_insn_normal,
177*3d8817e4Smiod };
178*3d8817e4Smiod
179*3d8817e4Smiod
180*3d8817e4Smiod void
xstormy16_cgen_init_dis(CGEN_CPU_DESC cd)181*3d8817e4Smiod xstormy16_cgen_init_dis (CGEN_CPU_DESC cd)
182*3d8817e4Smiod {
183*3d8817e4Smiod xstormy16_cgen_init_opcode_table (cd);
184*3d8817e4Smiod xstormy16_cgen_init_ibld_table (cd);
185*3d8817e4Smiod cd->print_handlers = & xstormy16_cgen_print_handlers[0];
186*3d8817e4Smiod cd->print_operand = xstormy16_cgen_print_operand;
187*3d8817e4Smiod }
188*3d8817e4Smiod
189*3d8817e4Smiod
190*3d8817e4Smiod /* Default print handler. */
191*3d8817e4Smiod
192*3d8817e4Smiod static void
print_normal(CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,void * dis_info,long value,unsigned int attrs,bfd_vma pc ATTRIBUTE_UNUSED,int length ATTRIBUTE_UNUSED)193*3d8817e4Smiod print_normal (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
194*3d8817e4Smiod void *dis_info,
195*3d8817e4Smiod long value,
196*3d8817e4Smiod unsigned int attrs,
197*3d8817e4Smiod bfd_vma pc ATTRIBUTE_UNUSED,
198*3d8817e4Smiod int length ATTRIBUTE_UNUSED)
199*3d8817e4Smiod {
200*3d8817e4Smiod disassemble_info *info = (disassemble_info *) dis_info;
201*3d8817e4Smiod
202*3d8817e4Smiod #ifdef CGEN_PRINT_NORMAL
203*3d8817e4Smiod CGEN_PRINT_NORMAL (cd, info, value, attrs, pc, length);
204*3d8817e4Smiod #endif
205*3d8817e4Smiod
206*3d8817e4Smiod /* Print the operand as directed by the attributes. */
207*3d8817e4Smiod if (CGEN_BOOL_ATTR (attrs, CGEN_OPERAND_SEM_ONLY))
208*3d8817e4Smiod ; /* nothing to do */
209*3d8817e4Smiod else if (CGEN_BOOL_ATTR (attrs, CGEN_OPERAND_SIGNED))
210*3d8817e4Smiod (*info->fprintf_func) (info->stream, "%ld", value);
211*3d8817e4Smiod else
212*3d8817e4Smiod (*info->fprintf_func) (info->stream, "0x%lx", value);
213*3d8817e4Smiod }
214*3d8817e4Smiod
215*3d8817e4Smiod /* Default address handler. */
216*3d8817e4Smiod
217*3d8817e4Smiod static void
print_address(CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,void * dis_info,bfd_vma value,unsigned int attrs,bfd_vma pc ATTRIBUTE_UNUSED,int length ATTRIBUTE_UNUSED)218*3d8817e4Smiod print_address (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
219*3d8817e4Smiod void *dis_info,
220*3d8817e4Smiod bfd_vma value,
221*3d8817e4Smiod unsigned int attrs,
222*3d8817e4Smiod bfd_vma pc ATTRIBUTE_UNUSED,
223*3d8817e4Smiod int length ATTRIBUTE_UNUSED)
224*3d8817e4Smiod {
225*3d8817e4Smiod disassemble_info *info = (disassemble_info *) dis_info;
226*3d8817e4Smiod
227*3d8817e4Smiod #ifdef CGEN_PRINT_ADDRESS
228*3d8817e4Smiod CGEN_PRINT_ADDRESS (cd, info, value, attrs, pc, length);
229*3d8817e4Smiod #endif
230*3d8817e4Smiod
231*3d8817e4Smiod /* Print the operand as directed by the attributes. */
232*3d8817e4Smiod if (CGEN_BOOL_ATTR (attrs, CGEN_OPERAND_SEM_ONLY))
233*3d8817e4Smiod ; /* Nothing to do. */
234*3d8817e4Smiod else if (CGEN_BOOL_ATTR (attrs, CGEN_OPERAND_PCREL_ADDR))
235*3d8817e4Smiod (*info->print_address_func) (value, info);
236*3d8817e4Smiod else if (CGEN_BOOL_ATTR (attrs, CGEN_OPERAND_ABS_ADDR))
237*3d8817e4Smiod (*info->print_address_func) (value, info);
238*3d8817e4Smiod else if (CGEN_BOOL_ATTR (attrs, CGEN_OPERAND_SIGNED))
239*3d8817e4Smiod (*info->fprintf_func) (info->stream, "%ld", (long) value);
240*3d8817e4Smiod else
241*3d8817e4Smiod (*info->fprintf_func) (info->stream, "0x%lx", (long) value);
242*3d8817e4Smiod }
243*3d8817e4Smiod
244*3d8817e4Smiod /* Keyword print handler. */
245*3d8817e4Smiod
246*3d8817e4Smiod static void
print_keyword(CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,void * dis_info,CGEN_KEYWORD * keyword_table,long value,unsigned int attrs ATTRIBUTE_UNUSED)247*3d8817e4Smiod print_keyword (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
248*3d8817e4Smiod void *dis_info,
249*3d8817e4Smiod CGEN_KEYWORD *keyword_table,
250*3d8817e4Smiod long value,
251*3d8817e4Smiod unsigned int attrs ATTRIBUTE_UNUSED)
252*3d8817e4Smiod {
253*3d8817e4Smiod disassemble_info *info = (disassemble_info *) dis_info;
254*3d8817e4Smiod const CGEN_KEYWORD_ENTRY *ke;
255*3d8817e4Smiod
256*3d8817e4Smiod ke = cgen_keyword_lookup_value (keyword_table, value);
257*3d8817e4Smiod if (ke != NULL)
258*3d8817e4Smiod (*info->fprintf_func) (info->stream, "%s", ke->name);
259*3d8817e4Smiod else
260*3d8817e4Smiod (*info->fprintf_func) (info->stream, "???");
261*3d8817e4Smiod }
262*3d8817e4Smiod
263*3d8817e4Smiod /* Default insn printer.
264*3d8817e4Smiod
265*3d8817e4Smiod DIS_INFO is defined as `void *' so the disassembler needn't know anything
266*3d8817e4Smiod about disassemble_info. */
267*3d8817e4Smiod
268*3d8817e4Smiod static void
print_insn_normal(CGEN_CPU_DESC cd,void * dis_info,const CGEN_INSN * insn,CGEN_FIELDS * fields,bfd_vma pc,int length)269*3d8817e4Smiod print_insn_normal (CGEN_CPU_DESC cd,
270*3d8817e4Smiod void *dis_info,
271*3d8817e4Smiod const CGEN_INSN *insn,
272*3d8817e4Smiod CGEN_FIELDS *fields,
273*3d8817e4Smiod bfd_vma pc,
274*3d8817e4Smiod int length)
275*3d8817e4Smiod {
276*3d8817e4Smiod const CGEN_SYNTAX *syntax = CGEN_INSN_SYNTAX (insn);
277*3d8817e4Smiod disassemble_info *info = (disassemble_info *) dis_info;
278*3d8817e4Smiod const CGEN_SYNTAX_CHAR_TYPE *syn;
279*3d8817e4Smiod
280*3d8817e4Smiod CGEN_INIT_PRINT (cd);
281*3d8817e4Smiod
282*3d8817e4Smiod for (syn = CGEN_SYNTAX_STRING (syntax); *syn; ++syn)
283*3d8817e4Smiod {
284*3d8817e4Smiod if (CGEN_SYNTAX_MNEMONIC_P (*syn))
285*3d8817e4Smiod {
286*3d8817e4Smiod (*info->fprintf_func) (info->stream, "%s", CGEN_INSN_MNEMONIC (insn));
287*3d8817e4Smiod continue;
288*3d8817e4Smiod }
289*3d8817e4Smiod if (CGEN_SYNTAX_CHAR_P (*syn))
290*3d8817e4Smiod {
291*3d8817e4Smiod (*info->fprintf_func) (info->stream, "%c", CGEN_SYNTAX_CHAR (*syn));
292*3d8817e4Smiod continue;
293*3d8817e4Smiod }
294*3d8817e4Smiod
295*3d8817e4Smiod /* We have an operand. */
296*3d8817e4Smiod xstormy16_cgen_print_operand (cd, CGEN_SYNTAX_FIELD (*syn), info,
297*3d8817e4Smiod fields, CGEN_INSN_ATTRS (insn), pc, length);
298*3d8817e4Smiod }
299*3d8817e4Smiod }
300*3d8817e4Smiod
301*3d8817e4Smiod /* Subroutine of print_insn. Reads an insn into the given buffers and updates
302*3d8817e4Smiod the extract info.
303*3d8817e4Smiod Returns 0 if all is well, non-zero otherwise. */
304*3d8817e4Smiod
305*3d8817e4Smiod static int
read_insn(CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,bfd_vma pc,disassemble_info * info,bfd_byte * buf,int buflen,CGEN_EXTRACT_INFO * ex_info,unsigned long * insn_value)306*3d8817e4Smiod read_insn (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
307*3d8817e4Smiod bfd_vma pc,
308*3d8817e4Smiod disassemble_info *info,
309*3d8817e4Smiod bfd_byte *buf,
310*3d8817e4Smiod int buflen,
311*3d8817e4Smiod CGEN_EXTRACT_INFO *ex_info,
312*3d8817e4Smiod unsigned long *insn_value)
313*3d8817e4Smiod {
314*3d8817e4Smiod int status = (*info->read_memory_func) (pc, buf, buflen, info);
315*3d8817e4Smiod
316*3d8817e4Smiod if (status != 0)
317*3d8817e4Smiod {
318*3d8817e4Smiod (*info->memory_error_func) (status, pc, info);
319*3d8817e4Smiod return -1;
320*3d8817e4Smiod }
321*3d8817e4Smiod
322*3d8817e4Smiod ex_info->dis_info = info;
323*3d8817e4Smiod ex_info->valid = (1 << buflen) - 1;
324*3d8817e4Smiod ex_info->insn_bytes = buf;
325*3d8817e4Smiod
326*3d8817e4Smiod *insn_value = bfd_get_bits (buf, buflen * 8, info->endian == BFD_ENDIAN_BIG);
327*3d8817e4Smiod return 0;
328*3d8817e4Smiod }
329*3d8817e4Smiod
330*3d8817e4Smiod /* Utility to print an insn.
331*3d8817e4Smiod BUF is the base part of the insn, target byte order, BUFLEN bytes long.
332*3d8817e4Smiod The result is the size of the insn in bytes or zero for an unknown insn
333*3d8817e4Smiod or -1 if an error occurs fetching data (memory_error_func will have
334*3d8817e4Smiod been called). */
335*3d8817e4Smiod
336*3d8817e4Smiod static int
print_insn(CGEN_CPU_DESC cd,bfd_vma pc,disassemble_info * info,bfd_byte * buf,unsigned int buflen)337*3d8817e4Smiod print_insn (CGEN_CPU_DESC cd,
338*3d8817e4Smiod bfd_vma pc,
339*3d8817e4Smiod disassemble_info *info,
340*3d8817e4Smiod bfd_byte *buf,
341*3d8817e4Smiod unsigned int buflen)
342*3d8817e4Smiod {
343*3d8817e4Smiod CGEN_INSN_INT insn_value;
344*3d8817e4Smiod const CGEN_INSN_LIST *insn_list;
345*3d8817e4Smiod CGEN_EXTRACT_INFO ex_info;
346*3d8817e4Smiod int basesize;
347*3d8817e4Smiod
348*3d8817e4Smiod /* Extract base part of instruction, just in case CGEN_DIS_* uses it. */
349*3d8817e4Smiod basesize = cd->base_insn_bitsize < buflen * 8 ?
350*3d8817e4Smiod cd->base_insn_bitsize : buflen * 8;
351*3d8817e4Smiod insn_value = cgen_get_insn_value (cd, buf, basesize);
352*3d8817e4Smiod
353*3d8817e4Smiod
354*3d8817e4Smiod /* Fill in ex_info fields like read_insn would. Don't actually call
355*3d8817e4Smiod read_insn, since the incoming buffer is already read (and possibly
356*3d8817e4Smiod modified a la m32r). */
357*3d8817e4Smiod ex_info.valid = (1 << buflen) - 1;
358*3d8817e4Smiod ex_info.dis_info = info;
359*3d8817e4Smiod ex_info.insn_bytes = buf;
360*3d8817e4Smiod
361*3d8817e4Smiod /* The instructions are stored in hash lists.
362*3d8817e4Smiod Pick the first one and keep trying until we find the right one. */
363*3d8817e4Smiod
364*3d8817e4Smiod insn_list = CGEN_DIS_LOOKUP_INSN (cd, (char *) buf, insn_value);
365*3d8817e4Smiod while (insn_list != NULL)
366*3d8817e4Smiod {
367*3d8817e4Smiod const CGEN_INSN *insn = insn_list->insn;
368*3d8817e4Smiod CGEN_FIELDS fields;
369*3d8817e4Smiod int length;
370*3d8817e4Smiod unsigned long insn_value_cropped;
371*3d8817e4Smiod
372*3d8817e4Smiod #ifdef CGEN_VALIDATE_INSN_SUPPORTED
373*3d8817e4Smiod /* Not needed as insn shouldn't be in hash lists if not supported. */
374*3d8817e4Smiod /* Supported by this cpu? */
375*3d8817e4Smiod if (! xstormy16_cgen_insn_supported (cd, insn))
376*3d8817e4Smiod {
377*3d8817e4Smiod insn_list = CGEN_DIS_NEXT_INSN (insn_list);
378*3d8817e4Smiod continue;
379*3d8817e4Smiod }
380*3d8817e4Smiod #endif
381*3d8817e4Smiod
382*3d8817e4Smiod /* Basic bit mask must be correct. */
383*3d8817e4Smiod /* ??? May wish to allow target to defer this check until the extract
384*3d8817e4Smiod handler. */
385*3d8817e4Smiod
386*3d8817e4Smiod /* Base size may exceed this instruction's size. Extract the
387*3d8817e4Smiod relevant part from the buffer. */
388*3d8817e4Smiod if ((unsigned) (CGEN_INSN_BITSIZE (insn) / 8) < buflen &&
389*3d8817e4Smiod (unsigned) (CGEN_INSN_BITSIZE (insn) / 8) <= sizeof (unsigned long))
390*3d8817e4Smiod insn_value_cropped = bfd_get_bits (buf, CGEN_INSN_BITSIZE (insn),
391*3d8817e4Smiod info->endian == BFD_ENDIAN_BIG);
392*3d8817e4Smiod else
393*3d8817e4Smiod insn_value_cropped = insn_value;
394*3d8817e4Smiod
395*3d8817e4Smiod if ((insn_value_cropped & CGEN_INSN_BASE_MASK (insn))
396*3d8817e4Smiod == CGEN_INSN_BASE_VALUE (insn))
397*3d8817e4Smiod {
398*3d8817e4Smiod /* Printing is handled in two passes. The first pass parses the
399*3d8817e4Smiod machine insn and extracts the fields. The second pass prints
400*3d8817e4Smiod them. */
401*3d8817e4Smiod
402*3d8817e4Smiod /* Make sure the entire insn is loaded into insn_value, if it
403*3d8817e4Smiod can fit. */
404*3d8817e4Smiod if (((unsigned) CGEN_INSN_BITSIZE (insn) > cd->base_insn_bitsize) &&
405*3d8817e4Smiod (unsigned) (CGEN_INSN_BITSIZE (insn) / 8) <= sizeof (unsigned long))
406*3d8817e4Smiod {
407*3d8817e4Smiod unsigned long full_insn_value;
408*3d8817e4Smiod int rc = read_insn (cd, pc, info, buf,
409*3d8817e4Smiod CGEN_INSN_BITSIZE (insn) / 8,
410*3d8817e4Smiod & ex_info, & full_insn_value);
411*3d8817e4Smiod if (rc != 0)
412*3d8817e4Smiod return rc;
413*3d8817e4Smiod length = CGEN_EXTRACT_FN (cd, insn)
414*3d8817e4Smiod (cd, insn, &ex_info, full_insn_value, &fields, pc);
415*3d8817e4Smiod }
416*3d8817e4Smiod else
417*3d8817e4Smiod length = CGEN_EXTRACT_FN (cd, insn)
418*3d8817e4Smiod (cd, insn, &ex_info, insn_value_cropped, &fields, pc);
419*3d8817e4Smiod
420*3d8817e4Smiod /* Length < 0 -> error. */
421*3d8817e4Smiod if (length < 0)
422*3d8817e4Smiod return length;
423*3d8817e4Smiod if (length > 0)
424*3d8817e4Smiod {
425*3d8817e4Smiod CGEN_PRINT_FN (cd, insn) (cd, info, insn, &fields, pc, length);
426*3d8817e4Smiod /* Length is in bits, result is in bytes. */
427*3d8817e4Smiod return length / 8;
428*3d8817e4Smiod }
429*3d8817e4Smiod }
430*3d8817e4Smiod
431*3d8817e4Smiod insn_list = CGEN_DIS_NEXT_INSN (insn_list);
432*3d8817e4Smiod }
433*3d8817e4Smiod
434*3d8817e4Smiod return 0;
435*3d8817e4Smiod }
436*3d8817e4Smiod
437*3d8817e4Smiod /* Default value for CGEN_PRINT_INSN.
438*3d8817e4Smiod The result is the size of the insn in bytes or zero for an unknown insn
439*3d8817e4Smiod or -1 if an error occured fetching bytes. */
440*3d8817e4Smiod
441*3d8817e4Smiod #ifndef CGEN_PRINT_INSN
442*3d8817e4Smiod #define CGEN_PRINT_INSN default_print_insn
443*3d8817e4Smiod #endif
444*3d8817e4Smiod
445*3d8817e4Smiod static int
default_print_insn(CGEN_CPU_DESC cd,bfd_vma pc,disassemble_info * info)446*3d8817e4Smiod default_print_insn (CGEN_CPU_DESC cd, bfd_vma pc, disassemble_info *info)
447*3d8817e4Smiod {
448*3d8817e4Smiod bfd_byte buf[CGEN_MAX_INSN_SIZE];
449*3d8817e4Smiod int buflen;
450*3d8817e4Smiod int status;
451*3d8817e4Smiod
452*3d8817e4Smiod /* Attempt to read the base part of the insn. */
453*3d8817e4Smiod buflen = cd->base_insn_bitsize / 8;
454*3d8817e4Smiod status = (*info->read_memory_func) (pc, buf, buflen, info);
455*3d8817e4Smiod
456*3d8817e4Smiod /* Try again with the minimum part, if min < base. */
457*3d8817e4Smiod if (status != 0 && (cd->min_insn_bitsize < cd->base_insn_bitsize))
458*3d8817e4Smiod {
459*3d8817e4Smiod buflen = cd->min_insn_bitsize / 8;
460*3d8817e4Smiod status = (*info->read_memory_func) (pc, buf, buflen, info);
461*3d8817e4Smiod }
462*3d8817e4Smiod
463*3d8817e4Smiod if (status != 0)
464*3d8817e4Smiod {
465*3d8817e4Smiod (*info->memory_error_func) (status, pc, info);
466*3d8817e4Smiod return -1;
467*3d8817e4Smiod }
468*3d8817e4Smiod
469*3d8817e4Smiod return print_insn (cd, pc, info, buf, buflen);
470*3d8817e4Smiod }
471*3d8817e4Smiod
472*3d8817e4Smiod /* Main entry point.
473*3d8817e4Smiod Print one instruction from PC on INFO->STREAM.
474*3d8817e4Smiod Return the size of the instruction (in bytes). */
475*3d8817e4Smiod
476*3d8817e4Smiod typedef struct cpu_desc_list
477*3d8817e4Smiod {
478*3d8817e4Smiod struct cpu_desc_list *next;
479*3d8817e4Smiod CGEN_BITSET *isa;
480*3d8817e4Smiod int mach;
481*3d8817e4Smiod int endian;
482*3d8817e4Smiod CGEN_CPU_DESC cd;
483*3d8817e4Smiod } cpu_desc_list;
484*3d8817e4Smiod
485*3d8817e4Smiod int
print_insn_xstormy16(bfd_vma pc,disassemble_info * info)486*3d8817e4Smiod print_insn_xstormy16 (bfd_vma pc, disassemble_info *info)
487*3d8817e4Smiod {
488*3d8817e4Smiod static cpu_desc_list *cd_list = 0;
489*3d8817e4Smiod cpu_desc_list *cl = 0;
490*3d8817e4Smiod static CGEN_CPU_DESC cd = 0;
491*3d8817e4Smiod static CGEN_BITSET *prev_isa;
492*3d8817e4Smiod static int prev_mach;
493*3d8817e4Smiod static int prev_endian;
494*3d8817e4Smiod int length;
495*3d8817e4Smiod CGEN_BITSET *isa;
496*3d8817e4Smiod int mach;
497*3d8817e4Smiod int endian = (info->endian == BFD_ENDIAN_BIG
498*3d8817e4Smiod ? CGEN_ENDIAN_BIG
499*3d8817e4Smiod : CGEN_ENDIAN_LITTLE);
500*3d8817e4Smiod enum bfd_architecture arch;
501*3d8817e4Smiod
502*3d8817e4Smiod /* ??? gdb will set mach but leave the architecture as "unknown" */
503*3d8817e4Smiod #ifndef CGEN_BFD_ARCH
504*3d8817e4Smiod #define CGEN_BFD_ARCH bfd_arch_xstormy16
505*3d8817e4Smiod #endif
506*3d8817e4Smiod arch = info->arch;
507*3d8817e4Smiod if (arch == bfd_arch_unknown)
508*3d8817e4Smiod arch = CGEN_BFD_ARCH;
509*3d8817e4Smiod
510*3d8817e4Smiod /* There's no standard way to compute the machine or isa number
511*3d8817e4Smiod so we leave it to the target. */
512*3d8817e4Smiod #ifdef CGEN_COMPUTE_MACH
513*3d8817e4Smiod mach = CGEN_COMPUTE_MACH (info);
514*3d8817e4Smiod #else
515*3d8817e4Smiod mach = info->mach;
516*3d8817e4Smiod #endif
517*3d8817e4Smiod
518*3d8817e4Smiod #ifdef CGEN_COMPUTE_ISA
519*3d8817e4Smiod {
520*3d8817e4Smiod static CGEN_BITSET *permanent_isa;
521*3d8817e4Smiod
522*3d8817e4Smiod if (!permanent_isa)
523*3d8817e4Smiod permanent_isa = cgen_bitset_create (MAX_ISAS);
524*3d8817e4Smiod isa = permanent_isa;
525*3d8817e4Smiod cgen_bitset_clear (isa);
526*3d8817e4Smiod cgen_bitset_add (isa, CGEN_COMPUTE_ISA (info));
527*3d8817e4Smiod }
528*3d8817e4Smiod #else
529*3d8817e4Smiod isa = info->insn_sets;
530*3d8817e4Smiod #endif
531*3d8817e4Smiod
532*3d8817e4Smiod /* If we've switched cpu's, try to find a handle we've used before */
533*3d8817e4Smiod if (cd
534*3d8817e4Smiod && (cgen_bitset_compare (isa, prev_isa) != 0
535*3d8817e4Smiod || mach != prev_mach
536*3d8817e4Smiod || endian != prev_endian))
537*3d8817e4Smiod {
538*3d8817e4Smiod cd = 0;
539*3d8817e4Smiod for (cl = cd_list; cl; cl = cl->next)
540*3d8817e4Smiod {
541*3d8817e4Smiod if (cgen_bitset_compare (cl->isa, isa) == 0 &&
542*3d8817e4Smiod cl->mach == mach &&
543*3d8817e4Smiod cl->endian == endian)
544*3d8817e4Smiod {
545*3d8817e4Smiod cd = cl->cd;
546*3d8817e4Smiod prev_isa = cd->isas;
547*3d8817e4Smiod break;
548*3d8817e4Smiod }
549*3d8817e4Smiod }
550*3d8817e4Smiod }
551*3d8817e4Smiod
552*3d8817e4Smiod /* If we haven't initialized yet, initialize the opcode table. */
553*3d8817e4Smiod if (! cd)
554*3d8817e4Smiod {
555*3d8817e4Smiod const bfd_arch_info_type *arch_type = bfd_lookup_arch (arch, mach);
556*3d8817e4Smiod const char *mach_name;
557*3d8817e4Smiod
558*3d8817e4Smiod if (!arch_type)
559*3d8817e4Smiod abort ();
560*3d8817e4Smiod mach_name = arch_type->printable_name;
561*3d8817e4Smiod
562*3d8817e4Smiod prev_isa = cgen_bitset_copy (isa);
563*3d8817e4Smiod prev_mach = mach;
564*3d8817e4Smiod prev_endian = endian;
565*3d8817e4Smiod cd = xstormy16_cgen_cpu_open (CGEN_CPU_OPEN_ISAS, prev_isa,
566*3d8817e4Smiod CGEN_CPU_OPEN_BFDMACH, mach_name,
567*3d8817e4Smiod CGEN_CPU_OPEN_ENDIAN, prev_endian,
568*3d8817e4Smiod CGEN_CPU_OPEN_END);
569*3d8817e4Smiod if (!cd)
570*3d8817e4Smiod abort ();
571*3d8817e4Smiod
572*3d8817e4Smiod /* Save this away for future reference. */
573*3d8817e4Smiod cl = xmalloc (sizeof (struct cpu_desc_list));
574*3d8817e4Smiod cl->cd = cd;
575*3d8817e4Smiod cl->isa = prev_isa;
576*3d8817e4Smiod cl->mach = mach;
577*3d8817e4Smiod cl->endian = endian;
578*3d8817e4Smiod cl->next = cd_list;
579*3d8817e4Smiod cd_list = cl;
580*3d8817e4Smiod
581*3d8817e4Smiod xstormy16_cgen_init_dis (cd);
582*3d8817e4Smiod }
583*3d8817e4Smiod
584*3d8817e4Smiod /* We try to have as much common code as possible.
585*3d8817e4Smiod But at this point some targets need to take over. */
586*3d8817e4Smiod /* ??? Some targets may need a hook elsewhere. Try to avoid this,
587*3d8817e4Smiod but if not possible try to move this hook elsewhere rather than
588*3d8817e4Smiod have two hooks. */
589*3d8817e4Smiod length = CGEN_PRINT_INSN (cd, pc, info);
590*3d8817e4Smiod if (length > 0)
591*3d8817e4Smiod return length;
592*3d8817e4Smiod if (length < 0)
593*3d8817e4Smiod return -1;
594*3d8817e4Smiod
595*3d8817e4Smiod (*info->fprintf_func) (info->stream, UNKNOWN_INSN_MSG);
596*3d8817e4Smiod return cd->default_insn_bitsize / 8;
597*3d8817e4Smiod }
598