disas.c 10.3 KB
Newer Older
bellard's avatar
bellard committed
1
/* General "disassemble this chunk" code.  Used for debugging. */
bellard's avatar
bellard committed
2
#include "config.h"
bellard's avatar
bellard committed
3
4
#include "dis-asm.h"
#include "elf.h"
bellard's avatar
bellard committed
5
#include <errno.h>
bellard's avatar
bellard committed
6

7
8
#include "cpu.h"
#include "exec-all.h"
9
#include "disas.h"
10

bellard's avatar
bellard committed
11
/* Filled in by elfload.c.  Simplistic, but will do for now. */
bellard's avatar
bellard committed
12
struct syminfo *syminfos = NULL;
bellard's avatar
bellard committed
13

bellard's avatar
bellard committed
14
15
16
17
18
19
20
21
22
/* Get LENGTH bytes from info's buffer, at target address memaddr.
   Transfer them to myaddr.  */
int
buffer_read_memory (memaddr, myaddr, length, info)
     bfd_vma memaddr;
     bfd_byte *myaddr;
     int length;
     struct disassemble_info *info;
{
23
24
25
26
27
28
    if (memaddr < info->buffer_vma
        || memaddr + length > info->buffer_vma + info->buffer_length)
        /* Out of bounds.  Use EIO because GDB uses it.  */
        return EIO;
    memcpy (myaddr, info->buffer + (memaddr - info->buffer_vma), length);
    return 0;
bellard's avatar
bellard committed
29
30
}

31
32
33
/* Get LENGTH bytes from info's buffer, at target address memaddr.
   Transfer them to myaddr.  */
static int
bellard's avatar
bellard committed
34
35
36
37
target_read_memory (bfd_vma memaddr,
                    bfd_byte *myaddr,
                    int length,
                    struct disassemble_info *info)
38
39
40
{
    int i;
    for(i = 0; i < length; i++) {
bellard's avatar
bellard committed
41
        myaddr[i] = ldub_code(memaddr + i);
42
43
44
45
    }
    return 0;
}

bellard's avatar
bellard committed
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
/* Print an error message.  We can assume that this is in response to
   an error return from buffer_read_memory.  */
void
perror_memory (status, memaddr, info)
     int status;
     bfd_vma memaddr;
     struct disassemble_info *info;
{
  if (status != EIO)
    /* Can't happen.  */
    (*info->fprintf_func) (info->stream, "Unknown error %d\n", status);
  else
    /* Actually, address between memaddr and memaddr + len was
       out of bounds.  */
    (*info->fprintf_func) (info->stream,
bellard's avatar
bellard committed
61
			   "Address 0x%llx is out of bounds.\n", memaddr);
bellard's avatar
bellard committed
62
63
64
65
66
67
68
69
70
71
72
73
74
75
}

/* This could be in a separate file, to save miniscule amounts of space
   in statically linked executables.  */

/* Just print the address is hex.  This is included for completeness even
   though both GDB and objdump provide their own (to print symbolic
   addresses).  */

void
generic_print_address (addr, info)
     bfd_vma addr;
     struct disassemble_info *info;
{
bellard's avatar
bellard committed
76
  (*info->fprintf_func) (info->stream, "0x%llx", addr);
bellard's avatar
bellard committed
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
}

/* Just return the given address.  */

int
generic_symbol_at_address (addr, info)
     bfd_vma addr;
     struct disassemble_info * info;
{
  return 1;
}

bfd_vma bfd_getl32 (const bfd_byte *addr)
{
  unsigned long v;

  v = (unsigned long) addr[0];
  v |= (unsigned long) addr[1] << 8;
  v |= (unsigned long) addr[2] << 16;
  v |= (unsigned long) addr[3] << 24;
  return (bfd_vma) v;
}

bfd_vma bfd_getb32 (const bfd_byte *addr)
{
  unsigned long v;

  v = (unsigned long) addr[0] << 24;
  v |= (unsigned long) addr[1] << 16;
  v |= (unsigned long) addr[2] << 8;
  v |= (unsigned long) addr[3];
  return (bfd_vma) v;
}

bellard's avatar
bellard committed
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
bfd_vma bfd_getl16 (const bfd_byte *addr)
{
  unsigned long v;

  v = (unsigned long) addr[0];
  v |= (unsigned long) addr[1] << 8;
  return (bfd_vma) v;
}

