diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2014-09-24 16:23:11 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2014-09-26 17:04:52 -0400 |
| commit | a308b05acde5d644385536b0b51b622a5d7c0dae (patch) | |
| tree | 4b53b019501bec7bc6a7c555db6737555608b3dd /miniperlmain.c | |
| parent | 877206dfe0caef9a95cc20c69822774122a32361 (diff) | |
| download | perl-a308b05acde5d644385536b0b51b622a5d7c0dae.tar.gz | |
Tru64: introduce PERL_SYS_FPU_INIT, use it.
In Tru64 the cc -ieee enables the IEEE math but disables traps.
We need to reenable the "invalid" trap because otherwise generation
of NaN values leaves the IEEE fp flags in bad state, leaving any further
fp ops behaving strangely (Inf + 1 resulting in zero, for example).
Diffstat (limited to 'miniperlmain.c')
| -rw-r--r-- | miniperlmain.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/miniperlmain.c b/miniperlmain.c index e748523414..fa7951f73b 100644 --- a/miniperlmain.c +++ b/miniperlmain.c @@ -107,6 +107,8 @@ main(int argc, char **argv, char **env) Perl_atfork_unlock); #endif + PERL_SYS_FPU_INIT; + if (!PL_do_undump) { my_perl = perl_alloc(); if (!my_perl) |