From: Jens Hamisch <jens@Strawberry.COM>
Date: Fri, 27 Oct 2000 14:38:21 +0000 (+0200)
Subject: [ID 20001027.002] Patch 7380 followup - Perl_modfl *must* be defined
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e82e08d5403019ee247cbb11863a873d8451479b;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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)