In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/82947af8f50ec744d93ebd93fecddb9fa6e97e4c?hp=5de87db5dcf6399b14b545cff7dd99b63732e2c8>
- Log ----------------------------------------------------------------- commit 82947af8f50ec744d93ebd93fecddb9fa6e97e4c Author: Jarkko Hietaniemi <[email protected]> Date: Fri Sep 5 09:11:05 2014 -0400 fpclass snan detection errors (cut-n-paste). ----------------------------------------------------------------------- Summary of changes: perl.h | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/perl.h b/perl.h index de4374f..933262a 100644 --- a/perl.h +++ b/perl.h @@ -2049,7 +2049,7 @@ EXTERN_C long double modfl(long double, long double *); # define Perl_fp_class(x) fpclassify(x) # define Perl_fp_class_pinf(x) (Perl_fp_class(x)==FP_PLUS_INF) # define Perl_fp_class_ninf(x) (Perl_fp_class(x)==FP_MINUS_INF) -# define Perl_fp_class_snan(x) (Perl_fp_class(x)==FP_QNAN) +# define Perl_fp_class_snan(x) (Perl_fp_class(x)==FP_SNAN) # define Perl_fp_class_qnan(x) (Perl_fp_class(x)==FP_QNAN) # define Perl_fp_class_pnorm(x) (Perl_fp_class(x)==FP_PLUS_NORM) # define Perl_fp_class_nnorm(x) (Perl_fp_class(x)==FP_MINUS_NORM) @@ -2214,7 +2214,7 @@ EXTERN_C long double modfl(long double, long double *); * returns a set of bits. */ # define Perl_fp_class_snan(x) (_fpclass(x) & _FPCLASS_SNAN) # define Perl_fp_class_qnan(x) (_fpclass(x) & _FPCLASS_QNAN) -# define Perl_fp_class_nan(x) (_fpclass(x) & (_FPCLASS_QNAN|_FPCLASS_QNAN)) +# define Perl_fp_class_nan(x) (_fpclass(x) & (_FPCLASS_SNAN|_FPCLASS_QNAN)) # define Perl_fp_class_ninf(x) (_fpclass(x) & _FPCLASS_NINF)) # define Perl_fp_class_pinf(x) (_fpclass(x) & _FPCLASS_PINF)) # define Perl_fp_class_inf(x) (_fpclass(x) & (_FPCLASS_NINF|_FPCLASS_PINF)) -- Perl5 Master Repository
