daily update
[binutils.git] / opcodes / fr30-dis.c
blob0b99a4af3953178b42508020cc479d78f0241262
1 /* Disassembler interface for targets using CGEN. -*- C -*-
2 CGEN: Cpu tools GENerator
4 THIS FILE IS MACHINE GENERATED WITH CGEN.
5 - the resultant file is machine generated, cgen-dis.in isn't
7 Copyright 1996, 1997, 1998, 1999, 2000, 2001, 2002
8 Free Software Foundation, Inc.
10 This file is part of the GNU Binutils and GDB, the GNU debugger.
12 This program is free software; you can redistribute it and/or modify
13 it under the terms of the GNU General Public License as published by
14 the Free Software Foundation; either version 2, or (at your option)
15 any later version.
17 This program is distributed in the hope that it will be useful,
18 but WITHOUT ANY WARRANTY; without even the implied warranty of
19 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 GNU General Public License for more details.
22 You should have received a copy of the GNU General Public License
23 along with this program; if not, write to the Free Software Foundation, Inc.,
24 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
26 /* ??? Eventually more and more of this stuff can go to cpu-independent files.
27 Keep that in mind. */
29 #include "sysdep.h"
30 #include <stdio.h>
31 #include "ansidecl.h"
32 #include "dis-asm.h"
33 #include "bfd.h"
34 #include "symcat.h"
35 #include "libiberty.h"
36 #include "fr30-desc.h"
37 #include "fr30-opc.h"
38 #include "opintl.h"
40 /* Default text to print if an instruction isn't recognized. */
41 #define UNKNOWN_INSN_MSG _("*unknown*")
43 static void print_normal
44 (CGEN_CPU_DESC, void *, long, unsigned int, bfd_vma, int);
45 static void print_address
46 (CGEN_CPU_DESC, void *, bfd_vma, unsigned int, bfd_vma, int);
47 static void print_keyword
48 (CGEN_CPU_DESC, void *, CGEN_KEYWORD *, long, unsigned int);
49 static void print_insn_normal
50 (CGEN_CPU_DESC, void *, const CGEN_INSN *, CGEN_FIELDS *, bfd_vma, int);
51 static int print_insn
52 (CGEN_CPU_DESC, bfd_vma, disassemble_info *, char *, unsigned);
53 static int default_print_insn
54 (CGEN_CPU_DESC, bfd_vma, disassemble_info *);
55 static int read_insn
56 (CGEN_CPU_DESC, bfd_vma, disassemble_info *, char *, int, CGEN_EXTRACT_INFO *,
57 unsigned long *);
59 /* -- disassembler routines inserted here */
61 /* -- dis.c */
62 static void print_register_list
63 PARAMS ((PTR, long, long, int));
64 static void print_hi_register_list_ld
65 PARAMS ((CGEN_CPU_DESC, PTR, long, unsigned, bfd_vma, int));
66 static void print_low_register_list_ld
67 PARAMS ((CGEN_CPU_DESC, PTR, long, unsigned, bfd_vma, int));
68 static void print_hi_register_list_st
69 PARAMS ((CGEN_CPU_DESC, PTR, long, unsigned, bfd_vma, int));
70 static void print_low_register_list_st
71 PARAMS ((CGEN_CPU_DESC, PTR, long, unsigned, bfd_vma, int));
72 static void print_m4
73 PARAMS ((CGEN_CPU_DESC, PTR, long, unsigned, bfd_vma, int));
75 static void
76 print_register_list (dis_info, value, offset, load_store)
77 PTR dis_info;
78 long value;
79 long offset;
80 int load_store; /* 0 == load, 1 == store */
82 disassemble_info *info = dis_info;
83 int mask;
84 int index = 0;
85 char* comma = "";
87 if (load_store)
88 mask = 0x80;
89 else
90 mask = 1;
92 if (value & mask)
94 (*info->fprintf_func) (info->stream, "r%i", index + offset);
95 comma = ",";
98 for (index = 1; index <= 7; ++index)
100 if (load_store)
101 mask >>= 1;
102 else
103 mask <<= 1;
105 if (value & mask)
107 (*info->fprintf_func) (info->stream, "%sr%i", comma, index + offset);
108 comma = ",";
113 static void
114 print_hi_register_list_ld (cd, dis_info, value, attrs, pc, length)
115 CGEN_CPU_DESC cd ATTRIBUTE_UNUSED;
116 PTR dis_info;
117 long value;
118 unsigned int attrs ATTRIBUTE_UNUSED;
119 bfd_vma pc ATTRIBUTE_UNUSED;
120 int length ATTRIBUTE_UNUSED;
122 print_register_list (dis_info, value, 8, 0/*load*/);
125 static void
126 print_low_register_list_ld (cd, dis_info, value, attrs, pc, length)
127 CGEN_CPU_DESC cd ATTRIBUTE_UNUSED;
128 PTR dis_info;
129 long value;
130 unsigned int attrs ATTRIBUTE_UNUSED;
131 bfd_vma pc ATTRIBUTE_UNUSED;
132 int length ATTRIBUTE_UNUSED;
134 print_register_list (dis_info, value, 0, 0/*load*/);
137 static void
138 print_hi_register_list_st (cd, dis_info, value, attrs, pc, length)
139 CGEN_CPU_DESC cd ATTRIBUTE_UNUSED;
140 PTR dis_info;
141 long value;
142 unsigned int attrs ATTRIBUTE_UNUSED;
143 bfd_vma pc ATTRIBUTE_UNUSED;
144 int length ATTRIBUTE_UNUSED;
146 print_register_list (dis_info, value, 8, 1/*store*/);
149 static void
150 print_low_register_list_st (cd, dis_info, value, attrs, pc, length)
151 CGEN_CPU_DESC cd ATTRIBUTE_UNUSED;
152 PTR dis_info;
153 long value;
154 unsigned int attrs ATTRIBUTE_UNUSED;
155 bfd_vma pc ATTRIBUTE_UNUSED;
156 int length ATTRIBUTE_UNUSED;
158 print_register_list (dis_info, value, 0, 1/*store*/);
161 static void
162 print_m4 (cd, dis_info, value, attrs, pc, length)
163 CGEN_CPU_DESC cd ATTRIBUTE_UNUSED;
164 PTR dis_info;
165 long value;
166 unsigned int attrs ATTRIBUTE_UNUSED;
167 bfd_vma pc ATTRIBUTE_UNUSED;
168 int length ATTRIBUTE_UNUSED;
170 disassemble_info *info = (disassemble_info *) dis_info;
171 (*info->fprintf_func) (info->stream, "%ld", value);
173 /* -- */
175 void fr30_cgen_print_operand
176 PARAMS ((CGEN_CPU_DESC, int, PTR, CGEN_FIELDS *,
177 void const *, bfd_vma, int));
179 /* Main entry point for printing operands.
180 XINFO is a `void *' and not a `disassemble_info *' to not put a requirement
181 of dis-asm.h on cgen.h.
183 This function is basically just a big switch statement. Earlier versions
184 used tables to look up the function to use, but
185 - if the table contains both assembler and disassembler functions then
186 the disassembler contains much of the assembler and vice-versa,
187 - there's a lot of inlining possibilities as things grow,
188 - using a switch statement avoids the function call overhead.
190 This function could be moved into `print_insn_normal', but keeping it
191 separate makes clear the interface between `print_insn_normal' and each of
192 the handlers. */
194 void
195 fr30_cgen_print_operand (cd, opindex, xinfo, fields, attrs, pc, length)
196 CGEN_CPU_DESC cd;
197 int opindex;
198 PTR xinfo;
199 CGEN_FIELDS *fields;
200 void const *attrs ATTRIBUTE_UNUSED;
201 bfd_vma pc;
202 int length;
204 disassemble_info *info = (disassemble_info *) xinfo;
206 switch (opindex)
208 case FR30_OPERAND_CRI :
209 print_keyword (cd, info, & fr30_cgen_opval_cr_names, fields->f_CRi, 0);
210 break;
211 case FR30_OPERAND_CRJ :
212 print_keyword (cd, info, & fr30_cgen_opval_cr_names, fields->f_CRj, 0);
213 break;
214 case FR30_OPERAND_R13 :
215 print_keyword (cd, info, & fr30_cgen_opval_h_r13, 0, 0);
216 break;
217 case FR30_OPERAND_R14 :
218 print_keyword (cd, info, & fr30_cgen_opval_h_r14, 0, 0);
219 break;
220 case FR30_OPERAND_R15 :
221 print_keyword (cd, info, & fr30_cgen_opval_h_r15, 0, 0);
222 break;
223 case FR30_OPERAND_RI :
224 print_keyword (cd, info, & fr30_cgen_opval_gr_names, fields->f_Ri, 0);
225 break;
226 case FR30_OPERAND_RIC :
227 print_keyword (cd, info, & fr30_cgen_opval_gr_names, fields->f_Ric, 0);
228 break;
229 case FR30_OPERAND_RJ :
230 print_keyword (cd, info, & fr30_cgen_opval_gr_names, fields->f_Rj, 0);
231 break;
232 case FR30_OPERAND_RJC :
233 print_keyword (cd, info, & fr30_cgen_opval_gr_names, fields->f_Rjc, 0);
234 break;
235 case FR30_OPERAND_RS1 :
236 print_keyword (cd, info, & fr30_cgen_opval_dr_names, fields->f_Rs1, 0);
237 break;
238 case FR30_OPERAND_RS2 :
239 print_keyword (cd, info, & fr30_cgen_opval_dr_names, fields->f_Rs2, 0);
240 break;
241 case FR30_OPERAND_CC :
242 print_normal (cd, info, fields->f_cc, 0, pc, length);
243 break;
244 case FR30_OPERAND_CCC :
245 print_normal (cd, info, fields->f_ccc, 0|(1<<CGEN_OPERAND_HASH_PREFIX), pc, length);
246 break;
247 case FR30_OPERAND_DIR10 :
248 print_normal (cd, info, fields->f_dir10, 0, pc, length);
249 break;
250 case FR30_OPERAND_DIR8 :
251 print_normal (cd, info, fields->f_dir8, 0, pc, length);
252 break;
253 case FR30_OPERAND_DIR9 :
254 print_normal (cd, info, fields->f_dir9, 0, pc, length);
255 break;
256 case FR30_OPERAND_DISP10 :
257 print_normal (cd, info, fields->f_disp10, 0|(1<<CGEN_OPERAND_SIGNED)|(1<<CGEN_OPERAND_HASH_PREFIX), pc, length);
258 break;
259 case FR30_OPERAND_DISP8 :
260 print_normal (cd, info, fields->f_disp8, 0|(1<<CGEN_OPERAND_SIGNED)|(1<<CGEN_OPERAND_HASH_PREFIX), pc, length);
261 break;
262 case FR30_OPERAND_DISP9 :
263 print_normal (cd, info, fields->f_disp9, 0|(1<<CGEN_OPERAND_SIGNED)|(1<<CGEN_OPERAND_HASH_PREFIX), pc, length);
264 break;
265 case FR30_OPERAND_I20 :
266 print_normal (cd, info, fields->f_i20, 0|(1<<CGEN_OPERAND_HASH_PREFIX)|(1<<CGEN_OPERAND_VIRTUAL), pc, length);
267 break;
268 case FR30_OPERAND_I32 :
269 print_normal (cd, info, fields->f_i32, 0|(1<<CGEN_OPERAND_HASH_PREFIX)|(1<<CGEN_OPERAND_SIGN_OPT), pc, length);
270 break;
271 case FR30_OPERAND_I8 :
272 print_normal (cd, info, fields->f_i8, 0|(1<<CGEN_OPERAND_HASH_PREFIX), pc, length);
273 break;
274 case FR30_OPERAND_LABEL12 :
275 print_address (cd, info, fields->f_rel12, 0|(1<<CGEN_OPERAND_PCREL_ADDR), pc, length);
276 break;
277 case FR30_OPERAND_LABEL9 :
278 print_address (cd, info, fields->f_rel9, 0|(1<<CGEN_OPERAND_PCREL_ADDR), pc, length);
279 break;
280 case FR30_OPERAND_M4 :
281 print_m4 (cd, info, fields->f_m4, 0|(1<<CGEN_OPERAND_SIGNED)|(1<<CGEN_OPERAND_HASH_PREFIX), pc, length);
282 break;
283 case FR30_OPERAND_PS :
284 print_keyword (cd, info, & fr30_cgen_opval_h_ps, 0, 0);
285 break;
286 case FR30_OPERAND_REGLIST_HI_LD :
287 print_hi_register_list_ld (cd, info, fields->f_reglist_hi_ld, 0, pc, length);
288 break;
289 case FR30_OPERAND_REGLIST_HI_ST :
290 print_hi_register_list_st (cd, info, fields->f_reglist_hi_st, 0, pc, length);
291 break;
292 case FR30_OPERAND_REGLIST_LOW_LD :
293 print_low_register_list_ld (cd, info, fields->f_reglist_low_ld, 0, pc, length);
294 break;
295 case FR30_OPERAND_REGLIST_LOW_ST :
296 print_low_register_list_st (cd, info, fields->f_reglist_low_st, 0, pc, length);
297 break;
298 case FR30_OPERAND_S10 :
299 print_normal (cd, info, fields->f_s10, 0|(1<<CGEN_OPERAND_SIGNED)|(1<<CGEN_OPERAND_HASH_PREFIX), pc, length);
300 break;
301 case FR30_OPERAND_U10 :
302 print_normal (cd, info, fields->f_u10, 0|(1<<CGEN_OPERAND_HASH_PREFIX), pc, length);
303 break;
304 case FR30_OPERAND_U4 :
305 print_normal (cd, info, fields->f_u4, 0|(1<<CGEN_OPERAND_HASH_PREFIX), pc, length);
306 break;
307 case FR30_OPERAND_U4C :
308 print_normal (cd, info, fields->f_u4c, 0|(1<<CGEN_OPERAND_HASH_PREFIX), pc, length);
309 break;
310 case FR30_OPERAND_U8 :
311 print_normal (cd, info, fields->f_u8, 0|(1<<CGEN_OPERAND_HASH_PREFIX), pc, length);
312 break;
313 case FR30_OPERAND_UDISP6 :
314 print_normal (cd, info, fields->f_udisp6, 0|(1<<CGEN_OPERAND_HASH_PREFIX), pc, length);
315 break;
317 default :
318 /* xgettext:c-format */
319 fprintf (stderr, _("Unrecognized field %d while printing insn.\n"),
320 opindex);
321 abort ();
325 cgen_print_fn * const fr30_cgen_print_handlers[] =
327 print_insn_normal,
331 void
332 fr30_cgen_init_dis (cd)
333 CGEN_CPU_DESC cd;
335 fr30_cgen_init_opcode_table (cd);
336 fr30_cgen_init_ibld_table (cd);
337 cd->print_handlers = & fr30_cgen_print_handlers[0];
338 cd->print_operand = fr30_cgen_print_operand;
342 /* Default print handler. */
344 static void
345 print_normal (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
346 void *dis_info,
347 long value,
348 unsigned int attrs,
349 bfd_vma pc ATTRIBUTE_UNUSED,
350 int length ATTRIBUTE_UNUSED)
352 disassemble_info *info = (disassemble_info *) dis_info;
354 #ifdef CGEN_PRINT_NORMAL
355 CGEN_PRINT_NORMAL (cd, info, value, attrs, pc, length);
356 #endif
358 /* Print the operand as directed by the attributes. */
359 if (CGEN_BOOL_ATTR (attrs, CGEN_OPERAND_SEM_ONLY))
360 ; /* nothing to do */
361 else if (CGEN_BOOL_ATTR (attrs, CGEN_OPERAND_SIGNED))
362 (*info->fprintf_func) (info->stream, "%ld", value);
363 else
364 (*info->fprintf_func) (info->stream, "0x%lx", value);
367 /* Default address handler. */
369 static void
370 print_address (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
371 void *dis_info,
372 bfd_vma value,
373 unsigned int attrs,
374 bfd_vma pc ATTRIBUTE_UNUSED,
375 int length ATTRIBUTE_UNUSED)
377 disassemble_info *info = (disassemble_info *) dis_info;
379 #ifdef CGEN_PRINT_ADDRESS
380 CGEN_PRINT_ADDRESS (cd, info, value, attrs, pc, length);
381 #endif
383 /* Print the operand as directed by the attributes. */
384 if (CGEN_BOOL_ATTR (attrs, CGEN_OPERAND_SEM_ONLY))
385 ; /* nothing to do */
386 else if (CGEN_BOOL_ATTR (attrs, CGEN_OPERAND_PCREL_ADDR))
387 (*info->print_address_func) (value, info);
388 else if (CGEN_BOOL_ATTR (attrs, CGEN_OPERAND_ABS_ADDR))
389 (*info->print_address_func) (value, info);
390 else if (CGEN_BOOL_ATTR (attrs, CGEN_OPERAND_SIGNED))
391 (*info->fprintf_func) (info->stream, "%ld", (long) value);
392 else
393 (*info->fprintf_func) (info->stream, "0x%lx", (long) value);
396 /* Keyword print handler. */
398 static void
399 print_keyword (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
400 void *dis_info,
401 CGEN_KEYWORD *keyword_table,
402 long value,
403 unsigned int attrs ATTRIBUTE_UNUSED)
405 disassemble_info *info = (disassemble_info *) dis_info;
406 const CGEN_KEYWORD_ENTRY *ke;
408 ke = cgen_keyword_lookup_value (keyword_table, value);
409 if (ke != NULL)
410 (*info->fprintf_func) (info->stream, "%s", ke->name);
411 else
412 (*info->fprintf_func) (info->stream, "???");
415 /* Default insn printer.
417 DIS_INFO is defined as `void *' so the disassembler needn't know anything
418 about disassemble_info. */
420 static void
421 print_insn_normal (CGEN_CPU_DESC cd,
422 void *dis_info,
423 const CGEN_INSN *insn,
424 CGEN_FIELDS *fields,
425 bfd_vma pc,
426 int length)
428 const CGEN_SYNTAX *syntax = CGEN_INSN_SYNTAX (insn);
429 disassemble_info *info = (disassemble_info *) dis_info;
430 const CGEN_SYNTAX_CHAR_TYPE *syn;
432 CGEN_INIT_PRINT (cd);
434 for (syn = CGEN_SYNTAX_STRING (syntax); *syn; ++syn)
436 if (CGEN_SYNTAX_MNEMONIC_P (*syn))
438 (*info->fprintf_func) (info->stream, "%s", CGEN_INSN_MNEMONIC (insn));
439 continue;
441 if (CGEN_SYNTAX_CHAR_P (*syn))
443 (*info->fprintf_func) (info->stream, "%c", CGEN_SYNTAX_CHAR (*syn));
444 continue;
447 /* We have an operand. */
448 fr30_cgen_print_operand (cd, CGEN_SYNTAX_FIELD (*syn), info,
449 fields, CGEN_INSN_ATTRS (insn), pc, length);
453 /* Subroutine of print_insn. Reads an insn into the given buffers and updates
454 the extract info.
455 Returns 0 if all is well, non-zero otherwise. */
457 static int
458 read_insn (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
459 bfd_vma pc,
460 disassemble_info *info,
461 char *buf,
462 int buflen,
463 CGEN_EXTRACT_INFO *ex_info,
464 unsigned long *insn_value)
466 int status = (*info->read_memory_func) (pc, buf, buflen, info);
467 if (status != 0)
469 (*info->memory_error_func) (status, pc, info);
470 return -1;
473 ex_info->dis_info = info;
474 ex_info->valid = (1 << buflen) - 1;
475 ex_info->insn_bytes = buf;
477 *insn_value = bfd_get_bits (buf, buflen * 8, info->endian == BFD_ENDIAN_BIG);
478 return 0;
481 /* Utility to print an insn.
482 BUF is the base part of the insn, target byte order, BUFLEN bytes long.
483 The result is the size of the insn in bytes or zero for an unknown insn
484 or -1 if an error occurs fetching data (memory_error_func will have
485 been called). */
487 static int
488 print_insn (CGEN_CPU_DESC cd,
489 bfd_vma pc,
490 disassemble_info *info,
491 char *buf,
492 unsigned int buflen)
494 CGEN_INSN_INT insn_value;
495 const CGEN_INSN_LIST *insn_list;
496 CGEN_EXTRACT_INFO ex_info;
497 int basesize;
499 /* Extract base part of instruction, just in case CGEN_DIS_* uses it. */
500 basesize = cd->base_insn_bitsize < buflen * 8 ?
501 cd->base_insn_bitsize : buflen * 8;
502 insn_value = cgen_get_insn_value (cd, buf, basesize);
505 /* Fill in ex_info fields like read_insn would. Don't actually call
506 read_insn, since the incoming buffer is already read (and possibly
507 modified a la m32r). */
508 ex_info.valid = (1 << buflen) - 1;
509 ex_info.dis_info = info;
510 ex_info.insn_bytes = buf;
512 /* The instructions are stored in hash lists.
513 Pick the first one and keep trying until we find the right one. */
515 insn_list = CGEN_DIS_LOOKUP_INSN (cd, buf, insn_value);
516 while (insn_list != NULL)
518 const CGEN_INSN *insn = insn_list->insn;
519 CGEN_FIELDS fields;
520 int length;
521 unsigned long insn_value_cropped;
523 #ifdef CGEN_VALIDATE_INSN_SUPPORTED
524 /* Not needed as insn shouldn't be in hash lists if not supported. */
525 /* Supported by this cpu? */
526 if (! fr30_cgen_insn_supported (cd, insn))
528 insn_list = CGEN_DIS_NEXT_INSN (insn_list);
529 continue;
531 #endif
533 /* Basic bit mask must be correct. */
534 /* ??? May wish to allow target to defer this check until the extract
535 handler. */
537 /* Base size may exceed this instruction's size. Extract the
538 relevant part from the buffer. */
539 if ((unsigned) (CGEN_INSN_BITSIZE (insn) / 8) < buflen &&
540 (unsigned) (CGEN_INSN_BITSIZE (insn) / 8) <= sizeof (unsigned long))
541 insn_value_cropped = bfd_get_bits (buf, CGEN_INSN_BITSIZE (insn),
542 info->endian == BFD_ENDIAN_BIG);
543 else
544 insn_value_cropped = insn_value;
546 if ((insn_value_cropped & CGEN_INSN_BASE_MASK (insn))
547 == CGEN_INSN_BASE_VALUE (insn))
549 /* Printing is handled in two passes. The first pass parses the
550 machine insn and extracts the fields. The second pass prints
551 them. */
553 /* Make sure the entire insn is loaded into insn_value, if it
554 can fit. */
555 if (((unsigned) CGEN_INSN_BITSIZE (insn) > cd->base_insn_bitsize) &&
556 (unsigned) (CGEN_INSN_BITSIZE (insn) / 8) <= sizeof (unsigned long))
558 unsigned long full_insn_value;
559 int rc = read_insn (cd, pc, info, buf,
560 CGEN_INSN_BITSIZE (insn) / 8,
561 & ex_info, & full_insn_value);
562 if (rc != 0)
563 return rc;
564 length = CGEN_EXTRACT_FN (cd, insn)
565 (cd, insn, &ex_info, full_insn_value, &fields, pc);
567 else
568 length = CGEN_EXTRACT_FN (cd, insn)
569 (cd, insn, &ex_info, insn_value_cropped, &fields, pc);
571 /* length < 0 -> error */
572 if (length < 0)
573 return length;
574 if (length > 0)
576 CGEN_PRINT_FN (cd, insn) (cd, info, insn, &fields, pc, length);
577 /* length is in bits, result is in bytes */
578 return length / 8;
582 insn_list = CGEN_DIS_NEXT_INSN (insn_list);
585 return 0;
588 /* Default value for CGEN_PRINT_INSN.
589 The result is the size of the insn in bytes or zero for an unknown insn
590 or -1 if an error occured fetching bytes. */
592 #ifndef CGEN_PRINT_INSN
593 #define CGEN_PRINT_INSN default_print_insn
594 #endif
596 static int
597 default_print_insn (CGEN_CPU_DESC cd, bfd_vma pc, disassemble_info *info)
599 char buf[CGEN_MAX_INSN_SIZE];
600 int buflen;
601 int status;
603 /* Attempt to read the base part of the insn. */
604 buflen = cd->base_insn_bitsize / 8;
605 status = (*info->read_memory_func) (pc, buf, buflen, info);
607 /* Try again with the minimum part, if min < base. */
608 if (status != 0 && (cd->min_insn_bitsize < cd->base_insn_bitsize))
610 buflen = cd->min_insn_bitsize / 8;
611 status = (*info->read_memory_func) (pc, buf, buflen, info);
614 if (status != 0)
616 (*info->memory_error_func) (status, pc, info);
617 return -1;
620 return print_insn (cd, pc, info, buf, buflen);
623 /* Main entry point.
624 Print one instruction from PC on INFO->STREAM.
625 Return the size of the instruction (in bytes). */
627 typedef struct cpu_desc_list {
628 struct cpu_desc_list *next;
629 int isa;
630 int mach;
631 int endian;
632 CGEN_CPU_DESC cd;
633 } cpu_desc_list;
636 print_insn_fr30 (bfd_vma pc, disassemble_info *info)
638 static cpu_desc_list *cd_list = 0;
639 cpu_desc_list *cl = 0;
640 static CGEN_CPU_DESC cd = 0;
641 static int prev_isa;
642 static int prev_mach;
643 static int prev_endian;
644 int length;
645 int isa,mach;
646 int endian = (info->endian == BFD_ENDIAN_BIG
647 ? CGEN_ENDIAN_BIG
648 : CGEN_ENDIAN_LITTLE);
649 enum bfd_architecture arch;
651 /* ??? gdb will set mach but leave the architecture as "unknown" */
652 #ifndef CGEN_BFD_ARCH
653 #define CGEN_BFD_ARCH bfd_arch_fr30
654 #endif
655 arch = info->arch;
656 if (arch == bfd_arch_unknown)
657 arch = CGEN_BFD_ARCH;
659 /* There's no standard way to compute the machine or isa number
660 so we leave it to the target. */
661 #ifdef CGEN_COMPUTE_MACH
662 mach = CGEN_COMPUTE_MACH (info);
663 #else
664 mach = info->mach;
665 #endif
667 #ifdef CGEN_COMPUTE_ISA
668 isa = CGEN_COMPUTE_ISA (info);
669 #else
670 isa = info->insn_sets;
671 #endif
673 /* If we've switched cpu's, try to find a handle we've used before */
674 if (cd
675 && (isa != prev_isa
676 || mach != prev_mach
677 || endian != prev_endian))
679 cd = 0;
680 for (cl = cd_list; cl; cl = cl->next)
682 if (cl->isa == isa &&
683 cl->mach == mach &&
684 cl->endian == endian)
686 cd = cl->cd;
687 break;
692 /* If we haven't initialized yet, initialize the opcode table. */
693 if (! cd)
695 const bfd_arch_info_type *arch_type = bfd_lookup_arch (arch, mach);
696 const char *mach_name;
698 if (!arch_type)
699 abort ();
700 mach_name = arch_type->printable_name;
702 prev_isa = isa;
703 prev_mach = mach;
704 prev_endian = endian;
705 cd = fr30_cgen_cpu_open (CGEN_CPU_OPEN_ISAS, prev_isa,
706 CGEN_CPU_OPEN_BFDMACH, mach_name,
707 CGEN_CPU_OPEN_ENDIAN, prev_endian,
708 CGEN_CPU_OPEN_END);
709 if (!cd)
710 abort ();
712 /* save this away for future reference */
713 cl = xmalloc (sizeof (struct cpu_desc_list));
714 cl->cd = cd;
715 cl->isa = isa;
716 cl->mach = mach;
717 cl->endian = endian;
718 cl->next = cd_list;
719 cd_list = cl;
721 fr30_cgen_init_dis (cd);
724 /* We try to have as much common code as possible.
725 But at this point some targets need to take over. */
726 /* ??? Some targets may need a hook elsewhere. Try to avoid this,
727 but if not possible try to move this hook elsewhere rather than
728 have two hooks. */
729 length = CGEN_PRINT_INSN (cd, pc, info);
730 if (length > 0)
731 return length;
732 if (length < 0)
733 return -1;
735 (*info->fprintf_func) (info->stream, UNKNOWN_INSN_MSG);
736 return cd->default_insn_bitsize / 8;