From e82e08d5403019ee247cbb11863a873d8451479b Mon Sep 17 00:00:00 2001
From: Jens Hamisch <jens@Strawberry.COM>
Date: Fri, 27 Oct 2000 16:38:21 +0200
Subject: [PATCH] [ID 20001027.002] Patch 7380 followup - Perl_modfl *must* be
 defined Message-Id: <20001027143821.B3366@Strawberry.COM>

p4raw-id: //depot/perl@7457
---
 perl.h | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/perl.h b/perl.h
index 97fbac2..72b3f41 100644
--- 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)
-- 
2.7.4