This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
The VMS CRTL has lrint, but not llrint.
authorCraig A. Berry <craigberry@mac.com>
Tue, 2 Sep 2014 23:51:04 +0000 (18:51 -0500)
committerCraig A. Berry <craigberry@mac.com>
Tue, 2 Sep 2014 23:51:04 +0000 (18:51 -0500)
ext/POSIX/POSIX.xs

index e5231b8..77d4ec8 100644 (file)
 
 /* XXX Regarding C99 math.h, VMS seems to be missing these:
 
-  nan nearbyint round scalbn
+  nan nearbyint round scalbn llrint
  */
 
 #ifdef __VMS
 #    undef c99_nearbyint
 #    undef c99_round
 #    undef c99_scalbn
+/* Have lrint but not llrint. */
+#    if defined(USE_64_BIT_INT) && QUADKIND == QUAD_IS_LONG_LONG
+#      undef c99_lrint
+#    endif
 #endif
 
 /* XXX Regarding C99 math.h, Win32 seems to be missing these: