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

S390: Replace s390x filenames with s390

Browse source 
* include/lightning/jit_s390.h, lib/jit_s390-cpu.c,
	lib/jit_s390-fpu.c, lib/jit_s390-sz.c, lib/jit_s390.c:
	Renamed s390x* files to s390*.

	* check/float.tst, check/lightning.c, configure.ac,
	include/lightning.h, include/lightning/Makefile.am,
	lib/Makefile.am, lib/jit_s390.c, lib/jit_size.c,
	lib/lightning.c: Update for renamed files.
This commit is contained in:
pcpa 2015-01-08 13:01:49 -02:00
parent 32c4f90a2b
commit 192f89c0ee
14 changed files with 34 additions and 23 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__ || __s390x__
#if __mips__ || __arm__ || __ppc__ || __sparc__ || __hppa__ || __aarch64__ || __s390__
# define wpinf x7f
#elif __alpha__
/* (at least) bug compatible with gcc 4.2.3 -ieee */

6
check/lightning.c
View file

@ -1914,7 +1914,7 @@ get_float(skip_t skip)
static float
make_float(double d)
{
/* This is an workaround to a bug in Hercules s390x emulator,
/* This is an workaround to a bug in Hercules s390 emulator,
* and at least HP-UX ia64 not have these */
#if defined(HAVE_ISNAN) && defined(HAVE_ISINF)
if (isnan(d)) return ( 0.0f/0.0f);
@ -4194,10 +4194,10 @@ main(int argc, char *argv[])
sizeof(cmdline) - opt_short,
" -D__aarch64__=1");
#endif
#if defined(__s390x__)
#if defined(__s390__) || defined(__s390x__)
opt_short += snprintf(cmdline + opt_short,
sizeof(cmdline) - opt_short,
" -D__s390x__=1");
" -D__s390__=1");
#endif
#if defined(__alpha__)
opt_short += snprintf(cmdline + opt_short,