mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-04 22:40:25 +02:00
66aef1c644
2008-06-11 Paolo Bonzini <bonzini@gnu.org> * build-aux/lightning.m4: Adjust LIGHTNING_BACKENDS, don't use suffix support to distinguish i386/x86_64. * lightning/i386/Makefile.frag: Use LIGHTNING_TARGET_FILES to distribute *-32.h and *-64.h files now. * lightning/i386/asm-i386: Moved to... * lightning/i386/asm.h: Include the appropriate subtarget file. * lightning/i386/core-i386: Moved to... * lightning/i386/core.h: Include the appropriate subtarget file. * lightning/i386/fp.h: New, include the appropriate subtarget file. * lightning/i386/asm-32: Do not include asm-i386.h. * lightning/i386/asm-64.h: Likewise. * lightning/i386/core-32: Do not include core-i386.h. * lightning/i386/core-64.h: Likewise. * lightning/Makefile.am: Adjust for renamed files. * configure.ac: Define LIGHTNING_TARGET here. * opcode/disass.c: Change list of valid LIGHTNING_TARGET values. * lightningize.in: Robustify against missing subtarget files.
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 3, 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 0
|
|
#define LIGHTNING_X86_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;
|
|
}
|
|
|