summaryrefslogtreecommitdiff
path: root/perl.h
diff options
context:
space:
mode:
authorSpider Boardman <spider@orb.nashua.nh.us>2002-03-18 04:38:55 -0500
committerJarkko Hietaniemi <jhi@iki.fi>2002-03-18 13:44:14 +0000
commit38dbb4c5bff4245c0c337aed9a1133048655deae (patch)
treeea61a82f7d79bcde70e75cc67e656c6bad2e2a6f /perl.h
parent51a5edaf68768c8b4cab40ee6760883cd469b0cb (diff)
downloadperl-38dbb4c5bff4245c0c337aed9a1133048655deae.tar.gz
Re: perl@15244
Message-Id: <200203181438.JAA406792@leggy.zk3.dec.com> (IA64 work.) p4raw-id: //depot/perl@15289
Diffstat (limited to 'perl.h')
-rw-r--r--perl.h4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl.h b/perl.h
index 183870f41e..f7bf179930 100644
--- a/perl.h
+++ b/perl.h
@@ -1233,7 +1233,7 @@ typedef NVTYPE NV;
# else
# define Perl_frexp(x,y) ((long double)frexp((double)(x),y))
# endif
-# ifndef Perl_isinf
+# ifndef Perl_isnan
# ifdef HAS_ISNANL
# define Perl_isnan(x) isnanl(x)
# endif
@@ -1341,7 +1341,7 @@ typedef NVTYPE NV;
#if !defined(Perl_fp_class) && defined(HAS_FPCLASSIFY)
# include <math.h>
# define Perl_fp_class(x) fpclassify(x)
-# define Perl_fp_class_nan(x) (fp_classify(x)==FP_SNAN|FP|_fp_classify(x)==QNAN)
+# define Perl_fp_class_nan(x) (fp_classify(x)==FP_SNAN||fp_classify(x)==FP_QNAN)
# define Perl_fp_class_inf(x) (fp_classify(x)==FP_INFINITE)
# define Perl_fp_class_norm(x) (fp_classify(x)==FP_NORMAL)
# define Perl_fp_class_denorm(x) (fp_classify(x)==FP_SUBNORMAL)