bfd_vma bfd_getb16 (const bfd_byte *addr)
{
  unsigned long v;

  v = (unsigned long) addr[0] << 24;
  v |= (unsigned long) addr[1] << 16;
  return (bfd_vma) v;
}

bellard's avatar
bellard committed
129
130
131
132
133
134
135
136
137
138
139
140
#ifdef TARGET_ARM
static int
print_insn_thumb1(bfd_vma pc, disassemble_info *info)
{
  return print_insn_arm(pc | 1, info);
}
#endif

/* Disassemble this for me please... (debugging). 'flags' has teh following
   values:
    i386 - nonzero means 16 bit code
    arm  - nonzero means thumb code 
bellard's avatar
bellard committed
141
    ppc  - nonzero means little endian
bellard's avatar
bellard committed
142
143
    other targets - unused
 */
144
void target_disas(FILE *out, target_ulong code, target_ulong size, int flags)
bellard's avatar
bellard committed
145
{
bellard's avatar
bellard committed
146
    target_ulong pc;
bellard's avatar
bellard committed
147
148
149
150
151
152
    int count;
    struct disassemble_info disasm_info;
    int (*print_insn)(bfd_vma pc, disassemble_info *info);

    INIT_DISASSEMBLE_INFO(disasm_info, out, fprintf);

bellard's avatar
bellard committed
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
    disasm_info.read_memory_func = target_read_memory;
    disasm_info.buffer_vma = code;
    disasm_info.buffer_length = size;

#ifdef TARGET_WORDS_BIGENDIAN
    disasm_info.endian = BFD_ENDIAN_BIG;
#else
    disasm_info.endian = BFD_ENDIAN_LITTLE;
#endif
#if defined(TARGET_I386)
    if (flags == 2)
        disasm_info.mach = bfd_mach_x86_64;
    else if (flags == 1) 
        disasm_info.mach = bfd_mach_i386_i8086;
    else
        disasm_info.mach = bfd_mach_i386_i386;
    print_insn = print_insn_i386;
#elif defined(TARGET_ARM)
bellard's avatar
bellard committed
171
172
173
174
    if (flags)
	print_insn = print_insn_thumb1;
    else
	print_insn = print_insn_arm;
bellard's avatar
bellard committed
175
176
#elif defined(TARGET_SPARC)
    print_insn = print_insn_sparc;
bellard's avatar
bellard committed
177
178
179
#ifdef TARGET_SPARC64
    disasm_info.mach = bfd_mach_sparc_v9b;
#endif    
bellard's avatar
bellard committed
180
#elif defined(TARGET_PPC)
bellard's avatar
bellard committed
181
    if (flags)
182
        disasm_info.endian = BFD_ENDIAN_LITTLE;
bellard's avatar
bellard committed
183
184
185
186
187
#ifdef TARGET_PPC64
    disasm_info.mach = bfd_mach_ppc64;
#else
    disasm_info.mach = bfd_mach_ppc;
#endif
bellard's avatar
bellard committed
188
    print_insn = print_insn_ppc;
bellard's avatar
bellard committed
189
#elif defined(TARGET_MIPS)
bellard's avatar
bellard committed
190
#ifdef TARGET_WORDS_BIGENDIAN
bellard's avatar
bellard committed
191
    print_insn = print_insn_big_mips;
bellard's avatar
bellard committed
192
193
194
#else
    print_insn = print_insn_little_mips;
#endif
bellard's avatar
bellard committed
195
196
#elif defined(TARGET_M68K)
    print_insn = print_insn_m68k;
bellard's avatar
bellard committed
197
#else
bellard's avatar
bellard committed
198
199
    fprintf(out, "0x" TARGET_FMT_lx
	    ": Asm output not supported on this arch\n", code);
bellard's avatar
bellard committed
200
    return;
201
202
#endif

bellard's avatar
bellard committed
203
    for (pc = code; pc < code + size; pc += count) {
bellard's avatar
bellard committed
204
	fprintf(out, "0x" TARGET_FMT_lx ":  ", pc);
bellard's avatar
bellard committed
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
	count = print_insn(pc, &disasm_info);
#if 0
        {
            int i;
            uint8_t b;
            fprintf(out, " {");
            for(i = 0; i < count; i++) {
                target_read_memory(pc + i, &b, 1, &disasm_info);
                fprintf(out, " %02x", b);
            }
            fprintf(out, " }");
        }
#endif
	fprintf(out, "\n");
	if (count < 0)
	    break;
    }
}

