From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 19 Aug 2000 14:15:45 +0000 (+0000)
Subject: Put back the long double avoidance code to POSIX.xs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=172ea7c87e87614bc0ae85422590b4c9d7c3960c;p=p5sagit%2Fp5-mst-13.2.git

Put back the long double avoidance code to POSIX.xs
because VMS seems to need it still.

p4raw-id: //depot/perl@6713
---

diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs
index 473610f..06869f6 100644
--- a/ext/POSIX/POSIX.xs
+++ b/ext/POSIX/POSIX.xs
@@ -538,6 +538,24 @@ mini_mktime(struct tm *ptm)
 	ptm->tm_wday = (jday + WEEKDAY_BIAS) % 7;
 }
 
+#ifdef HAS_LONG_DOUBLE
+#  if LONG_DOUBLESIZE > DOUBLESIZE
+#    undef HAS_LONG_DOUBLE  /* XXX until we figure out how to use them */
+#  endif
+#endif
+
+#ifndef HAS_LONG_DOUBLE
+#ifdef LDBL_MAX
+#undef LDBL_MAX
+#endif
+#ifdef LDBL_MIN
+#undef LDBL_MIN
+#endif
+#ifdef LDBL_EPSILON
+#undef LDBL_EPSILON
+#endif
+#endif
+
 static int
 not_here(char *s)
 {