X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl.h;h=2f5a5601bf38aeea4d1ac65c95f0438f6a12d6aa;hb=9ec58fb7ec19e41fee2f2944750a45a2a85e4a03;hp=04b6196223b7fc40797009628cde3a7a7d853c6a;hpb=a3540c9216933280e8172ff9fdbf23c34fe36604;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perl.h b/perl.h
index 04b6196..2f5a560 100644
--- a/perl.h
+++ b/perl.h
@@ -1162,9 +1162,9 @@ typedef NVTYPE NV;
 #       define Perl_modf(x,y) ((long double)modf((double)(x),(double*)(y)))
 #   endif
 #   ifdef HAS_FREXPL
-#       define Perl_frexp(x) frexpl(x)
+#       define Perl_frexp(x,y) frexpl(x,y)
 #   else
-#       define Perl_frexp(x) ((long double)frexp((double)(x)))
+#       define Perl_frexp(x,y) ((long double)frexp((double)(x),y))
 #   endif
 #   ifdef HAS_ISNANL
 #       define Perl_isnan(x) isnanl(x)
@@ -1187,7 +1187,7 @@ typedef NVTYPE NV;
 #   define Perl_floor floor
 #   define Perl_fmod fmod
 #   define Perl_modf(x,y) modf(x,y)
-#   define Perl_frexp(x) frexp(x)
+#   define Perl_frexp(x,y) frexp(x,y)
 #   ifdef HAS_ISNAN
 #       define Perl_isnan(x) isnan(x)
 #   else