This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
quadmath: long long versus round/trunc
authorJarkko Hietaniemi <jhi@iki.fi>
Sat, 6 Jun 2015 12:47:11 +0000 (08:47 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 6 Jun 2015 12:47:11 +0000 (08:47 -0400)
ext/POSIX/POSIX.xs

index a81df95..535fccf 100644 (file)
 #  define c99_ilogb    ilogbq
 #  define c99_lgamma   lgammaq
 #  define c99_log1p    log1pq
-#  define c99_llrint   llrintq
 #  define c99_log2     log2q
 /* no logbq */
-#  define c99_lround   llroundq
-#  define c99_lrint    lrintq
-#  define c99_lround   lroundq
+#  if defined(USE_64_BIT_INT) && QUADKIND == QUAD_IS_LONG_LONG
+#    define c99_lrint  llrintq
+#    define c99_lround llroundq
+#  else
+#    define c99_lrint  lrintq
+#    define c99_lround lroundq
+#  endif
 #  define c99_nan      nanq
 #  define c99_nearbyint        nearbyintq
 #  define c99_nextafter        nextafterq