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

ALPHA: Implement lightning Alpha port.

Browse source 
* include/lightning/jit_alpha.h, lib/jit_alpha-cpu.c,
        lib/jit_alpha-fpu.c, lib/jit_alpha-sz.c, lib/jit_alpha.c:
	New files implementing a lightning Alpha port. Thanks
	to Trent Nelson and snakebit.net staff for providing access
	to an Alpha system.

        * check/float.tst, check/lightning.c, configure.ac,
        include/lightning.h, include/lightning/Makefile.am,
        include/lightning/jit_private.h, lib/Makefile.am,
        lib/jit_disasm.c, lib/jit_size.c, lib/lightning.c:
	Minor changes to adapt for the new Alpha port.
This commit is contained in:
pcpa 2014-08-10 11:48:35 -03:00
parent 53dd28d682
commit 05b88d9d45
16 changed files with 5979 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

12
check/float.tst
View file

@ -16,17 +16,25 @@ ok:
#if __mips__ || __sparc__ || __hppa__
# define wnan x7f
#elif __arm__ || __aarch64__
#elif __arm__ || __aarch64__ || __alpha__
# define wnan 0
#else
# define wnan x80
#endif
#if __mips__ || __arm__ || __ppc__ || __sparc__ || __hppa__ || __aarch64__ || __s390x__
# define wpinf x7f
#elif __alpha__
/* (at least) bug compatible with gcc 4.2.3 -ieee */
# define wpinf 0
#else
# define wpinf x80
#endif
#define wninf x80
#if __alpha__
/* (at least) bug compatible with gcc 4.2.3 -ieee */
# define wninf 0
#else
# define wninf x80
#endif
/* ensure result is correct and 0 or 1 in the result register */
#define xtcmp(l, t, op, r0, f0, f1, li, ri) \

9
check/lightning.c
View file

@ -36,7 +36,7 @@
#endif
/* The label_t identifier clashes with a system definitions */
#if defined(_AIX) || defined(__sun__)
#if defined(_AIX) || defined(__sun__) || defined(__osf__)
# define label_t l_label_t
#endif
@ -44,6 +44,8 @@
# define DL_HANDLE RTLD_NEXT
#elif defined(__sgi)
static void *DL_HANDLE;
#elif defined(__osf__)
# define DL_HANDLE NULL
#else
# define DL_HANDLE RTLD_DEFAULT
#endif
@ -4144,6 +4146,11 @@ main(int argc, char *argv[])
opt_short += snprintf(cmdline + opt_short,
sizeof(cmdline) - opt_short,
" -D__s390x__=1");
#endif
#if defined(__alpha__)
opt_short += snprintf(cmdline + opt_short,
sizeof(cmdline) - opt_short,
" -D__alpha__=1");
#endif
if ((parser.fp = popen(cmdline, "r")) == NULL)
error("cannot execute %s", cmdline);