Author: bernhard
Date: Mon May 1 02:48:55 2006
New Revision: 12473
Modified:
trunk/config/gen/platform/generic/math.c
Log:
Export Parrot_signbit() in order to give the dynamic PerlNum
a chance to work on Win32.
Modified: trunk/config/gen/platform/generic/math.c
==============================================================================
--- trunk/config/gen/platform/generic/math.c (original)
+++ trunk/config/gen/platform/generic/math.c Mon May 1 02:48:55 2006
@@ -3,10 +3,14 @@
*/
/*
- * return true if the Numval has a negative sign
+ * return true if the Numval has a negative sign.
+ * This is mostly for handling the -0.0 case.
+ *
+ * Parrot_signbit is exported because PerlNum.set_number_native() uses it.
+ * XXX: This is propably not a good reason.
*/
#if DOUBLE_SIZE == 2 * INT_SIZE
-int
+PARROT_API extern int
Parrot_signbit(double x)
{
union {
