mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-04 14:20:26 +02:00
33bc19d30e
git-archimport-id: bonzini@gnu.org--2004b/lightning--stable--1.2--patch-15 git-archimport-id: bonzini@gnu.org--2004b/lightning--stable--1.2--patch-16
78 lines
2.1 KiB
C
78 lines
2.1 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"
|
|
|
|
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);
|
|
#ifdef LIGHTNING_I386
|
|
pc += print_insn_i386(pc, &info);
|
|
#endif
|
|
#ifdef LIGHTNING_PPC
|
|
pc += print_insn_big_powerpc(pc, &info);
|
|
#endif
|
|
#ifdef LIGHTNING_SPARC
|
|
pc += print_insn_sparc(pc, &info);
|
|
#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;
|
|
}
|
|
|