In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/6347c79c0486278eba1f54cf5fffff03b907884f?hp=ef47896ba965ec9b7355dc35c9abb2289d1a01f7>
- Log ----------------------------------------------------------------- commit 6347c79c0486278eba1f54cf5fffff03b907884f Author: Jarkko Hietaniemi <[email protected]> Date: Thu Sep 4 19:51:54 2014 -0400 POSIX math: Use the Perl_ math APIs (C89) consistently. ----------------------------------------------------------------------- Summary of changes: ext/POSIX/POSIX.xs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs index 334f1c8..34596ec 100644 --- a/ext/POSIX/POSIX.xs +++ b/ext/POSIX/POSIX.xs @@ -511,7 +511,7 @@ static NV my_erf(NV x) /* Abramowitz and Stegun formula 7.1.26 */ t = 1.0 / (1.0 + p * x); - y = 1.0 - (((((a5*t + a4)*t) + a3)*t + a2)*t + a1) * t * exp(-x*x); + y = 1.0 - (((((a5*t + a4)*t) + a3)*t + a2)*t + a1) * t * Perl_exp(-x*x); return sign * y; } @@ -616,7 +616,7 @@ static NV my_hypot(NV x, NV y) y = t; } t = y / x; - return x * sqrt(1.0 + t * t); + return x * Perl_sqrt(1.0 + t * t); } # define c99_hypot my_hypot #endif -- Perl5 Master Repository
