summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJens Hamisch <jens@Strawberry.COM>2000-10-27 16:38:21 +0200
committerJarkko Hietaniemi <jhi@iki.fi>2000-10-27 12:43:13 +0000
commite82e08d5403019ee247cbb11863a873d8451479b (patch)
tree6c1431db07a557b372b3474873cdaacccd91054a
parent2470c0fcaca5c9f49e9949fb72fbc863ab9bf71d (diff)
downloadperl-e82e08d5403019ee247cbb11863a873d8451479b.tar.gz
[ID 20001027.002] Patch 7380 followup - Perl_modfl *must* be defined
Message-Id: <20001027143821.B3366@Strawberry.COM> p4raw-id: //depot/perl@7457
-rw-r--r--perl.h4
1 files changed, 4 insertions, 0 deletions
diff --git a/perl.h b/perl.h
index 97fbac2063..72b3f41880 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)