This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
We now have symbols for llrint and llround.
authorJarkko Hietaniemi <jhi@iki.fi>
Thu, 13 Nov 2014 00:04:47 +0000 (19:04 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 15 Nov 2014 00:01:49 +0000 (19:01 -0500)
ext/POSIX/POSIX.xs

index 638755a..21f8101 100644 (file)
 #    define c99_log1p  log1p
 #    define c99_log2   log2
 #    define c99_logb   logb
-#    if defined(USE_64_BIT_INT) && QUADKIND == QUAD_IS_LONG_LONG
+#    if defined(USE_64_BIT_INT) && QUADKIND == QUAD_IS_LONG_LONG && defined(HAS_LLRINT)
 #      define c99_lrint        llrint
 #    else
 #      define c99_lrint        lrint
 #    endif
-#    if defined(USE_64_BIT_INT) && QUADKIND == QUAD_IS_LONG_LONG
+#    if defined(USE_64_BIT_INT) && QUADKIND == QUAD_IS_LONG_LONG && defined(HAS_LLROUND)
 #      define c99_lround       llround
 #    else
 #      define c99_lround       lround