mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-02 04:40:29 +02:00
1f7feaffe2
Patches applied: * bonzini@gnu.org--2004b/lightning--x86-64--1.3--base-0 tag of bonzini@gnu.org--2004b/lightning--stable--1.2--patch-28 * bonzini@gnu.org--2004b/lightning--x86-64--1.3--patch-1 start merging from mzscheme... * bonzini@gnu.org--2004b/lightning--x86-64--1.3--patch-2 fix i386 * bonzini@gnu.org--2004b/lightning--x86-64--1.3--patch-3 fix distribution hiccups * bonzini@gnu.org--2004b/lightning--x86-64--1.3--patch-4 adapt for usage outside distribution. * bonzini@gnu.org--2004b/lightning--x86-64--1.3--patch-6 fixes for GNU Smalltalk git-archimport-id: bonzini@gnu.org--2004b/lightning--stable--1.2--patch-30
83 lines
2.3 KiB
C
83 lines
2.3 KiB
C
/******************************** -*- C -*- ****************************
|
|
*
|
|
* lightning disassembling support
|
|
*
|
|
***********************************************************************/
|
|
|
|
|
|
/***********************************************************************
|
|
*
|
|
* Copyright 2000 Free Software Foundation, Inc.
|
|
* Written by Paolo Bonzini.
|
|
*
|
|
* This file is part of GNU lightning.
|
|
*
|
|
* GNU lightning is free software; you can redistribute it and/or modify it
|
|
* under the terms of the GNU Lesser General Public License as published
|
|
* by the Free Software Foundation; either version 2.1, or (at your option)
|
|
* any later version.
|
|
*
|
|
* GNU lightning 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 Lesser General Public
|
|
* License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Lesser General Public License
|
|
* along with GNU lightning; see the file COPYING.LESSER; if not, write to the
|
|
* Free Software Foundation, 51 Franklin Street, Fifth Floor, Boston,
|
|
* MA 02110-1301, USA.
|
|
*
|
|
***********************************************************************/
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include "config.h"
|
|
#include "dis-asm.h"
|
|
|
|
#define LIGHTNING_I386_32 0
|
|
#define LIGHTNING_I386_64 1
|
|
#define LIGHTNING_PPC 2
|
|
#define LIGHTNING_SPARC 3
|
|
|
|
void disassemble(stream, from, to)
|
|
FILE *stream;
|
|
char *from, *to;
|
|
{
|
|
disassemble_info info;
|
|
bfd_vma pc = (bfd_vma) from;
|
|
bfd_vma end = (bfd_vma) to;
|
|
|
|
INIT_DISASSEMBLE_INFO(info, stream, fprintf);
|
|
info.buffer = NULL;
|
|
info.buffer_vma = 0;
|
|
info.buffer_length = end;
|
|
|
|
while (pc < end) {
|
|
fprintf_vma(stream, pc);
|
|
putc('\t', stream);
|
|
#if LIGHTNING_TARGET == LIGHTNING_I386_32
|
|
pc += print_insn_i386(pc, &info);
|
|
#elif LIGHTNING_TARGET == LIGHTNING_PPC
|
|
pc += print_insn_big_powerpc(pc, &info);
|
|
#elif LIGHTNING_TARGET == LIGHTNING_SPARC
|
|
pc += print_insn_sparc(pc, &info);
|
|
#else
|
|
# error disassembling not yet supported for your architecture
|
|
#endif
|
|
putc('\n', stream);
|
|
}
|
|
}
|
|
|
|
/* Panic on failing malloc */
|
|
PTR
|
|
xmalloc(size)
|
|
size_t size;
|
|
{
|
|
PTR ret = malloc(size ? size : 1);
|
|
if (!ret) {
|
|
fprintf(stderr, "Couldn't allocate memory\n");
|
|
exit(1);
|
|
}
|
|
return ret;
|
|
}
|
|
|