In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/5d21685f01d5d7279cc092fc4426deaafdb89e70?hp=75f9f0f4a5b87cb0d9dcf120e32c2681037c3bc3>
- Log ----------------------------------------------------------------- commit 5d21685f01d5d7279cc092fc4426deaafdb89e70 Author: Jarkko Hietaniemi <[email protected]> Date: Thu Sep 18 17:33:36 2014 -0400 POSIX math: AIX 7 has nexttoward M ext/POSIX/POSIX.xs commit 9b4dc8d0a88fe625db16dfcadb0021cd6c076bd7 Author: Jarkko Hietaniemi <[email protected]> Date: Thu Sep 18 17:30:01 2014 -0400 POSIX math: the pa-risc gcc missing tgamma and nexttoward M ext/POSIX/POSIX.xs commit e7d5cdeb545f8e3165c7ebc9b119ef95894cef54 Author: Jarkko Hietaniemi <[email protected]> Date: Thu Sep 18 17:26:02 2014 -0400 POSIX math: Tru64 has rint() M ext/POSIX/POSIX.xs ----------------------------------------------------------------------- Summary of changes: ext/POSIX/POSIX.xs | 19 ++++++++++++++++--- 1 file changed, 16 insertions(+), 3 deletions(-) diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs index 7f3dcd9..fb60d57 100644 --- a/ext/POSIX/POSIX.xs +++ b/ext/POSIX/POSIX.xs @@ -330,12 +330,26 @@ * kick in. This is admittedly nasty, and fragile, but the alternative * is to have Configure scans for all the 40+ interfaces. * + * For some platforms, also the gcc implementations are missing + * certain interfaces. + * * In other words: if you have an incomplete (or broken) C99 math interface, * #undef the c99_foo here, and let the emulations kick in. */ -#ifndef __GNUC__ +#ifdef __GNUC__ + +/* using gcc */ + +# if defined(__hpux) && (defined(__hppa) || defined(_PA_RISC)) +# undef c99_nexttoward +# undef c99_tgamma +# endif + +#else + +/* not using gcc */ -# if defined(_AIX53) || defined(_AIX61) /* AIX 7 ? */ +# if defined(_AIX53) || defined(_AIX61) /* AIX 7 has nexttoward */ # undef c99_nexttoward # endif @@ -387,7 +401,6 @@ # undef c99_nearbyint # undef c99_nexttoward # undef c99_remquo -# undef c99_rint # undef c99_round # undef c99_scalbn # endif -- Perl5 Master Repository
