From 2da69e3251f35ba724310352213c9f1aa37d4d1d Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Tue, 29 May 2007 19:57:34 +0000 Subject: [PATCH] DBL_EPSILON DBL_MIN FLT_EPSILON FLT_MIN are not C constant expressions on z/OS, so move them to the list of non const constants. p4raw-id: //depot/perl@31308 --- ext/POSIX/Makefile.PL | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/ext/POSIX/Makefile.PL b/ext/POSIX/Makefile.PL index 74e7d19..0c5bc8c 100644 --- a/ext/POSIX/Makefile.PL +++ b/ext/POSIX/Makefile.PL @@ -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(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"} - 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 -- 2.7.4