[ID 20001027.002] Patch 7380 followup - Perl_modfl *must* be defined

Message-Id: <20001027143821.B3366@Strawberry.COM>

p4raw-id: //depot/perl@7457

diff --git a/perl.h b/perl.h
index 97fbac2..72b3f41 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -1187,9 +1187,13 @@ typedef NVTYPE NV;
 /* e.g. libsunmath doesn't have modfl and frexpl as of mid-March 2000 */
 #   ifdef HAS_MODFL
 #       define Perl_modf(x,y) modfl(x,y)
+#   else
+#       define Perl_modf(x,y) ((long double)modf((double)(x),(double*)(y)))
 #   endif
 #   ifdef HAS_FREXPL
 #       define Perl_frexp(x,y) frexpl(x,y)
+#   else
+#       define Perl_frexp(x,y) ((long double)frexp((double)(x),y))
 #   endif
 #   ifdef HAS_ISNANL
 #       define Perl_isnan(x) isnanl(x)