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 "m32r-desc.h"
37*3d8817e4Smiod #include "m32r-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 /* -- dis.c */
62*3d8817e4Smiod /* Immediate values are prefixed with '#'. */
63*3d8817e4Smiod
64*3d8817e4Smiod #define CGEN_PRINT_NORMAL(cd, info, value, attrs, pc, length) \
65*3d8817e4Smiod do \
66*3d8817e4Smiod { \
67*3d8817e4Smiod if (CGEN_BOOL_ATTR ((attrs), CGEN_OPERAND_HASH_PREFIX)) \
68*3d8817e4Smiod (*info->fprintf_func) (info->stream, "#"); \
69*3d8817e4Smiod } \
70*3d8817e4Smiod while (0)
71*3d8817e4Smiod
72*3d8817e4Smiod /* Handle '#' prefixes as operands. */
73*3d8817e4Smiod
74*3d8817e4Smiod static void
print_hash(CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,void * dis_info,long value ATTRIBUTE_UNUSED,unsigned int attrs ATTRIBUTE_UNUSED,bfd_vma pc ATTRIBUTE_UNUSED,int length ATTRIBUTE_UNUSED)75*3d8817e4Smiod print_hash (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
76*3d8817e4Smiod void * dis_info,
77*3d8817e4Smiod long value ATTRIBUTE_UNUSED,
78*3d8817e4Smiod unsigned int attrs ATTRIBUTE_UNUSED,
79*3d8817e4Smiod bfd_vma pc ATTRIBUTE_UNUSED,
80*3d8817e4Smiod int length ATTRIBUTE_UNUSED)
81*3d8817e4Smiod {
82*3d8817e4Smiod disassemble_info *info = (disassemble_info *) dis_info;
83*3d8817e4Smiod
84*3d8817e4Smiod (*info->fprintf_func) (info->stream, "#");
85*3d8817e4Smiod }
86*3d8817e4Smiod
87*3d8817e4Smiod #undef CGEN_PRINT_INSN
88*3d8817e4Smiod #define CGEN_PRINT_INSN my_print_insn
89*3d8817e4Smiod
90*3d8817e4Smiod static int
my_print_insn(CGEN_CPU_DESC cd,bfd_vma pc,disassemble_info * info)91*3d8817e4Smiod my_print_insn (CGEN_CPU_DESC cd,
92*3d8817e4Smiod bfd_vma pc,
93*3d8817e4Smiod disassemble_info *info)
94*3d8817e4Smiod {
95*3d8817e4Smiod bfd_byte buffer[CGEN_MAX_INSN_SIZE];
96*3d8817e4Smiod bfd_byte *buf = buffer;
97*3d8817e4Smiod int status;
98*3d8817e4Smiod int buflen = (pc & 3) == 0 ? 4 : 2;
99*3d8817e4Smiod int big_p = CGEN_CPU_INSN_ENDIAN (cd) == CGEN_ENDIAN_BIG;
100*3d8817e4Smiod bfd_byte *x;
101*3d8817e4Smiod
102*3d8817e4Smiod /* Read the base part of the insn. */
103*3d8817e4Smiod
104*3d8817e4Smiod status = (*info->read_memory_func) (pc - ((!big_p && (pc & 3) != 0) ? 2 : 0),
105*3d8817e4Smiod buf, buflen, info);
106*3d8817e4Smiod if (status != 0)
107*3d8817e4Smiod {
108*3d8817e4Smiod (*info->memory_error_func) (status, pc, info);
109*3d8817e4Smiod return -1;
110*3d8817e4Smiod }
111*3d8817e4Smiod
112*3d8817e4Smiod /* 32 bit insn? */
113*3d8817e4Smiod x = (big_p ? &buf[0] : &buf[3]);
114*3d8817e4Smiod if ((pc & 3) == 0 && (*x & 0x80) != 0)
115*3d8817e4Smiod return print_insn (cd, pc, info, buf, buflen);
116*3d8817e4Smiod
117*3d8817e4Smiod /* Print the first insn. */
118*3d8817e4Smiod if ((pc & 3) == 0)
119*3d8817e4Smiod {
120*3d8817e4Smiod buf += (big_p ? 0 : 2);
121*3d8817e4Smiod if (print_insn (cd, pc, info, buf, 2) == 0)
122*3d8817e4Smiod (*info->fprintf_func) (info->stream, UNKNOWN_INSN_MSG);
123*3d8817e4Smiod buf += (big_p ? 2 : -2);
124*3d8817e4Smiod }
125*3d8817e4Smiod
126*3d8817e4Smiod x = (big_p ? &buf[0] : &buf[1]);
127*3d8817e4Smiod if (*x & 0x80)
128*3d8817e4Smiod {
129*3d8817e4Smiod /* Parallel. */
130*3d8817e4Smiod (*info->fprintf_func) (info->stream, " || ");
131*3d8817e4Smiod *x &= 0x7f;
132*3d8817e4Smiod }
133*3d8817e4Smiod else
134*3d8817e4Smiod (*info->fprintf_func) (info->stream, " -> ");
135*3d8817e4Smiod
136*3d8817e4Smiod /* The "& 3" is to pass a consistent address.
137*3d8817e4Smiod Parallel insns arguably both begin on the word boundary.
138*3d8817e4Smiod Also, branch insns are calculated relative to the word boundary. */
139*3d8817e4Smiod if (print_insn (cd, pc & ~ (bfd_vma) 3, info, buf, 2) == 0)
140*3d8817e4Smiod (*info->fprintf_func) (info->stream, UNKNOWN_INSN_MSG);
141*3d8817e4Smiod
142*3d8817e4Smiod return (pc & 3) ? 2 : 4;
143*3d8817e4Smiod }
144*3d8817e4Smiod
145*3d8817e4Smiod /* -- */
146*3d8817e4Smiod
147*3d8817e4Smiod void m32r_cgen_print_operand
148*3d8817e4Smiod (CGEN_CPU_DESC, int, PTR, CGEN_FIELDS *, void const *, bfd_vma, int);
149*3d8817e4Smiod
150*3d8817e4Smiod /* Main entry point for printing operands.
151*3d8817e4Smiod XINFO is a `void *' and not a `disassemble_info *' to not put a requirement
152*3d8817e4Smiod of dis-asm.h on cgen.h.
153*3d8817e4Smiod
154*3d8817e4Smiod This function is basically just a big switch statement. Earlier versions
155*3d8817e4Smiod used tables to look up the function to use, but
156*3d8817e4Smiod - if the table contains both assembler and disassembler functions then
157*3d8817e4Smiod the disassembler contains much of the assembler and vice-versa,
158*3d8817e4Smiod - there's a lot of inlining possibilities as things grow,
159*3d8817e4Smiod - using a switch statement avoids the function call overhead.
160*3d8817e4Smiod
161*3d8817e4Smiod This function could be moved into `print_insn_normal', but keeping it
162*3d8817e4Smiod separate makes clear the interface between `print_insn_normal' and each of
163*3d8817e4Smiod the handlers. */
164*3d8817e4Smiod
165*3d8817e4Smiod void
m32r_cgen_print_operand(CGEN_CPU_DESC cd,int opindex,void * xinfo,CGEN_FIELDS * fields,void const * attrs ATTRIBUTE_UNUSED,bfd_vma pc,int length)166*3d8817e4Smiod m32r_cgen_print_operand (CGEN_CPU_DESC cd,
167*3d8817e4Smiod int opindex,
168*3d8817e4Smiod void * xinfo,
169*3d8817e4Smiod CGEN_FIELDS *fields,
170*3d8817e4Smiod void const *attrs ATTRIBUTE_UNUSED,
171*3d8817e4Smiod bfd_vma pc,
172*3d8817e4Smiod int length)
173*3d8817e4Smiod {
174*3d8817e4Smiod disassemble_info *info = (disassemble_info *) xinfo;
175*3d8817e4Smiod
176*3d8817e4Smiod switch (opindex)
177*3d8817e4Smiod {
178*3d8817e4Smiod case M32R_OPERAND_ACC :
179*3d8817e4Smiod print_keyword (cd, info, & m32r_cgen_opval_h_accums, fields->f_acc, 0);
180*3d8817e4Smiod break;
181*3d8817e4Smiod case M32R_OPERAND_ACCD :
182*3d8817e4Smiod print_keyword (cd, info, & m32r_cgen_opval_h_accums, fields->f_accd, 0);
183*3d8817e4Smiod break;
184*3d8817e4Smiod case M32R_OPERAND_ACCS :
185*3d8817e4Smiod print_keyword (cd, info, & m32r_cgen_opval_h_accums, fields->f_accs, 0);
186*3d8817e4Smiod break;
187*3d8817e4Smiod case M32R_OPERAND_DCR :
188*3d8817e4Smiod print_keyword (cd, info, & m32r_cgen_opval_cr_names, fields->f_r1, 0);
189*3d8817e4Smiod break;
190*3d8817e4Smiod case M32R_OPERAND_DISP16 :
191*3d8817e4Smiod print_address (cd, info, fields->f_disp16, 0|(1<<CGEN_OPERAND_RELOC)|(1<<CGEN_OPERAND_PCREL_ADDR), pc, length);
192*3d8817e4Smiod break;
193*3d8817e4Smiod case M32R_OPERAND_DISP24 :
194*3d8817e4Smiod print_address (cd, info, fields->f_disp24, 0|(1<<CGEN_OPERAND_RELAX)|(1<<CGEN_OPERAND_RELOC)|(1<<CGEN_OPERAND_PCREL_ADDR), pc, length);
195*3d8817e4Smiod break;
196*3d8817e4Smiod case M32R_OPERAND_DISP8 :
197*3d8817e4Smiod print_address (cd, info, fields->f_disp8, 0|(1<<CGEN_OPERAND_RELAX)|(1<<CGEN_OPERAND_RELOC)|(1<<CGEN_OPERAND_PCREL_ADDR), pc, length);
198*3d8817e4Smiod break;
199*3d8817e4Smiod case M32R_OPERAND_DR :
200*3d8817e4Smiod print_keyword (cd, info, & m32r_cgen_opval_gr_names, fields->f_r1, 0);
201*3d8817e4Smiod break;
202*3d8817e4Smiod case M32R_OPERAND_HASH :
203*3d8817e4Smiod print_hash (cd, info, 0, 0|(1<<CGEN_OPERAND_SIGNED), pc, length);
204*3d8817e4Smiod break;
205*3d8817e4Smiod case M32R_OPERAND_HI16 :
206*3d8817e4Smiod print_normal (cd, info, fields->f_hi16, 0|(1<<CGEN_OPERAND_SIGN_OPT), pc, length);
207*3d8817e4Smiod break;
208*3d8817e4Smiod case M32R_OPERAND_IMM1 :
209*3d8817e4Smiod print_normal (cd, info, fields->f_imm1, 0|(1<<CGEN_OPERAND_HASH_PREFIX), pc, length);
210*3d8817e4Smiod break;
211*3d8817e4Smiod case M32R_OPERAND_SCR :
212*3d8817e4Smiod print_keyword (cd, info, & m32r_cgen_opval_cr_names, fields->f_r2, 0);
213*3d8817e4Smiod break;
214*3d8817e4Smiod case M32R_OPERAND_SIMM16 :
215*3d8817e4Smiod print_normal (cd, info, fields->f_simm16, 0|(1<<CGEN_OPERAND_SIGNED)|(1<<CGEN_OPERAND_HASH_PREFIX), pc, length);
216*3d8817e4Smiod break;
217*3d8817e4Smiod case M32R_OPERAND_SIMM8 :
218*3d8817e4Smiod print_normal (cd, info, fields->f_simm8, 0|(1<<CGEN_OPERAND_SIGNED)|(1<<CGEN_OPERAND_HASH_PREFIX), pc, length);
219*3d8817e4Smiod break;
220*3d8817e4Smiod case M32R_OPERAND_SLO16 :
221*3d8817e4Smiod print_normal (cd, info, fields->f_simm16, 0|(1<<CGEN_OPERAND_SIGNED), pc, length);
222*3d8817e4Smiod break;
223*3d8817e4Smiod case M32R_OPERAND_SR :
224*3d8817e4Smiod print_keyword (cd, info, & m32r_cgen_opval_gr_names, fields->f_r2, 0);
225*3d8817e4Smiod break;
226*3d8817e4Smiod case M32R_OPERAND_SRC1 :
227*3d8817e4Smiod print_keyword (cd, info, & m32r_cgen_opval_gr_names, fields->f_r1, 0);
228*3d8817e4Smiod break;
229*3d8817e4Smiod case M32R_OPERAND_SRC2 :
230*3d8817e4Smiod print_keyword (cd, info, & m32r_cgen_opval_gr_names, fields->f_r2, 0);
231*3d8817e4Smiod break;
232*3d8817e4Smiod case M32R_OPERAND_UIMM16 :
233*3d8817e4Smiod print_normal (cd, info, fields->f_uimm16, 0|(1<<CGEN_OPERAND_HASH_PREFIX), pc, length);
234*3d8817e4Smiod break;
235*3d8817e4Smiod case M32R_OPERAND_UIMM24 :
236*3d8817e4Smiod print_address (cd, info, fields->f_uimm24, 0|(1<<CGEN_OPERAND_HASH_PREFIX)|(1<<CGEN_OPERAND_RELOC)|(1<<CGEN_OPERAND_ABS_ADDR), pc, length);
237*3d8817e4Smiod break;
238*3d8817e4Smiod case M32R_OPERAND_UIMM3 :
239*3d8817e4Smiod print_normal (cd, info, fields->f_uimm3, 0|(1<<CGEN_OPERAND_HASH_PREFIX), pc, length);
240*3d8817e4Smiod break;
241*3d8817e4Smiod case M32R_OPERAND_UIMM4 :
242*3d8817e4Smiod print_normal (cd, info, fields->f_uimm4, 0|(1<<CGEN_OPERAND_HASH_PREFIX), pc, length);
243*3d8817e4Smiod break;
244*3d8817e4Smiod case M32R_OPERAND_UIMM5 :
245*3d8817e4Smiod print_normal (cd, info, fields->f_uimm5, 0|(1<<CGEN_OPERAND_HASH_PREFIX), pc, length);
246*3d8817e4Smiod break;
247*3d8817e4Smiod case M32R_OPERAND_UIMM8 :
248*3d8817e4Smiod print_normal (cd, info, fields->f_uimm8, 0|(1<<CGEN_OPERAND_HASH_PREFIX), pc, length);
249*3d8817e4Smiod break;
250*3d8817e4Smiod case M32R_OPERAND_ULO16 :
251*3d8817e4Smiod print_normal (cd, info, fields->f_uimm16, 0, pc, length);
252*3d8817e4Smiod break;
253*3d8817e4Smiod
254*3d8817e4Smiod default :
255*3d8817e4Smiod /* xgettext:c-format */
256*3d8817e4Smiod fprintf (stderr, _("Unrecognized field %d while printing insn.\n"),
257*3d8817e4Smiod opindex);
258*3d8817e4Smiod abort ();
259*3d8817e4Smiod }
260*3d8817e4Smiod }
261*3d8817e4Smiod
262*3d8817e4Smiod cgen_print_fn * const m32r_cgen_print_handlers[] =
263*3d8817e4Smiod {
264*3d8817e4Smiod print_insn_normal,
265*3d8817e4Smiod };
266*3d8817e4Smiod
267*3d8817e4Smiod
268*3d8817e4Smiod void
m32r_cgen_init_dis(CGEN_CPU_DESC cd)269*3d8817e4Smiod m32r_cgen_init_dis (CGEN_CPU_DESC cd)
270*3d8817e4Smiod {
271*3d8817e4Smiod m32r_cgen_init_opcode_table (cd);
272*3d8817e4Smiod m32r_cgen_init_ibld_table (cd);
273*3d8817e4Smiod cd->print_handlers = & m32r_cgen_print_handlers[0];
274*3d8817e4Smiod cd->print_operand = m32r_cgen_print_operand;
275*3d8817e4Smiod }
276*3d8817e4Smiod
277*3d8817e4Smiod
278*3d8817e4Smiod /* Default print handler. */
279*3d8817e4Smiod
280*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)281*3d8817e4Smiod print_normal (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
282*3d8817e4Smiod void *dis_info,
283*3d8817e4Smiod long value,
284*3d8817e4Smiod unsigned int attrs,
285*3d8817e4Smiod bfd_vma pc ATTRIBUTE_UNUSED,
286*3d8817e4Smiod int length ATTRIBUTE_UNUSED)
287*3d8817e4Smiod {
288*3d8817e4Smiod disassemble_info *info = (disassemble_info *) dis_info;
289*3d8817e4Smiod
290*3d8817e4Smiod #ifdef CGEN_PRINT_NORMAL
291*3d8817e4Smiod CGEN_PRINT_NORMAL (cd, info, value, attrs, pc, length);
292*3d8817e4Smiod #endif
293*3d8817e4Smiod
294*3d8817e4Smiod /* Print the operand as directed by the attributes. */
295*3d8817e4Smiod if (CGEN_BOOL_ATTR (attrs, CGEN_OPERAND_SEM_ONLY))
296*3d8817e4Smiod ; /* nothing to do */
297*3d8817e4Smiod else if (CGEN_BOOL_ATTR (attrs, CGEN_OPERAND_SIGNED))
298*3d8817e4Smiod (*info->fprintf_func) (info->stream, "%ld", value);
299*3d8817e4Smiod else
300*3d8817e4Smiod (*info->fprintf_func) (info->stream, "0x%lx", value);
301*3d8817e4Smiod }
302*3d8817e4Smiod
303*3d8817e4Smiod /* Default address handler. */
304*3d8817e4Smiod
305*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)306*3d8817e4Smiod print_address (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
307*3d8817e4Smiod void *dis_info,
308*3d8817e4Smiod bfd_vma value,
309*3d8817e4Smiod unsigned int attrs,
310*3d8817e4Smiod bfd_vma pc ATTRIBUTE_UNUSED,
311*3d8817e4Smiod int length ATTRIBUTE_UNUSED)
312*3d8817e4Smiod {
313*3d8817e4Smiod disassemble_info *info = (disassemble_info *) dis_info;
314*3d8817e4Smiod
315*3d8817e4Smiod #ifdef CGEN_PRINT_ADDRESS
316*3d8817e4Smiod CGEN_PRINT_ADDRESS (cd, info, value, attrs, pc, length);
317*3d8817e4Smiod #endif
318*3d8817e4Smiod
319*3d8817e4Smiod /* Print the operand as directed by the attributes. */
320*3d8817e4Smiod if (CGEN_BOOL_ATTR (attrs, CGEN_OPERAND_SEM_ONLY))
321*3d8817e4Smiod ; /* Nothing to do. */
322*3d8817e4Smiod else if (CGEN_BOOL_ATTR (attrs, CGEN_OPERAND_PCREL_ADDR))
323*3d8817e4Smiod (*info->print_address_func) (value, info);
324*3d8817e4Smiod else if (CGEN_BOOL_ATTR (attrs, CGEN_OPERAND_ABS_ADDR))
325*3d8817e4Smiod (*info->print_address_func) (value, info);
326*3d8817e4Smiod else if (CGEN_BOOL_ATTR (attrs, CGEN_OPERAND_SIGNED))
327*3d8817e4Smiod (*info->fprintf_func) (info->stream, "%ld", (long) value);
328*3d8817e4Smiod else
329*3d8817e4Smiod (*info->fprintf_func) (info->stream, "0x%lx", (long) value);
330*3d8817e4Smiod }
331*3d8817e4Smiod
332*3d8817e4Smiod /* Keyword print handler. */
333*3d8817e4Smiod
334*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)335*3d8817e4Smiod print_keyword (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
336*3d8817e4Smiod void *dis_info,
337*3d8817e4Smiod CGEN_KEYWORD *keyword_table,
338*3d8817e4Smiod long value,
339*3d8817e4Smiod unsigned int attrs ATTRIBUTE_UNUSED)
340*3d8817e4Smiod {
341*3d8817e4Smiod disassemble_info *info = (disassemble_info *) dis_info;
342*3d8817e4Smiod const CGEN_KEYWORD_ENTRY *ke;
343*3d8817e4Smiod
344*3d8817e4Smiod ke = cgen_keyword_lookup_value (keyword_table, value);
345*3d8817e4Smiod if (ke != NULL)
346*3d8817e4Smiod (*info->fprintf_func) (info->stream, "%s", ke->name);
347*3d8817e4Smiod else
348*3d8817e4Smiod (*info->fprintf_func) (info->stream, "???");
349*3d8817e4Smiod }
350*3d8817e4Smiod
351*3d8817e4Smiod /* Default insn printer.
352*3d8817e4Smiod
353*3d8817e4Smiod DIS_INFO is defined as `void *' so the disassembler needn't know anything
354*3d8817e4Smiod about disassemble_info. */
355*3d8817e4Smiod
356*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)357*3d8817e4Smiod print_insn_normal (CGEN_CPU_DESC cd,
358*3d8817e4Smiod void *dis_info,
359*3d8817e4Smiod const CGEN_INSN *insn,
360*3d8817e4Smiod CGEN_FIELDS *fields,
361*3d8817e4Smiod bfd_vma pc,
362*3d8817e4Smiod int length)
363*3d8817e4Smiod {
364*3d8817e4Smiod const CGEN_SYNTAX *syntax = CGEN_INSN_SYNTAX (insn);
365*3d8817e4Smiod disassemble_info *info = (disassemble_info *) dis_info;
366*3d8817e4Smiod const CGEN_SYNTAX_CHAR_TYPE *syn;
367*3d8817e4Smiod
368*3d8817e4Smiod CGEN_INIT_PRINT (cd);
369*3d8817e4Smiod
370*3d8817e4Smiod for (syn = CGEN_SYNTAX_STRING (syntax); *syn; ++syn)
371*3d8817e4Smiod {
372*3d8817e4Smiod if (CGEN_SYNTAX_MNEMONIC_P (*syn))
373*3d8817e4Smiod {
374*3d8817e4Smiod (*info->fprintf_func) (info->stream, "%s", CGEN_INSN_MNEMONIC (insn));
375*3d8817e4Smiod continue;
376*3d8817e4Smiod }
377*3d8817e4Smiod if (CGEN_SYNTAX_CHAR_P (*syn))
378*3d8817e4Smiod {
379*3d8817e4Smiod (*info->fprintf_func) (info->stream, "%c", CGEN_SYNTAX_CHAR (*syn));
380*3d8817e4Smiod continue;
381*3d8817e4Smiod }
382*3d8817e4Smiod
383*3d8817e4Smiod /* We have an operand. */
384*3d8817e4Smiod m32r_cgen_print_operand (cd, CGEN_SYNTAX_FIELD (*syn), info,
385*3d8817e4Smiod fields, CGEN_INSN_ATTRS (insn), pc, length);
386*3d8817e4Smiod }
387*3d8817e4Smiod }
388*3d8817e4Smiod
389*3d8817e4Smiod /* Subroutine of print_insn. Reads an insn into the given buffers and updates
390*3d8817e4Smiod the extract info.
391*3d8817e4Smiod Returns 0 if all is well, non-zero otherwise. */
392*3d8817e4Smiod
393*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)394*3d8817e4Smiod read_insn (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
395*3d8817e4Smiod bfd_vma pc,
396*3d8817e4Smiod disassemble_info *info,
397*3d8817e4Smiod bfd_byte *buf,
398*3d8817e4Smiod int buflen,
399*3d8817e4Smiod CGEN_EXTRACT_INFO *ex_info,
400*3d8817e4Smiod unsigned long *insn_value)
401*3d8817e4Smiod {
402*3d8817e4Smiod int status = (*info->read_memory_func) (pc, buf, buflen, info);
403*3d8817e4Smiod
404*3d8817e4Smiod if (status != 0)
405*3d8817e4Smiod {
406*3d8817e4Smiod (*info->memory_error_func) (status, pc, info);
407*3d8817e4Smiod return -1;
408*3d8817e4Smiod }
409*3d8817e4Smiod
410*3d8817e4Smiod ex_info->dis_info = info;
411*3d8817e4Smiod ex_info->valid = (1 << buflen) - 1;
412*3d8817e4Smiod ex_info->insn_bytes = buf;
413*3d8817e4Smiod
414*3d8817e4Smiod *insn_value = bfd_get_bits (buf, buflen * 8, info->endian == BFD_ENDIAN_BIG);
415*3d8817e4Smiod return 0;
416*3d8817e4Smiod }
417*3d8817e4Smiod
418*3d8817e4Smiod /* Utility to print an insn.
419*3d8817e4Smiod BUF is the base part of the insn, target byte order, BUFLEN bytes long.
420*3d8817e4Smiod The result is the size of the insn in bytes or zero for an unknown insn
421*3d8817e4Smiod or -1 if an error occurs fetching data (memory_error_func will have
422*3d8817e4Smiod been called). */
423*3d8817e4Smiod
424*3d8817e4Smiod static int
print_insn(CGEN_CPU_DESC cd,bfd_vma pc,disassemble_info * info,bfd_byte * buf,unsigned int buflen)425*3d8817e4Smiod print_insn (CGEN_CPU_DESC cd,
426*3d8817e4Smiod bfd_vma pc,
427*3d8817e4Smiod disassemble_info *info,
428*3d8817e4Smiod bfd_byte *buf,
429*3d8817e4Smiod unsigned int buflen)
430*3d8817e4Smiod {
431*3d8817e4Smiod CGEN_INSN_INT insn_value;
432*3d8817e4Smiod const CGEN_INSN_LIST *insn_list;
433*3d8817e4Smiod CGEN_EXTRACT_INFO ex_info;
434*3d8817e4Smiod int basesize;
435*3d8817e4Smiod
436*3d8817e4Smiod /* Extract base part of instruction, just in case CGEN_DIS_* uses it. */
437*3d8817e4Smiod basesize = cd->base_insn_bitsize < buflen * 8 ?
438*3d8817e4Smiod cd->base_insn_bitsize : buflen * 8;
439*3d8817e4Smiod insn_value = cgen_get_insn_value (cd, buf, basesize);
440*3d8817e4Smiod
441*3d8817e4Smiod
442*3d8817e4Smiod /* Fill in ex_info fields like read_insn would. Don't actually call
443*3d8817e4Smiod read_insn, since the incoming buffer is already read (and possibly
444*3d8817e4Smiod modified a la m32r). */
445*3d8817e4Smiod ex_info.valid = (1 << buflen) - 1;
446*3d8817e4Smiod ex_info.dis_info = info;
447*3d8817e4Smiod ex_info.insn_bytes = buf;
448*3d8817e4Smiod
449*3d8817e4Smiod /* The instructions are stored in hash lists.
450*3d8817e4Smiod Pick the first one and keep trying until we find the right one. */
451*3d8817e4Smiod
452*3d8817e4Smiod insn_list = CGEN_DIS_LOOKUP_INSN (cd, (char *) buf, insn_value);
453*3d8817e4Smiod while (insn_list != NULL)
454*3d8817e4Smiod {
455*3d8817e4Smiod const CGEN_INSN *insn = insn_list->insn;
456*3d8817e4Smiod CGEN_FIELDS fields;
457*3d8817e4Smiod int length;
458*3d8817e4Smiod unsigned long insn_value_cropped;
459*3d8817e4Smiod
460*3d8817e4Smiod #ifdef CGEN_VALIDATE_INSN_SUPPORTED
461*3d8817e4Smiod /* Not needed as insn shouldn't be in hash lists if not supported. */
462*3d8817e4Smiod /* Supported by this cpu? */
463*3d8817e4Smiod if (! m32r_cgen_insn_supported (cd, insn))
464*3d8817e4Smiod {
465*3d8817e4Smiod insn_list = CGEN_DIS_NEXT_INSN (insn_list);
466*3d8817e4Smiod continue;
467*3d8817e4Smiod }
468*3d8817e4Smiod #endif
469*3d8817e4Smiod
470*3d8817e4Smiod /* Basic bit mask must be correct. */
471*3d8817e4Smiod /* ??? May wish to allow target to defer this check until the extract
472*3d8817e4Smiod handler. */
473*3d8817e4Smiod
474*3d8817e4Smiod /* Base size may exceed this instruction's size. Extract the
475*3d8817e4Smiod relevant part from the buffer. */
476*3d8817e4Smiod if ((unsigned) (CGEN_INSN_BITSIZE (insn) / 8) < buflen &&
477*3d8817e4Smiod (unsigned) (CGEN_INSN_BITSIZE (insn) / 8) <= sizeof (unsigned long))
478*3d8817e4Smiod insn_value_cropped = bfd_get_bits (buf, CGEN_INSN_BITSIZE (insn),
479*3d8817e4Smiod info->endian == BFD_ENDIAN_BIG);
480*3d8817e4Smiod else
481*3d8817e4Smiod insn_value_cropped = insn_value;
482*3d8817e4Smiod
483*3d8817e4Smiod if ((insn_value_cropped & CGEN_INSN_BASE_MASK (insn))
484*3d8817e4Smiod == CGEN_INSN_BASE_VALUE (insn))
485*3d8817e4Smiod {
486*3d8817e4Smiod /* Printing is handled in two passes. The first pass parses the
487*3d8817e4Smiod machine insn and extracts the fields. The second pass prints
488*3d8817e4Smiod them. */
489*3d8817e4Smiod
490*3d8817e4Smiod /* Make sure the entire insn is loaded into insn_value, if it
491*3d8817e4Smiod can fit. */
492*3d8817e4Smiod if (((unsigned) CGEN_INSN_BITSIZE (insn) > cd->base_insn_bitsize) &&
493*3d8817e4Smiod (unsigned) (CGEN_INSN_BITSIZE (insn) / 8) <= sizeof (unsigned long))
494*3d8817e4Smiod {
495*3d8817e4Smiod unsigned long full_insn_value;
496*3d8817e4Smiod int rc = read_insn (cd, pc, info, buf,
497*3d8817e4Smiod CGEN_INSN_BITSIZE (insn) / 8,
498*3d8817e4Smiod & ex_info, & full_insn_value);
499*3d8817e4Smiod if (rc != 0)
500*3d8817e4Smiod return rc;
501*3d8817e4Smiod length = CGEN_EXTRACT_FN (cd, insn)
502*3d8817e4Smiod (cd, insn, &ex_info, full_insn_value, &fields, pc);
503*3d8817e4Smiod }
504*3d8817e4Smiod else
505*3d8817e4Smiod length = CGEN_EXTRACT_FN (cd, insn)
506*3d8817e4Smiod (cd, insn, &ex_info, insn_value_cropped, &fields, pc);
507*3d8817e4Smiod
508*3d8817e4Smiod /* Length < 0 -> error. */
509*3d8817e4Smiod if (length < 0)
510*3d8817e4Smiod return length;
511*3d8817e4Smiod if (length > 0)
512*3d8817e4Smiod {
513*3d8817e4Smiod CGEN_PRINT_FN (cd, insn) (cd, info, insn, &fields, pc, length);
514*3d8817e4Smiod /* Length is in bits, result is in bytes. */
515*3d8817e4Smiod return length / 8;
516*3d8817e4Smiod }
517*3d8817e4Smiod }
518*3d8817e4Smiod
519*3d8817e4Smiod insn_list = CGEN_DIS_NEXT_INSN (insn_list);
520*3d8817e4Smiod }
521*3d8817e4Smiod
522*3d8817e4Smiod return 0;
523*3d8817e4Smiod }
524*3d8817e4Smiod
525*3d8817e4Smiod /* Default value for CGEN_PRINT_INSN.
526*3d8817e4Smiod The result is the size of the insn in bytes or zero for an unknown insn
527*3d8817e4Smiod or -1 if an error occured fetching bytes. */
528*3d8817e4Smiod
529*3d8817e4Smiod #ifndef CGEN_PRINT_INSN
530*3d8817e4Smiod #define CGEN_PRINT_INSN default_print_insn
531*3d8817e4Smiod #endif
532*3d8817e4Smiod
533*3d8817e4Smiod static int
default_print_insn(CGEN_CPU_DESC cd,bfd_vma pc,disassemble_info * info)534*3d8817e4Smiod default_print_insn (CGEN_CPU_DESC cd, bfd_vma pc, disassemble_info *info)
535*3d8817e4Smiod {
536*3d8817e4Smiod bfd_byte buf[CGEN_MAX_INSN_SIZE];
537*3d8817e4Smiod int buflen;
538*3d8817e4Smiod int status;
539*3d8817e4Smiod
540*3d8817e4Smiod /* Attempt to read the base part of the insn. */
541*3d8817e4Smiod buflen = cd->base_insn_bitsize / 8;
542*3d8817e4Smiod status = (*info->read_memory_func) (pc, buf, buflen, info);
543*3d8817e4Smiod
544*3d8817e4Smiod /* Try again with the minimum part, if min < base. */
545*3d8817e4Smiod if (status != 0 && (cd->min_insn_bitsize < cd->base_insn_bitsize))
546*3d8817e4Smiod {
547*3d8817e4Smiod buflen = cd->min_insn_bitsize / 8;
548*3d8817e4Smiod status = (*info->read_memory_func) (pc, buf, buflen, info);
549*3d8817e4Smiod }
550*3d8817e4Smiod
551*3d8817e4Smiod if (status != 0)
552*3d8817e4Smiod {
553*3d8817e4Smiod (*info->memory_error_func) (status, pc, info);
554*3d8817e4Smiod return -1;
555*3d8817e4Smiod }
556*3d8817e4Smiod
557*3d8817e4Smiod return print_insn (cd, pc, info, buf, buflen);
558*3d8817e4Smiod }
559*3d8817e4Smiod
560*3d8817e4Smiod /* Main entry point.
561*3d8817e4Smiod Print one instruction from PC on INFO->STREAM.
562*3d8817e4Smiod Return the size of the instruction (in bytes). */
563*3d8817e4Smiod
564*3d8817e4Smiod typedef struct cpu_desc_list
565*3d8817e4Smiod {
566*3d8817e4Smiod struct cpu_desc_list *next;
567*3d8817e4Smiod CGEN_BITSET *isa;
568*3d8817e4Smiod int mach;
569*3d8817e4Smiod int endian;
570*3d8817e4Smiod CGEN_CPU_DESC cd;
571*3d8817e4Smiod } cpu_desc_list;
572*3d8817e4Smiod
573*3d8817e4Smiod int
print_insn_m32r(bfd_vma pc,disassemble_info * info)574*3d8817e4Smiod print_insn_m32r (bfd_vma pc, disassemble_info *info)
575*3d8817e4Smiod {
576*3d8817e4Smiod static cpu_desc_list *cd_list = 0;
577*3d8817e4Smiod cpu_desc_list *cl = 0;
578*3d8817e4Smiod static CGEN_CPU_DESC cd = 0;
579*3d8817e4Smiod static CGEN_BITSET *prev_isa;
580*3d8817e4Smiod static int prev_mach;
581*3d8817e4Smiod static int prev_endian;
582*3d8817e4Smiod int length;
583*3d8817e4Smiod CGEN_BITSET *isa;
584*3d8817e4Smiod int mach;
585*3d8817e4Smiod int endian = (info->endian == BFD_ENDIAN_BIG
586*3d8817e4Smiod ? CGEN_ENDIAN_BIG
587*3d8817e4Smiod : CGEN_ENDIAN_LITTLE);
588*3d8817e4Smiod enum bfd_architecture arch;
589*3d8817e4Smiod
590*3d8817e4Smiod /* ??? gdb will set mach but leave the architecture as "unknown" */
591*3d8817e4Smiod #ifndef CGEN_BFD_ARCH
592*3d8817e4Smiod #define CGEN_BFD_ARCH bfd_arch_m32r
593*3d8817e4Smiod #endif
594*3d8817e4Smiod arch = info->arch;
595*3d8817e4Smiod if (arch == bfd_arch_unknown)
596*3d8817e4Smiod arch = CGEN_BFD_ARCH;
597*3d8817e4Smiod
598*3d8817e4Smiod /* There's no standard way to compute the machine or isa number
599*3d8817e4Smiod so we leave it to the target. */
600*3d8817e4Smiod #ifdef CGEN_COMPUTE_MACH
601*3d8817e4Smiod mach = CGEN_COMPUTE_MACH (info);
602*3d8817e4Smiod #else
603*3d8817e4Smiod mach = info->mach;
604*3d8817e4Smiod #endif
605*3d8817e4Smiod
606*3d8817e4Smiod #ifdef CGEN_COMPUTE_ISA
607*3d8817e4Smiod {
608*3d8817e4Smiod static CGEN_BITSET *permanent_isa;
609*3d8817e4Smiod
610*3d8817e4Smiod if (!permanent_isa)
611*3d8817e4Smiod permanent_isa = cgen_bitset_create (MAX_ISAS);
612*3d8817e4Smiod isa = permanent_isa;
613*3d8817e4Smiod cgen_bitset_clear (isa);
614*3d8817e4Smiod cgen_bitset_add (isa, CGEN_COMPUTE_ISA (info));
615*3d8817e4Smiod }
616*3d8817e4Smiod #else
617*3d8817e4Smiod isa = info->insn_sets;
618*3d8817e4Smiod #endif
619*3d8817e4Smiod
620*3d8817e4Smiod /* If we've switched cpu's, try to find a handle we've used before */
621*3d8817e4Smiod if (cd
622*3d8817e4Smiod && (cgen_bitset_compare (isa, prev_isa) != 0
623*3d8817e4Smiod || mach != prev_mach
624*3d8817e4Smiod || endian != prev_endian))
625*3d8817e4Smiod {
626*3d8817e4Smiod cd = 0;
627*3d8817e4Smiod for (cl = cd_list; cl; cl = cl->next)
628*3d8817e4Smiod {
629*3d8817e4Smiod if (cgen_bitset_compare (cl->isa, isa) == 0 &&
630*3d8817e4Smiod cl->mach == mach &&
631*3d8817e4Smiod cl->endian == endian)
632*3d8817e4Smiod {
633*3d8817e4Smiod cd = cl->cd;
634*3d8817e4Smiod prev_isa = cd->isas;
635*3d8817e4Smiod break;
636*3d8817e4Smiod }
637*3d8817e4Smiod }
638*3d8817e4Smiod }
639*3d8817e4Smiod
640*3d8817e4Smiod /* If we haven't initialized yet, initialize the opcode table. */
641*3d8817e4Smiod if (! cd)
642*3d8817e4Smiod {
643*3d8817e4Smiod const bfd_arch_info_type *arch_type = bfd_lookup_arch (arch, mach);
644*3d8817e4Smiod const char *mach_name;
645*3d8817e4Smiod
646*3d8817e4Smiod if (!arch_type)
647*3d8817e4Smiod abort ();
648*3d8817e4Smiod mach_name = arch_type->printable_name;
649*3d8817e4Smiod
650*3d8817e4Smiod prev_isa = cgen_bitset_copy (isa);
651*3d8817e4Smiod prev_mach = mach;
652*3d8817e4Smiod prev_endian = endian;
653*3d8817e4Smiod cd = m32r_cgen_cpu_open (CGEN_CPU_OPEN_ISAS, prev_isa,
654*3d8817e4Smiod CGEN_CPU_OPEN_BFDMACH, mach_name,
655*3d8817e4Smiod CGEN_CPU_OPEN_ENDIAN, prev_endian,
656*3d8817e4Smiod CGEN_CPU_OPEN_END);
657*3d8817e4Smiod if (!cd)
658*3d8817e4Smiod abort ();
659*3d8817e4Smiod
660*3d8817e4Smiod /* Save this away for future reference. */
661*3d8817e4Smiod cl = xmalloc (sizeof (struct cpu_desc_list));
662*3d8817e4Smiod cl->cd = cd;
663*3d8817e4Smiod cl->isa = prev_isa;
664*3d8817e4Smiod cl->mach = mach;
665*3d8817e4Smiod cl->endian = endian;
666*3d8817e4Smiod cl->next = cd_list;
667*3d8817e4Smiod cd_list = cl;
668*3d8817e4Smiod
669*3d8817e4Smiod m32r_cgen_init_dis (cd);
670*3d8817e4Smiod }
671*3d8817e4Smiod
672*3d8817e4Smiod /* We try to have as much common code as possible.
673*3d8817e4Smiod But at this point some targets need to take over. */
674*3d8817e4Smiod /* ??? Some targets may need a hook elsewhere. Try to avoid this,
675*3d8817e4Smiod but if not possible try to move this hook elsewhere rather than
676*3d8817e4Smiod have two hooks. */
677*3d8817e4Smiod length = CGEN_PRINT_INSN (cd, pc, info);
678*3d8817e4Smiod if (length > 0)
679*3d8817e4Smiod return length;
680*3d8817e4Smiod if (length < 0)
681*3d8817e4Smiod return -1;
682*3d8817e4Smiod
683*3d8817e4Smiod (*info->fprintf_func) (info->stream, UNKNOWN_INSN_MSG);
684*3d8817e4Smiod return cd->default_insn_bitsize / 8;
685*3d8817e4Smiod }
686