mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 21:10:27 +02:00
Code Activity

first merge of x86-64 backend and related configury changes

Browse source 
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
This commit is contained in:
Paolo Bonzini 2006-10-30 08:48:47 +00:00
parent 065bc52d7f
commit 1f7feaffe2
29 changed files with 900 additions and 305 deletions
Download patch file Download diff file Expand all files Collapse all files

4
opcode/Makefile.in
View file

@ -42,7 +42,8 @@ subdir = opcode
DIST_COMMON = $(noinst_HEADERS) $(srcdir)/Makefile.am \
$(srcdir)/Makefile.in
ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
am__aclocal_m4_deps = $(top_srcdir)/configure.ac
am__aclocal_m4_deps = $(top_srcdir)/build-aux/lightning.m4 \
$(top_srcdir)/configure.ac
am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
$(ACLOCAL_M4)
mkinstalldirs = $(install_sh) -d
@ -136,6 +137,7 @@ build_alias = @build_alias@
build_cpu = @build_cpu@
build_os = @build_os@
build_vendor = @build_vendor@
cpu = @cpu@
datadir = @datadir@
datarootdir = @datarootdir@
docdir = @docdir@

15
opcode/disass.c
View file

@ -34,6 +34,11 @@
#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;
@ -50,14 +55,14 @@ void disassemble(stream, from, to)
while (pc < end) {
fprintf_vma(stream, pc);
putc('\t', stream);
#ifdef LIGHTNING_I386
#if LIGHTNING_TARGET == LIGHTNING_I386_32
pc += print_insn_i386(pc, &info);
#endif
#ifdef LIGHTNING_PPC
#elif LIGHTNING_TARGET == LIGHTNING_PPC
pc += print_insn_big_powerpc(pc, &info);
#endif
#ifdef LIGHTNING_SPARC
#elif LIGHTNING_TARGET == LIGHTNING_SPARC
pc += print_insn_sparc(pc, &info);
#else
# error disassembling not yet supported for your architecture
#endif
putc('\n', stream);
}