Change 10978 by jhi@alpha on 2001/06/27 11:35:38
Catch FP exceptions also in z/OS (aka OS/390), from Peter Prymmer.
Affected files ...
... //depot/perl/hints/os390.sh#14 edit
Differences ...
==== //depot/perl/hints/os390.sh#14 (text) ====
Index: perl/hints/os390.sh
--- perl/hints/os390.sh.~1~ Wed Jun 27 16:00:08 2001
+++ perl/hints/os390.sh Wed Jun 27 16:00:08 2001
@@ -25,6 +25,8 @@
esac
# -DMAXSIG=38 maximum signal number
+# -DPERL_IGNORE_FPUSIG=SIGFPE allows Perl to be cavalier with FP overflow
+# (particularly in numeric.c:S_mulexp10())
# -DOEMVS is used in place of #ifdef __MVS__ in certain places.
# -D_OE_SOCKETS alters system headers.
# -D_XOPEN_SOURCE_EXTENDEDA alters system headers.
@@ -33,8 +35,8 @@
# -DEBCDIC should come from Configure and need not be mentioned here.
# Prepend your favorites with Configure -Dccflags=your_favorites
case "$ccflags" in
-'') ccflags='-DMAXSIG=38 -DOEMVS -D_OE_SOCKETS -D_XOPEN_SOURCE_EXTENDED -D_ALL_SOURCE
-DYYDYNAMIC' ;;
-*) ccflags="$ccflags -DMAXSIG=38 -DOEMVS -D_OE_SOCKETS -D_XOPEN_SOURCE_EXTENDED
-D_ALL_SOURCE -DYYDYNAMIC" ;;
+'') ccflags='-DMAXSIG=38 -DPERL_IGNORE_FPUSIG=SIGFPE -DOEMVS -D_OE_SOCKETS
+-D_XOPEN_SOURCE_EXTENDED -D_ALL_SOURCE -DYYDYNAMIC' ;;
+*) ccflags="$ccflags -DMAXSIG=38 -DPERL_IGNORE_FPUSIG=SIGFPE -DOEMVS -D_OE_SOCKETS
+-D_XOPEN_SOURCE_EXTENDED -D_ALL_SOURCE -DYYDYNAMIC" ;;
esac
# Turning on optimization breaks perl.
End of Patch.