/* Disassemble this for me please... (debugging). */
void disas(FILE *out, void *code, unsigned long size)
{
    unsigned long pc;
    int count;
    struct disassemble_info disasm_info;
    int (*print_insn)(bfd_vma pc, disassemble_info *info);

    INIT_DISASSEMBLE_INFO(disasm_info, out, fprintf);

bellard's avatar
bellard committed
234
235
236
237
238
    disasm_info.buffer = code;
    disasm_info.buffer_vma = (unsigned long)code;
    disasm_info.buffer_length = size;

#ifdef WORDS_BIGENDIAN
bellard's avatar
bellard committed
239
    disasm_info.endian = BFD_ENDIAN_BIG;
bellard's avatar
bellard committed
240
#else
bellard's avatar
bellard committed
241
    disasm_info.endian = BFD_ENDIAN_LITTLE;
bellard's avatar
bellard committed
242
#endif
243
#if defined(__i386__)
bellard's avatar
bellard committed
244
245
    disasm_info.mach = bfd_mach_i386_i386;
    print_insn = print_insn_i386;
246
#elif defined(__x86_64__)
bellard's avatar
bellard committed
247
248
    disasm_info.mach = bfd_mach_x86_64;
    print_insn = print_insn_i386;
bellard's avatar
bellard committed
249
#elif defined(__powerpc__)
bellard's avatar
bellard committed
250
    print_insn = print_insn_ppc;
bellard's avatar
bellard committed
251
#elif defined(__alpha__)
bellard's avatar
bellard committed
252
    print_insn = print_insn_alpha;
bellard's avatar
bellard committed
253
#elif defined(__sparc__)
bellard's avatar
bellard committed
254
    print_insn = print_insn_sparc;
bellard's avatar
bellard committed
255
#elif defined(__arm__) 
bellard's avatar
bellard committed
256
    print_insn = print_insn_arm;
bellard's avatar
bellard committed
257
258
259
260
#elif defined(__MIPSEB__)
    print_insn = print_insn_big_mips;
#elif defined(__MIPSEL__)
    print_insn = print_insn_little_mips;
bellard's avatar
bellard committed
261
262
#elif defined(__m68k__)
    print_insn = print_insn_m68k;
bellard's avatar
bellard committed
263
#else
bellard's avatar
bellard committed
264
265
    fprintf(out, "0x%lx: Asm output not supported on this arch\n",
	    (long) code);
bellard's avatar
bellard committed
266
    return;
bellard's avatar
bellard committed
267
#endif
bellard's avatar
bellard committed
268
269
    for (pc = (unsigned long)code; pc < (unsigned long)code + size; pc += count) {
	fprintf(out, "0x%08lx:  ", pc);
bellard's avatar
bellard committed
270
271
272
#ifdef __arm__
        /* since data are included in the code, it is better to
           display code data too */
273
        if (is_host) {
bellard's avatar
bellard committed
274
275
276
            fprintf(out, "%08x  ", (int)bfd_getl32((const bfd_byte *)pc));
        }
#endif
bellard's avatar
bellard committed
277
	count = print_insn(pc, &disasm_info);
bellard's avatar
bellard committed
278
279
280
281
282
283
284
	fprintf(out, "\n");
	if (count < 0)
	    break;
    }
}

/* Look up symbol for debugging purpose.  Returns "" if unknown. */
bellard's avatar
bellard committed
285
const char *lookup_symbol(target_ulong orig_addr)
bellard's avatar
bellard committed
286
287
288
{
    unsigned int i;
    /* Hack, because we know this is x86. */
bellard's avatar
bellard committed
289
290
    Elf32_Sym *sym;
    struct syminfo *s;
bellard's avatar
bellard committed
291
    target_ulong addr;
bellard's avatar
bellard committed
292
293
294
295
296
297
298
    
    for (s = syminfos; s; s = s->next) {
	sym = s->disas_symtab;
	for (i = 0; i < s->disas_num_syms; i++) {
	    if (sym[i].st_shndx == SHN_UNDEF
		|| sym[i].st_shndx >= SHN_LORESERVE)
		continue;
bellard's avatar
bellard committed
299

bellard's avatar
bellard committed
300
301
	    if (ELF_ST_TYPE(sym[i].st_info) != STT_FUNC)
		continue;
bellard's avatar
bellard committed
302

bellard's avatar
bellard committed
303
304
305
306
307
308
309
	    addr = sym[i].st_value;
#ifdef TARGET_ARM
            /* The bottom address bit marks a Thumb symbol.  */
            addr &= ~(target_ulong)1;
#endif
	    if (orig_addr >= addr
		&& orig_addr < addr + sym[i].st_size)
bellard's avatar
bellard committed
310
311
		return s->disas_strtab + sym[i].st_name;
	}
bellard's avatar
bellard committed
312
313
314
    }
    return "";
}
315
316
317

