diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2015-03-12 07:24:59 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2015-03-12 08:11:04 -0400 |
| commit | eec978e5f1327dfd348e7205479fb6cb7a6abd3d (patch) | |
| tree | 31999b55e5e3607ca6c192e60e328c430db8fbd5 /ext | |
| parent | d6876a31fdeb2e8ec9c45523facfeb496f2347f2 (diff) | |
| download | perl-eec978e5f1327dfd348e7205479fb6cb7a6abd3d.tar.gz | |
POSIX: emulation for logb()
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/POSIX/POSIX.xs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs index 7652416e6d..5a2c30622f 100644 --- a/ext/POSIX/POSIX.xs +++ b/ext/POSIX/POSIX.xs @@ -2322,6 +2322,8 @@ acos(x) case 20: #ifdef c99_logb RETVAL = c99_logb(x); +#elif defined(c99_log2) && FLT_RADIX == 2 + RETVAL = Perl_floor(c99_log2(PERL_ABS(x))); #else not_here("logb"); #endif |