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 /vms | |
| 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 'vms')
| -rw-r--r-- | vms/subconfigure.com | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/vms/subconfigure.com b/vms/subconfigure.com index 56de2786e7..479d3152ac 100644 --- a/vms/subconfigure.com +++ b/vms/subconfigure.com @@ -69,6 +69,7 @@ $ myname = myhostname $ IF myname .EQS. "" THEN myname = F$TRNLNM("SYS$NODE") $! $! ##ADD NEW CONSTANTS HERE## +$ perl_d_isnan= = "define" $ perl_sizesize = "4" $ perl_shmattype = "" $ perl_mmaptype = "" @@ -486,6 +487,9 @@ $ perl_d_quad = "define" $ perl_quadtype = "long long" $ perl_uquadtype = "unsigned long long" $ perl_quadkind = "QUAD_IS_LONG_LONG" +$ perl_d_frexpl = "define" +$ perl_d_isnanl = "define" +$ perl_d_modfl = "define" $ ELSE $ perl_d_PRIfldbl = "undef" $ perl_d_PRIgldbl = "undef" @@ -503,6 +507,9 @@ $ perl_d_quad = "undef" $ perl_quadtype = "long" $ perl_uquadtype = "unsigned long" $ perl_quadkind = "QUAD_IS_LONG" +$ perl_d_frexpl = "undef" +$ perl_d_isnanl = "undef" +$ perl_d_modfl = "undef" $ ENDIF $! $! Now some that we build up @@ -4246,6 +4253,10 @@ $ WC "uvoformat='" + perl_uvoformat + "'" $ WC "uvxformat='" + perl_uvxformat + "'" $ WC "d_vms_case_sensitive_symbols='" + d_vms_be_case_sensitive + "'" $ WC "sizesize='" + perl_sizesize + "'" +$ WC "d_frexpl='" + perl_d_frexpl + "'" +$ WC "d_isnan='" + perl_d_isnan + "'" +$ WC "d_isnanl='" + perl_d_isnanl + "'" +$ WC "d_modfl='" + perl_d_modfl + "'" $! $! ##WRITE NEW CONSTANTS HERE## $! |