/* Select disassembly routine for specified architecture. Copyright (C) 1994-2019 Free Software Foundation, Inc. This file is part of the GNU opcodes library. This library is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. */ #include "sysdep.h" #include "disassemble.h" #include "safe-ctype.h" #include #ifdef ARCH_all #define ARCH_aarch64 #define ARCH_alpha #define ARCH_arc #define ARCH_arm #define ARCH_avr #define ARCH_bfin #define ARCH_cr16 #define ARCH_cris #define ARCH_crx #define ARCH_csky #define ARCH_d10v #define ARCH_d30v #define ARCH_dlx #define ARCH_bpf #define ARCH_epiphany #define ARCH_fr30 #define ARCH_frv #define ARCH_ft32 #define ARCH_h8300 #define ARCH_hppa #define ARCH_i386 #define ARCH_ia64 #define ARCH_ip2k #define ARCH_iq2000 #define ARCH_lm32 #define ARCH_m32c #define ARCH_m32r #define ARCH_m68hc11 #define ARCH_m68hc12 #define ARCH_m68k #define ARCH_mcore #define ARCH_mep #define ARCH_metag #define ARCH_microblaze #define ARCH_mips #define ARCH_mmix #define ARCH_mn10200 #define ARCH_mn10300 #define ARCH_moxie #define ARCH_mt #define ARCH_msp430 #define ARCH_nds32 #define ARCH_nfp #define ARCH_nios2 #define ARCH_ns32k #define ARCH_or1k #define ARCH_pdp11 #define ARCH_pj #define ARCH_powerpc #define ARCH_pru #define ARCH_riscv #define ARCH_rs6000 #define ARCH_rl78 #define ARCH_rx #define ARCH_s12z #define ARCH_s390 #define ARCH_score #define ARCH_sh #define ARCH_sparc #define ARCH_spu #define ARCH_tic30 #define ARCH_tic4x #define ARCH_tic54x #define ARCH_tic6x #define ARCH_tilegx #define ARCH_tilepro #define ARCH_v850 #define ARCH_vax #define ARCH_visium #define ARCH_wasm32 #define ARCH_xstormy16 #define ARCH_xc16x #define ARCH_xgate #define ARCH_xtensa #define ARCH_z80 #define ARCH_z8k #endif #ifdef ARCH_m32c #include "m32c-desc.h" #endif #ifdef ARCH_bpf /* XXX this should be including bpf-desc.h instead of this hackery, but at the moment it is not possible to include several CGEN generated *-desc.h files simultaneously. To be fixed in CGEN... */ # ifdef ARCH_m32c enum epbf_isa_attr { ISA_EBPFLE, ISA_EBPFBE, ISA_EBPFMAX }; # else # include "bpf-desc.h" # define ISA_EBPFMAX ISA_MAX # endif #endif /* ARCH_bpf */ disassembler_ftype disassembler (enum bfd_architecture a, bfd_boolean big ATTRIBUTE_UNUSED, unsigned long mach ATTRIBUTE_UNUSED, bfd *abfd ATTRIBUTE_UNUSED) { disassembler_ftype disassemble; switch (a) { /* If you add a case to this table, also add it to the ARCH_all definition right above this function. */ #ifdef ARCH_aarch64 case bfd_arch_aarch64: disassemble = print_insn_aarch64; break; #endif #ifdef ARCH_alpha case bfd_arch_alpha: disassemble = print_insn_alpha; break; #endif #ifdef ARCH_arc case bfd_arch_arc: disassemble = arc_get_disassembler (abfd); break; #endif #ifdef ARCH_arm case bfd_arch_arm: if (big) disassemble = print_insn_big_arm; else disassemble = print_insn_little_arm; break; #endif #ifdef ARCH_avr case bfd_arch_avr: disassemble = print_insn_avr; break; #endif #ifdef ARCH_bfin case bfd_arch_bfin: disassemble = print_insn_bfin; break; #endif #ifdef ARCH_cr16 case bfd_arch_cr16: disassemble = print_insn_cr16; break; #endif #ifdef ARCH_cris case bfd_arch_cris: disassemble = cris_get_disassembler (abfd); break; #endif #ifdef ARCH_crx case bfd_arch_crx: disassemble = print_insn_crx; break; #endif #ifdef ARCH_csky case bfd_arch_csky: disassemble = csky_get_disassembler (abfd); break; #endif #ifdef ARCH_d10v case bfd_arch_d10v: disassemble = print_insn_d10v; break; #endif #ifdef ARCH_d30v case bfd_arch_d30v: disassemble = print_insn_d30v; break; #endif #ifdef ARCH_dlx case bfd_arch_dlx: /* As far as I know we only handle big-endian DLX objects. */ disassemble = print_insn_dlx; break; #endif #ifdef ARCH_h8300 case bfd_arch_h8300: if (mach == bfd_mach_h8300h || mach == bfd_mach_h8300hn) disassemble = print_insn_h8300h; else if (mach == bfd_mach_h8300s || mach == bfd_mach_h8300sn || mach == bfd_mach_h8300sx || mach == bfd_mach_h8300sxn) disassemble = print_insn_h8300s; else disassemble = print_insn_h8300; break; #endif #ifdef ARCH_hppa case bfd_arch_hppa: disassemble = print_insn_hppa; break; #endif #ifdef ARCH_i386 case bfd_arch_i386: case bfd_arch_iamcu: case bfd_arch_l1om: case bfd_arch_k1om: disassemble = print_insn_i386; break; #endif #ifdef ARCH_ia64 case bfd_arch_ia64: disassemble = print_insn_ia64; break; #endif #ifdef ARCH_ip2k case bfd_arch_ip2k: disassemble = print_insn_ip2k; break; #endif #ifdef ARCH_bpf case bfd_arch_bpf: disassemble = print_insn_bpf; break; #endif #ifdef ARCH_epiphany case bfd_arch_epiphany: disassemble = print_insn_epiphany; break; #endif #ifdef ARCH_fr30 case bfd_arch_fr30: disassemble = print_insn_fr30; break; #endif #ifdef ARCH_lm32 case bfd_arch_lm32: disassemble = print_insn_lm32; break; #endif #ifdef ARCH_m32r case bfd_arch_m32r: disassemble = print_insn_m32r; break; #endif #if defined(ARCH_m68hc11) || defined(ARCH_m68hc12) \ || defined(ARCH_9s12x) || defined(ARCH_m9s12xg) case bfd_arch_m68hc11: disassemble = print_insn_m68hc11; break; case bfd_arch_m68hc12: disassemble = print_insn_m68hc12; break; case bfd_arch_m9s12x: disassemble = print_insn_m9s12x; break; case bfd_arch_m9s12xg: disassemble = print_insn_m9s12xg; break; #endif #if defined(ARCH_s12z) case bfd_arch_s12z: disassemble = print_insn_s12z; break; #endif #ifdef ARCH_m68k case bfd_arch_m68k: disassemble = print_insn_m68k; break; #endif #ifdef ARCH_mt case bfd_arch_mt: disassemble = print_insn_mt; break; #endif #ifdef ARCH_microblaze case bfd_arch_microblaze: disassemble = print_insn_microblaze; break; #endif #ifdef ARCH_msp430 case bfd_arch_msp430: disassemble = print_insn_msp430; break; #endif #ifdef ARCH_nds32 case bfd_arch_nds32: disassemble = print_insn_nds32; break; #endif #ifdef ARCH_nfp case bfd_arch_nfp: disassemble = print_insn_nfp; break; #endif #ifdef ARCH_ns32k case bfd_arch_ns32k: disassemble = print_insn_ns32k; break; #endif #ifdef ARCH_mcore case bfd_arch_mcore: disassemble = print_insn_mcore; break; #endif #ifdef ARCH_mep case bfd_arch_mep: disassemble = print_insn_mep; break; #endif #ifdef ARCH_metag case bfd_arch_metag: disassemble = print_insn_metag; break; #endif #ifdef ARCH_mips case bfd_arch_mips: if (big) disassemble = print_insn_big_mips; else disassemble = print_insn_little_mips; break; #endif #ifdef ARCH_mmix case bfd_arch_mmix: disassemble = print_insn_mmix; break; #endif #ifdef ARCH_mn10200 case bfd_arch_mn10200: disassemble = print_insn_mn10200; break; #endif #ifdef ARCH_mn10300 case bfd_arch_mn10300: disassemble = print_insn_mn10300; break; #endif #ifdef ARCH_nios2 case bfd_arch_nios2: if (big) disassemble = print_insn_big_nios2; else disassemble = print_insn_little_nios2; break; #endif #ifdef ARCH_or1k case bfd_arch_or1k: disassemble = print_insn_or1k; break; #endif #ifdef ARCH_pdp11 case bfd_arch_pdp11: disassemble = print_insn_pdp11; break; #endif #ifdef ARCH_pj case bfd_arch_pj: disassemble = print_insn_pj; break; #endif #ifdef ARCH_powerpc case bfd_arch_powerpc: #endif #ifdef ARCH_rs6000 case bfd_arch_rs6000: #endif #if defined ARCH_powerpc || defined ARCH_rs6000 if (big) disassemble = print_insn_big_powerpc; else disassemble = print_insn_little_powerpc; break; #endif #ifdef ARCH_pru case bfd_arch_pru: disassemble = print_insn_pru; break; #endif #ifdef ARCH_riscv case bfd_arch_riscv: disassemble = print_insn_riscv; break; #endif #ifdef ARCH_rl78 case bfd_arch_rl78: disassemble = rl78_get_disassembler (abfd); break; #endif #ifdef ARCH_rx case bfd_arch_rx: disassemble = print_insn_rx; break; #endif #ifdef ARCH_s390 case bfd_arch_s390: disassemble = print_insn_s390; break; #endif #ifdef ARCH_score case bfd_arch_score: if (big) disassemble = print_insn_big_score; else disassemble = print_insn_little_score; break; #endif #ifdef ARCH_sh case bfd_arch_sh: disassemble = print_insn_sh; break; #endif #ifdef ARCH_sparc case bfd_arch_sparc: disassemble = print_insn_sparc; break; #endif #ifdef ARCH_spu case bfd_arch_spu: disassemble = print_insn_spu; break; #endif #ifdef ARCH_tic30 case bfd_arch_tic30: disassemble = print_insn_tic30; break; #endif #ifdef ARCH_tic4x case bfd_arch_tic4x: disassemble = print_insn_tic4x; break; #endif #ifdef ARCH_tic54x case bfd_arch_tic54x: disassemble = print_insn_tic54x; break; #endif #ifdef ARCH_tic6x case bfd_arch_tic6x: disassemble = print_insn_tic6x; break; #endif #ifdef ARCH_ft32 case bfd_arch_ft32: disassemble = print_insn_ft32; break; #endif #ifdef ARCH_v850 case bfd_arch_v850: case bfd_arch_v850_rh850: disassemble = print_insn_v850; break; #endif #ifdef ARCH_wasm32 case bfd_arch_wasm32: disassemble = print_insn_wasm32; break; #endif #ifdef ARCH_xgate case bfd_arch_xgate: disassemble = print_insn_xgate; break; #endif #ifdef ARCH_xstormy16 case bfd_arch_xstormy16: disassemble = print_insn_xstormy16; break; #endif #ifdef ARCH_xc16x case bfd_arch_xc16x: disassemble = print_insn_xc16x; break; #endif #ifdef ARCH_xtensa case bfd_arch_xtensa: disassemble = print_insn_xtensa; break; #endif #ifdef ARCH_z80 case bfd_arch_z80: disassemble = print_insn_z80; break; #endif #ifdef ARCH_z8k case bfd_arch_z8k: if (mach == bfd_mach_z8001) disassemble = print_insn_z8001; else disassemble = print_insn_z8002; break; #endif #ifdef ARCH_vax case bfd_arch_vax: disassemble = print_insn_vax; break; #endif #ifdef ARCH_visium case bfd_arch_visium: disassemble = print_insn_visium; break; #endif #ifdef ARCH_frv case bfd_arch_frv: disassemble = print_insn_frv; break; #endif #ifdef ARCH_moxie case bfd_arch_moxie: disassemble = print_insn_moxie; break; #endif #ifdef ARCH_iq2000 case bfd_arch_iq2000: disassemble = print_insn_iq2000; break; #endif #ifdef ARCH_m32c case bfd_arch_m32c: disassemble = print_insn_m32c; break; #endif #ifdef ARCH_tilegx case bfd_arch_tilegx: disassemble = print_insn_tilegx; break; #endif #ifdef ARCH_tilepro case bfd_arch_tilepro: disassemble = print_insn_tilepro; break; #endif default: return 0; } return disassemble; } void disassembler_usage (FILE *stream ATTRIBUTE_UNUSED) { #ifdef ARCH_aarch64 print_aarch64_disassembler_options (stream); #endif #ifdef ARCH_arc print_arc_disassembler_options (stream); #endif #ifdef ARCH_arm print_arm_disassembler_options (stream); #endif #ifdef ARCH_mips print_mips_disassembler_options (stream); #endif #ifdef ARCH_nfp print_nfp_disassembler_options (stream); #endif #ifdef ARCH_powerpc print_ppc_disassembler_options (stream); #endif #ifdef ARCH_riscv print_riscv_disassembler_options (stream); #endif #ifdef ARCH_i386 print_i386_disassembler_options (stream); #endif #ifdef ARCH_s390 print_s390_disassembler_options (stream); #endif #ifdef ARCH_wasm32 print_wasm32_disassembler_options (stream); #endif return; } void disassemble_init_for_target (struct disassemble_info * info) { if (info == NULL) return; switch (info->arch) { #ifdef ARCH_aarch64 case bfd_arch_aarch64: info->symbol_is_valid = aarch64_symbol_is_valid; info->disassembler_needs_relocs = TRUE; break; #endif #ifdef ARCH_arm case bfd_arch_arm: info->symbol_is_valid = arm_symbol_is_valid; info->disassembler_needs_relocs = TRUE; break; #endif #ifdef ARCH_csky case bfd_arch_csky: info->symbol_is_valid = csky_symbol_is_valid; info->disassembler_needs_relocs = TRUE; break; #endif #ifdef ARCH_ia64 case bfd_arch_ia64: info->skip_zeroes = 16; break; #endif #ifdef ARCH_tic4x case bfd_arch_tic4x: info->skip_zeroes = 32; break; #endif #ifdef ARCH_mep case bfd_arch_mep: info->skip_zeroes = 256; info->skip_zeroes_at_end = 0; break; #endif #ifdef ARCH_metag case bfd_arch_metag: info->disassembler_needs_relocs = TRUE; break; #endif #ifdef ARCH_m32c case bfd_arch_m32c: /* This processor in fact is little endian. The value set here reflects the way opcodes are written in the cgen description. */ info->endian = BFD_ENDIAN_BIG; if (!info->private_data) { info->private_data = cgen_bitset_create (ISA_MAX); if (info->mach == bfd_mach_m16c) cgen_bitset_set (info->private_data, ISA_M16C); else cgen_bitset_set (info->private_data, ISA_M32C); } break; #endif #ifdef ARCH_bpf case bfd_arch_bpf: if (!info->private_data) { info->private_data = cgen_bitset_create (ISA_EBPFMAX); if (info->endian == BFD_ENDIAN_BIG) cgen_bitset_set (info->private_data, ISA_EBPFBE); else cgen_bitset_set (info->private_data, ISA_EBPFLE); } break; #endif #ifdef ARCH_pru case bfd_arch_pru: info->disassembler_needs_relocs = TRUE; break; #endif #ifdef ARCH_powerpc case bfd_arch_powerpc: #endif #ifdef ARCH_rs6000 case bfd_arch_rs6000: #endif #if defined (ARCH_powerpc) || defined (ARCH_rs6000) disassemble_init_powerpc (info); break; #endif #ifdef ARCH_riscv case bfd_arch_riscv: info->symbol_is_valid = riscv_symbol_is_valid; break; #endif #ifdef ARCH_wasm32 case bfd_arch_wasm32: disassemble_init_wasm32 (info); break; #endif #ifdef ARCH_s390 case bfd_arch_s390: disassemble_init_s390 (info); break; #endif #ifdef ARCH_nds32 case bfd_arch_nds32: disassemble_init_nds32 (info); break; #endif default: break; } } void disassemble_free_target (struct disassemble_info *info) { if (info == NULL) return; switch (info->arch) { default: return; #ifdef ARCH_bpf case bfd_arch_bpf: #endif #ifdef ARCH_m32c case bfd_arch_m32c: #endif #if defined ARCH_bpf || defined ARCH_m32c if (info->private_data) { CGEN_BITSET *mask = info->private_data; free (mask->bits); } break; #endif #ifdef ARCH_arc case bfd_arch_arc: break; #endif #ifdef ARCH_cris case bfd_arch_cris: break; #endif #ifdef ARCH_mmix case bfd_arch_mmix: break; #endif #ifdef ARCH_nfp case bfd_arch_nfp: break; #endif #ifdef ARCH_powerpc case bfd_arch_powerpc: break; #endif #ifdef ARCH_riscv case bfd_arch_riscv: break; #endif #ifdef ARCH_rs6000 case bfd_arch_rs6000: break; #endif } free (info->private_data); } /* Remove whitespace and consecutive commas from OPTIONS. */ char * remove_whitespace_and_extra_commas (char *options) { char *str; size_t i, len; if (options == NULL) return NULL; /* Strip off all trailing whitespace and commas. */ for (len = strlen (options); len > 0; len--) { if (!ISSPACE (options[len - 1]) && options[len - 1] != ',') break; options[len - 1] = '\0'; } /* Convert all remaining whitespace to commas. */ for (i = 0; options[i] != '\0'; i++) if (ISSPACE (options[i])) options[i] = ','; /* Remove consecutive commas. */ for (str = options; *str != '\0'; str++) if (*str == ',' && (*(str + 1) == ',' || str == options)) { char *next = str + 1; while (*next == ',') next++; len = strlen (next); if (str != options) str++; memmove (str, next, len); next[len - (size_t)(next - str)] = '\0'; } return (strlen (options) != 0) ? options : NULL; } /* Like STRCMP, but treat ',' the same as '\0' so that we match strings like "foobar" against "foobar,xxyyzz,...". */ int disassembler_options_cmp (const char *s1, const char *s2) { unsigned char c1, c2; do { c1 = (unsigned char) *s1++; if (c1 == ',') c1 = '\0'; c2 = (unsigned char) *s2++; if (c2 == ',') c2 = '\0'; if (c1 == '\0') return c1 - c2; } while (c1 == c2); return c1 - c2; }