This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Rely on C89 <float.h> in modified units
authorAaron Crane <arc@cpan.org>
Fri, 13 Oct 2017 10:46:14 +0000 (12:46 +0200)
committerAaron Crane <arc@cpan.org>
Sat, 21 Oct 2017 15:45:08 +0000 (16:45 +0100)
U/modified/d_dbl_dig.U
U/modified/d_longdbl.U
U/perl/d_ldbl_dig.U
U/perl/mantbits.U

index 445d04d..3c26242 100644 (file)
@@ -14,7 +14,7 @@
 ?RCS: Revision 3.0.1.1  1994/08/29  16:07:28  ram
 ?RCS: patch32: created by ADO
 ?RCS:
-?MAKE:d_dbl_dig: Myread contains cat rm Setvar i_float \
+?MAKE:d_dbl_dig: Myread contains cat rm Setvar \
        cppstdin cppflags cppminus
 ?MAKE: -pick add $@ %<
 ?S:d_dbl_dig:
 : See if number of significant digits in a double precision number is known
 echo " "
 $cat >dbl_dig.c <<EOM
-#$i_float I_FLOAT
 #include <limits.h>
-#ifdef I_FLOAT
 #include <float.h>
-#endif
 #ifdef DBL_DIG
 printf("Contains DBL_DIG");
 #endif
index 314b436..274f6df 100644 (file)
@@ -11,7 +11,7 @@
        d_long_double_style_ieee d_long_double_style_ieee_doubledouble \
        d_long_double_style_ieee_extended d_long_double_style_ieee_std \
        d_long_double_style_vax: Compile Setvar Myread \
-       Inlibc run echo cat rm_try test doublesize i_stdlib i_float
+       Inlibc run echo cat rm_try test doublesize i_stdlib
 ?MAKE: -pick add $@ %<
 ?S:d_longdbl:
 ?S:    This variable conditionally defines HAS_LONG_DOUBLE if
@@ -219,13 +219,10 @@ $echo "Checking the kind of long doubles you have..." >&4
 case "$d_longdbl" in
 define)
 $cat <<EOP >try.c
-#$i_float I_FLOAT
 #$i_stdlib I_STDLIB
 #define LONGDBLSIZE $longdblsize
 #define DOUBLESIZE $doublesize
-#ifdef I_FLOAT
 #include <float.h>
-#endif
 #ifdef I_STDLIB
 #include <stdlib.h>
 #endif
index def5766..5ba9223 100644 (file)
@@ -8,7 +8,7 @@
 ?RCS: that same Artistic License; a copy of which may be found at the root
 ?RCS: of the source tree for dist 3.0.
 ?RCS:
-?MAKE:d_ldbl_dig: Myread contains cat rm Setvar i_float \
+?MAKE:d_ldbl_dig: Myread contains cat rm Setvar \
        cppstdin cppflags cppminus
 ?MAKE: -pick add $@ %<
 ?S:d_ldbl_dig:
 : See if number of significant digits in a double precision number is known
 echo " "
 $cat >ldbl_dig.c <<EOM
-#$i_float I_FLOAT
 #include <limits.h>
-#ifdef I_FLOAT
 #include <float.h>
-#endif
 #ifdef LDBL_DIG
 printf("Contains LDBL_DIG");
 #endif
index ef4949f..576e5cd 100644 (file)
@@ -6,7 +6,7 @@
 ?RCS: License or the Artistic License, as specified in the README file.
 ?RCS:
 ?MAKE:longdblmantbits doublemantbits nvmantbits: Inlibc cat Compile run \
-       rm_try Setvar echo i_float i_sunmath usequadmath \
+       rm_try Setvar echo i_sunmath usequadmath \
        d_longdbl longdblkind nvsize doublesize longdblsize
 ?MAKE: -pick add $@ %<
 ?S:doublemantbits:
 : Check the length of the double mantissa
 $echo "Checking how many mantissa bits your doubles have..." >&4
 $cat >try.c <<EOP
-#$i_float I_FLOAT
 #$i_sunmath I_SUNMATH
-#ifdef I_FLOAT
-# include <float.h>
-#endif
+#include <float.h>
 #ifdef I_SUNMATH
 # include <sunmath.h>
 #endif
@@ -86,11 +83,8 @@ $rm_try
 : Check the length of the longdouble mantissa
 $echo "Checking how many mantissa bits your long doubles have..." >&4
 $cat >try.c <<EOP
-#$i_float I_FLOAT
 #$i_sunmath I_SUNMATH
-#ifdef I_FLOAT
-# include <float.h>
-#endif
+#include <float.h>
 #ifdef I_SUNMATH
 # include <sunmath.h>
 #endif