This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl.h: Fix rarely compiled syntax errors
authorKarl Williamson <khw@cpan.org>
Sat, 17 Oct 2020 21:52:12 +0000 (15:52 -0600)
committerKarl Williamson <khw@cpan.org>
Thu, 22 Oct 2020 14:54:05 +0000 (08:54 -0600)
This #ifdef'd code clearly doesn't get compiled, as it would fail.

perl.h

diff --git a/perl.h b/perl.h
index 5dce737..c831636 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -2556,8 +2556,8 @@ extern long double Perl_my_frexpl(long double x, int *e);
 #    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_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_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))
 #    define Perl_fp_class_nnorm(x) (_fpclass(x) & _FPCLASS_NN)
 #    define Perl_fp_class_pnorm(x) (_fpclass(x) & _FPCLASS_PN)