diff options
author | Chip Salzenberg <chip@perl.com> | 1997-02-17 17:59:02 +1200 |
---|---|---|
committer | Chip Salzenberg <chip@atlantic.net> | 1997-02-18 13:22:00 +1200 |
commit | 35f4835537ae774426df7791662087b4be88978a (patch) | |
tree | ccc68eb1b9663cb1b72035ae67d9bda6219dd17b | |
parent | 15ff848f77796a7eb1aa7d49b2bc68dd9e9c24f9 (diff) | |
download | perl-35f4835537ae774426df7791662087b4be88978a.tar.gz |
Eliminate FP exceptions under SCO 5
-rw-r--r-- | hints/sco.sh | 2 | ||||
-rw-r--r-- | unixish.h | 15 |
2 files changed, 11 insertions, 6 deletions
diff --git a/hints/sco.sh b/hints/sco.sh index 72c3d1c75c..6062fbeb2e 100644 --- a/hints/sco.sh +++ b/hints/sco.sh @@ -84,7 +84,7 @@ icc)# Apparently, SCO's cc gives rather verbose warnings # Set -w0 to turn them off. case $scorls in 3) ccflags="$ccflags -W0 -quiet -U M_XENIX" ;; - 5) ccflags="$ccflags -w0 -U M_XENIX" ;; + 5) ccflags="$ccflags -w0 -U M_XENIX -DPERL_SCO5" ;; esac ;; esac @@ -93,11 +93,6 @@ #endif #define ABORT() kill(getpid(),SIGABRT); -#define BIT_BUCKET "/dev/null" -#define PERL_SYS_INIT(c,v) -#define PERL_SYS_TERM() -#define dXSUB_SYS int dummy - /* * fwrite1() should be a routine with the same calling sequence as fwrite(), * but which outputs all of the bytes requested as a single stream (unlike @@ -112,3 +107,13 @@ #define my_getenv(var) getenv(var) +#ifdef PERL_SCO5 +# define PERL_SYS_INIT(c,v) fpsetmask(0) +#else +# define PERL_SYS_INIT(c,v) +#endif +#define PERL_SYS_TERM() + +#define BIT_BUCKET "/dev/null" + +#define dXSUB_SYS int dummy |