In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/d9c672b1f02c5ff634d77faf243344343bb4aaea?hp=ff90be785c6ba7ae5888f758f1db0129f69a6407>
- Log ----------------------------------------------------------------- commit d9c672b1f02c5ff634d77faf243344343bb4aaea Author: Jarkko Hietaniemi <[email protected]> Date: Tue Nov 18 19:28:32 2014 -0500 While the nan() todo remains, at least warn not. M ext/POSIX/POSIX.xs commit 8e65ef337769ab2ed5e786d2f176492972b2f003 Author: Jarkko Hietaniemi <[email protected]> Date: Tue Nov 18 19:25:48 2014 -0500 Comment reformatting. M ext/POSIX/POSIX.xs commit 14e9b8fddd27e76adaa6d1aa4f5529b74024eb74 Author: Jarkko Hietaniemi <[email protected]> Date: Tue Nov 18 19:24:22 2014 -0500 Use my_tgamma/my_lgamma only ifndef HAS_TGAMMA/HAS_LGAMMA. M ext/POSIX/POSIX.xs ----------------------------------------------------------------------- Summary of changes: ext/POSIX/POSIX.xs | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs index 452f766..1485d3d 100644 --- a/ext/POSIX/POSIX.xs +++ b/ext/POSIX/POSIX.xs @@ -729,20 +729,22 @@ static IV my_ilogb(NV x) # define c99_ilogb my_ilogb #endif -/* tgamma and lgamma emulations based on http://www.johndcook.com/cpp_gamma.html, +/* tgamma and lgamma emulations based on + * http://www.johndcook.com/cpp_gamma.html, * code placed in public domain. * * Note that these implementations (neither the johndcook originals * nor these) do NOT set the global signgam variable. This is not * necessarily a bad thing. */ -/* Note that tgamma() and lgamma() implementations depend on each other. */ +/* Note that the tgamma() and lgamma() implementations + * here depend on each other. */ -#ifndef c99_tgamma +#ifndef HAS_TGAMMA static NV my_tgamma(NV x); # define c99_tgamma my_tgamma #endif -#ifndef c99_lgamma +#ifndef HAS_LGAMMA static NV my_lgamma(NV x); # define c99_lgamma my_lgamma #endif @@ -2624,6 +2626,7 @@ nan(s = 0) #ifdef c99_nan RETVAL = c99_nan(s ? s : ""); #elif defined(NV_NAN) + PERL_UNUSED_VAR(s); /* XXX if s != NULL, warn about unused argument, * or implement the nan payload setting. */ RETVAL = NV_NAN; -- Perl5 Master Repository
