diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2014-11-17 18:50:32 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2014-11-17 21:04:39 -0500 |
| commit | f5802bf0f2c34ea56151de333ff29a4b3d949982 (patch) | |
| tree | f1870af6ae3a63fb324506f694c7a23d491c2927 /ext | |
| parent | ffaf0c19a32ff3388356ae172ffae274955c3012 (diff) | |
| download | perl-f5802bf0f2c34ea56151de333ff29a4b3d949982.tar.gz | |
No C++ comments, please, we are C89ish.
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/POSIX/POSIX.xs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs index 0dcf43ed94..07a8dc811e 100644 --- a/ext/POSIX/POSIX.xs +++ b/ext/POSIX/POSIX.xs @@ -737,7 +737,7 @@ static NV my_lgamma(NV x); #if !defined(c99_tgamma) || !defined(c99_lgamma) static NV my_tgamma(NV x) { - const NV gamma = 0.577215664901532860606512090; // Euler's gamma constant. + const NV gamma = 0.577215664901532860606512090; /* Euler's gamma constant. */ if (Perl_isnan(x) || x < 0.0) return NV_NAN; if (x == 0.0 || x == NV_INF) @@ -747,7 +747,7 @@ static NV my_tgamma(NV x) * (0, 0.001), [0.001, 12), and (12, infinity) */ /* First interval: (0, 0.001) - * For small values, 1/tgamma(x) has power series x + gamma x^2 , + * For small values, 1/tgamma(x) has power series x + gamma x^2, * so in this range, 1/tgamma(x) = x + gamma x^2 with error on the order of x^3. * The relative error over this interval is less than 6e-7. */ if (x < 0.001) @@ -836,10 +836,10 @@ static NV my_lgamma(NV x) return 0; if (x < 12.0) return Perl_log(PERL_ABS(my_tgamma(x))); - // Abramowitz and Stegun 6.1.41 - // Asymptotic series should be good to at least 11 or 12 figures - // For error analysis, see Whittiker and Watson - // A Course in Modern Analysis (1927), page 252 + /* Abramowitz and Stegun 6.1.41 + * Asymptotic series should be good to at least 11 or 12 figures + * For error analysis, see Whittiker and Watson + * A Course in Modern Analysis (1927), page 252 */ { static const NV c[8] = { 1.0/12.0, |