This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
DBL_EPSILON DBL_MIN FLT_EPSILON FLT_MIN are not C constant expressions
authorNicholas Clark <nick@ccl4.org>
Tue, 29 May 2007 19:57:34 +0000 (19:57 +0000)
committerNicholas Clark <nick@ccl4.org>
Tue, 29 May 2007 19:57:34 +0000 (19:57 +0000)
on z/OS, so move them to the list of non const constants.

p4raw-id: //depot/perl@31308

ext/POSIX/Makefile.PL

index 74e7d19..0c5bc8c 100644 (file)
@@ -94,15 +94,14 @@ push @names, {name=>$_, type=>"UV"}
   foreach (qw(SA_NOCLDSTOP SA_NOCLDWAIT SA_NODEFER SA_ONSTACK SA_RESETHAND
              SA_RESTART SA_SIGINFO UCHAR_MAX UINT_MAX ULONG_MAX USHRT_MAX));
 push @names, {name=>$_, type=>"NV", not_constant=>1}
   foreach (qw(SA_NOCLDSTOP SA_NOCLDWAIT SA_NODEFER SA_ONSTACK SA_RESETHAND
              SA_RESTART SA_SIGINFO UCHAR_MAX UINT_MAX ULONG_MAX USHRT_MAX));
 push @names, {name=>$_, type=>"NV", not_constant=>1}
-  foreach (qw(DBL_MAX FLT_MAX LDBL_MAX LDBL_MIN LDBL_EPSILON));
+  foreach (qw(DBL_MAX FLT_MAX LDBL_MAX LDBL_MIN LDBL_EPSILON
+              DBL_EPSILON DBL_MIN FLT_EPSILON FLT_MIN));
 
 push @names, {name=>$_, type=>"NV"}
 
 push @names, {name=>$_, type=>"NV"}
-  foreach (qw(DBL_DIG DBL_EPSILON DBL_MANT_DIG DBL_MAX_10_EXP
-              DBL_MAX_EXP DBL_MIN DBL_MIN_10_EXP DBL_MIN_EXP
-              FLT_DIG FLT_EPSILON FLT_MANT_DIG FLT_MAX_10_EXP
-              FLT_MAX_EXP FLT_MIN FLT_MIN_10_EXP FLT_MIN_EXP FLT_RADIX
-              LDBL_DIG LDBL_MANT_DIG LDBL_MAX_10_EXP
-              LDBL_MAX_EXP LDBL_MIN_10_EXP LDBL_MIN_EXP));
+  foreach (qw(DBL_DIG DBL_MANT_DIG DBL_MAX_10_EXP DBL_MAX_EXP DBL_MIN_10_EXP
+             DBL_MIN_EXP FLT_DIG FLT_MANT_DIG FLT_MAX_10_EXP FLT_MAX_EXP
+             FLT_MIN_10_EXP FLT_MIN_EXP FLT_RADIX LDBL_DIG LDBL_MANT_DIG
+             LDBL_MAX_10_EXP LDBL_MAX_EXP LDBL_MIN_10_EXP LDBL_MIN_EXP));
 
 push @names, {name=>$_, type=>"IV", default=>["IV", "0"]}
   foreach (qw(_POSIX_ARG_MAX _POSIX_CHILD_MAX _POSIX_CHOWN_RESTRICTED
 
 push @names, {name=>$_, type=>"IV", default=>["IV", "0"]}
   foreach (qw(_POSIX_ARG_MAX _POSIX_CHILD_MAX _POSIX_CHOWN_RESTRICTED