diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-04-24 22:56:32 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-04-24 22:56:32 +0000 |
| commit | a3540c9216933280e8172ff9fdbf23c34fe36604 (patch) | |
| tree | 2ceb3ec3c2163498c845e55f1e8050e379991a4a /pp.c | |
| parent | b6592ff05e68c575099e94faea60fc84984b6b46 (diff) | |
| download | perl-a3540c9216933280e8172ff9fdbf23c34fe36604.tar.gz | |
Add HAS_FREXPL, HAS_ISNAN, HAS_ISNANL, and HAS_MODFL.
Now pp_ncmp() returns undef is either operand is a NaN.
p4raw-id: //depot/cfgperl@5943
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 9 |
1 files changed, 1 insertions, 8 deletions
@@ -1199,15 +1199,8 @@ PP(pp_ncmp) { dPOPTOPnnrl; I32 value; -#ifdef __osf__ /* XXX Configure probe for isnan and isnanl needed XXX */ -#if defined(USE_LONG_DOUBLE) && defined(HAS_LONG_DOUBLE) -#define Perl_isnan isnanl -#else -#define Perl_isnan isnan -#endif -#endif -#ifdef __osf__ /* XXX fix in 5.6.1 --jhi */ +#ifdef Perl_isnan if (Perl_isnan(left) || Perl_isnan(right)) { SETs(&PL_sv_undef); RETURN; |