# New Ticket Created by Jarkko Hietaniemi
# Please include the string: [perl #31119]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org:80/rt3/Ticket/Display.html?id=31119 >
Doesn't help for the IRIX64 t/pmc/perlnum_36.pasm problem but at least
should make detecting unportable assumptions easier in future.
--
Jarkko Hietaniemi <[EMAIL PROTECTED]> http://www.iki.fi/jhi/ "There is this special
biologist word we use for 'stable'. It is 'dead'." -- Jack Cohen
--- config/gen/config_h/config_h.in.dist Sat Aug 14 14:34:05 2004
+++ config/gen/config_h/config_h.in Sat Aug 14 14:34:27 2004
@@ -71,6 +71,7 @@
#define INT_SIZE ${intsize}
#define LONG_SIZE ${longsize}
#define HUGEINTVAL_SIZE ${hugeintvalsize}
+#define DOUBLE_SIZE ${doublesize}
/* We don't have a portable config for 64-bit
* registers yet. */
--- config/gen/platform/generic/math.c.dist Sat Aug 14 14:34:45 2004
+++ config/gen/platform/generic/math.c Sat Aug 14 14:36:07 2004
@@ -5,6 +5,7 @@
/*
* return true if the Numval has a negative sign
*/
+#if DOUBLE_SIZE == 2 * INT_SIZE
int
Parrot_signbit(double x)
{
@@ -19,8 +20,9 @@
return u.i[1] < 0;
#endif
}
+#endif
-#if NUMVAL_SIZE == 12
+#if NUMVAL_SIZE == 12 && DOUBLE_SIZE == 3 * INT_SIZE && PARROT_LITTLE_ENDIAN
int
Parrot_signbit_l(long double x)
{