#if !defined(CONFIG_USER_ONLY)

318
319
320
void term_vprintf(const char *fmt, va_list ap);
void term_printf(const char *fmt, ...);

321
static int monitor_disas_is_physical;
bellard's avatar
bellard committed
322
static CPUState *monitor_disas_env;
323
324
325
326
327
328
329
330
331
332
333

static int
monitor_read_memory (memaddr, myaddr, length, info)
     bfd_vma memaddr;
     bfd_byte *myaddr;
     int length;
     struct disassemble_info *info;
{
    if (monitor_disas_is_physical) {
        cpu_physical_memory_rw(memaddr, myaddr, length, 0);
    } else {
bellard's avatar
bellard committed
334
        cpu_memory_rw_debug(monitor_disas_env, memaddr,myaddr, length, 0);
335
336
337
338
    }
    return 0;
}

339
340
341
342
343
344
345
346
347
static int monitor_fprintf(FILE *stream, const char *fmt, ...)
{
    va_list ap;
    va_start(ap, fmt);
    term_vprintf(fmt, ap);
    va_end(ap);
    return 0;
}

bellard's avatar
bellard committed
348
349
void monitor_disas(CPUState *env,
                   target_ulong pc, int nb_insn, int is_physical, int flags)
350
351
352
353
354
{
    int count, i;
    struct disassemble_info disasm_info;
    int (*print_insn)(bfd_vma pc, disassemble_info *info);

355
    INIT_DISASSEMBLE_INFO(disasm_info, NULL, monitor_fprintf);
356

bellard's avatar
bellard committed
357
    monitor_disas_env = env;
358
359
360
361
362
363
364
365
366
367
368
    monitor_disas_is_physical = is_physical;
    disasm_info.read_memory_func = monitor_read_memory;

    disasm_info.buffer_vma = pc;

#ifdef TARGET_WORDS_BIGENDIAN
    disasm_info.endian = BFD_ENDIAN_BIG;
#else
    disasm_info.endian = BFD_ENDIAN_LITTLE;
#endif
#if defined(TARGET_I386)
bellard's avatar
bellard committed
369
370
371
    if (flags == 2)
        disasm_info.mach = bfd_mach_x86_64;
    else if (flags == 1) 
372
        disasm_info.mach = bfd_mach_i386_i8086;
bellard's avatar
bellard committed
373
374
    else
        disasm_info.mach = bfd_mach_i386_i386;
375
376
377
378
379
380
    print_insn = print_insn_i386;
#elif defined(TARGET_ARM)
    print_insn = print_insn_arm;
#elif defined(TARGET_SPARC)
    print_insn = print_insn_sparc;
#elif defined(TARGET_PPC)
bellard's avatar
bellard committed
381
382
383
384
385
#ifdef TARGET_PPC64
    disasm_info.mach = bfd_mach_ppc64;
#else
    disasm_info.mach = bfd_mach_ppc;
#endif
386
    print_insn = print_insn_ppc;
bellard's avatar
bellard committed
387
#elif defined(TARGET_MIPS)
bellard's avatar
bellard committed
388
#ifdef TARGET_WORDS_BIGENDIAN
bellard's avatar
bellard committed
389
    print_insn = print_insn_big_mips;
bellard's avatar
bellard committed
390
391
392
#else
    print_insn = print_insn_little_mips;
#endif
bellard's avatar
bellard committed
393
394
#elif defined(TARGET_M68K)
    print_insn = print_insn_m68k;
395
#else
bellard's avatar
bellard committed
396
397
    term_printf("0x" TARGET_FMT_lx
		": Asm output not supported on this arch\n", pc);
398
399
400
401
    return;
#endif

    for(i = 0; i < nb_insn; i++) {
bellard's avatar
bellard committed
402
	term_printf("0x" TARGET_FMT_lx ":  ", pc);
403
	count = print_insn(pc, &disasm_info);
404
	term_printf("\n");
405
406
407
408
409
410
	if (count < 0)
	    break;
        pc += count;
    }
}
#endif