platform/linux/host_dasm.c

   1 #include <stdio.h>
   2 #include <stdlib.h>
   3 #include <string.h>
   4 #include <stdarg.h>
   5 #include <bfd.h>
   6 #include <dis-asm.h>
   7
   8 #include "host_dasm.h"
   9
  10 extern char **g_argv;
  11
  12 static struct disassemble_info di;
  13
  14 /* symbols */
  15 static asymbol **symbols;
  16 static long symcount;
  17
  18 /* Filter out (in place) symbols that are useless for disassembly.
  19    COUNT is the number of elements in SYMBOLS.
  20    Return the number of useful symbols.  */
  21 static long
  22 remove_useless_symbols (asymbol **symbols, long count)
  23 {
  24   asymbol **in_ptr = symbols, **out_ptr = symbols;
  25
  26   while (--count >= 0)
  27     {
  28       asymbol *sym = *in_ptr++;
  29
  30       if (sym->name == NULL || sym->name[0] == '\0')
  31         continue;
  32       if (sym->flags & (BSF_DEBUGGING | BSF_SECTION_SYM))
  33         continue;
  34       if (bfd_is_und_section (sym->section)
  35           || bfd_is_com_section (sym->section))
  36         continue;
  37       if (sym->value + sym->section->vma == 0)
  38         continue;
  39 /*
  40       printf("sym: %08lx %04x %08x v %08x \"%s\"\n",
  41         (unsigned int)sym->value, (unsigned int)sym->flags, (unsigned int)sym->udata.i,
  42         (unsigned int)sym->section->vma, sym->name);
  43 */
  44       *out_ptr++ = sym;
  45     }
  46   return out_ptr - symbols;
  47 }
  48
  49 static void slurp_symtab(const char *filename)
  50 {
  51   bfd *abfd;
  52   long storage;
  53
  54   symcount = 0;
  55
  56   abfd = bfd_openr(filename, NULL);
  57   if (abfd == NULL) {
  58     fprintf(stderr, "failed to open: %s\n", filename);
  59     goto no_symbols;
  60   }
  61
  62   if (!bfd_check_format(abfd, bfd_object))
  63     goto no_symbols;
  64
  65   if (!(bfd_get_file_flags(abfd) & HAS_SYMS))
  66     goto no_symbols;
  67
  68   storage = bfd_get_symtab_upper_bound(abfd);
  69   if (storage <= 0)
  70     goto no_symbols;
  71
  72   symbols = malloc(storage);
  73   symcount = bfd_canonicalize_symtab(abfd, symbols);
  74   if (symcount < 0)
  75     goto no_symbols;
  76
  77   symcount = remove_useless_symbols(symbols, symcount);
  78 //  bfd_close(abfd);
  79   return;
  80
  81 no_symbols:
  82   fprintf(stderr, "no symbols in %s\n", bfd_get_filename(abfd));
  83   if (abfd != NULL)
  84     bfd_close(abfd);
  85 }
  86
  87
  88 /* Like target_read_memory, but slightly different parameters.  */
  89 static int
  90 dis_asm_read_memory(bfd_vma memaddr, bfd_byte *myaddr, unsigned int len,
  91                      struct disassemble_info *info)
  92 {
  93   memcpy(myaddr, (void *)(int)memaddr, len);
  94   return 0;
  95 }
  96
  97 static void
  98 dis_asm_memory_error(int status, bfd_vma memaddr,
  99                       struct disassemble_info *info)
 100 {
 101   fprintf(stderr, "memory_error %p\n", (void *)(int)memaddr);
 102 }
 103
 104 static void
 105 dis_asm_print_address(bfd_vma addr, struct disassemble_info *info)
 106 {
 107   asymbol **sptr = symbols;
 108   int i;
 109
 110   printf("%08x", (int)addr);
 111
 112   for (i = 0; i < symcount; i++) {
 113     asymbol *sym = *sptr++;
 114
 115     if (addr == sym->value + sym->section->vma) {
 116       printf(" <%s>", sym->name);
 117       break;
 118     }
 119   }
 120 }
 121
 122 static int insn_printf(void *f, const char *format, ...)
 123 {
 124   va_list args;
 125   size_t n;
 126
 127   va_start(args, format);
 128   n = vprintf(format, args);
 129   va_end(args);
 130
 131   return n;
 132 }
 133
 134 static void host_dasm_init(void)
 135 {
 136   slurp_symtab(g_argv[0]);
 137
 138   init_disassemble_info(&di, NULL, insn_printf);
 139   di.flavour = bfd_target_unknown_flavour;
 140   di.memory_error_func = dis_asm_memory_error;
 141   di.print_address_func = dis_asm_print_address;
 142 //  di.symbol_at_address_func = dis_asm_symbol_at_address;
 143   di.read_memory_func = dis_asm_read_memory;
 144   di.arch = bfd_arch_i386;
 145   di.mach = bfd_mach_i386_i386_intel_syntax;
 146   di.endian = BFD_ENDIAN_LITTLE;
 147   disassemble_init_for_target(&di);
 148 }
 149
 150 void host_dasm(void *addr, int len)
 151 {
 152   bfd_vma vma_end, vma = (bfd_vma)(int)addr;
 153   static int init_done = 0;
 154
 155   if (!init_done) {
 156     host_dasm_init();
 157     init_done = 1;
 158   }
 159
 160   vma_end = vma + len;
 161   while (vma < vma_end) {
 162     printf("  %p ", (void *)(long)vma);
 163     vma += print_insn_i386_intel(vma, &di);
 164     printf("\n");
 165   }
 166 }
 167