mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-23 20:05:32 +02:00
Code Activity

New s390x port built on the hercules emulator and fedora 16 image.

Browse source 
* include/lightning/jit_s390x.h, lib/jit_s390x-cpu.c,
	lib/jit_s390x-fpu.c, lib/jit_s390x.c: New files
	implementing the new s390x port.

	* configure.ac, include/lightning.h,
	include/lightning/Makefile.am,
	include/lightning/jit_private.h,
	lib/Makefile.am, lib/jit_disasm.c, lib/lightning.c:
	Minor adaptation for the new s390x backend.

	* check/float.tst: Update for the s390x result of
	truncating +Inf to integer.

	* check/qalu_mul.tst: Add extra test cases to better test
	high word of signed multiplication as the result is
	adjust from unsigned multiplication on s390x.
This commit is contained in:
pcpa 2013-07-28 14:13:39 -03:00
parent a3891adb4b
commit f6ee396ccb
14 changed files with 5994 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
check/float.tst
View file

@ -21,7 +21,7 @@ ok:
#else
# define wnan x80
#endif
#if __mips__ || __arm__ || __ppc__ || __sparc__ || __hppa__ || __aarch64__
#if __mips__ || __arm__ || __ppc__ || __sparc__ || __hppa__ || __aarch64__ || __s390x__
# define wpinf x7f
#else
# define wpinf x80

6
check/qalu_mul.tst
View file

@ -12,10 +12,16 @@
QMUL(4, 0x7ffff, 0x7ffff, 0xfff00001, 0x3f)
UQMUL(5, 0xffffff, 0xffffff, 0xfe000001, 0xffff)
QMUL(6, 0x80000000, -2, 0, 1)
QMUL(7, 0x80000000, 2, 0, -1)
QMUL(8, 0x80000001, 3, 0x80000003, -2)
QMUL(9, 0x80000001, -3, 0x7ffffffd, 1)
#else
QMUL(4, 0x7ffffffff, 0x7ffffffff, 0xfffffff000000001, 0x3f)
UQMUL(5, 0xffffffffff, 0xffffffffff, 0xfffffe0000000001, 0xffff)
QMUL(6, 0x8000000000000000, -2, 0, 1)
QMUL(7, 0x8000000000000000, 2, 0, -1)
QMUL(8, 0x8000000000000001, 3, 0x8000000000000003, -2)
QMUL(9, 0x8000000000000001, -3, 0x7ffffffffffffffd, 1)
#endif
prepare
pushargi ok