Author: bernhard
Date: Mon May 1 07:38:50 2006
New Revision: 12475
Modified:
trunk/config/gen/platform/cygwin/math.c
trunk/config/gen/platform/netbsd/math.c
trunk/config/gen/platform/openbsd/math.c
trunk/config/gen/platform/platform_interface.h
trunk/config/gen/platform/solaris/math.c
Log:
Declare Parrot_signbit more consistently.
Modified: trunk/config/gen/platform/cygwin/math.c
==============================================================================
--- trunk/config/gen/platform/cygwin/math.c (original)
+++ trunk/config/gen/platform/cygwin/math.c Mon May 1 07:38:50 2006
@@ -11,10 +11,14 @@
const _LIB_VERSION_TYPE _LIB_VERSION = _IEEE_;
/*
- * 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 {
Modified: trunk/config/gen/platform/netbsd/math.c
==============================================================================
--- trunk/config/gen/platform/netbsd/math.c (original)
+++ trunk/config/gen/platform/netbsd/math.c Mon May 1 07:38:50 2006
@@ -13,10 +13,14 @@
_LIB_VERSION_TYPE _LIB_VERSION = _IEEE_;
/*
- * 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 {
Modified: trunk/config/gen/platform/openbsd/math.c
==============================================================================
--- trunk/config/gen/platform/openbsd/math.c (original)
+++ trunk/config/gen/platform/openbsd/math.c Mon May 1 07:38:50 2006
@@ -11,10 +11,14 @@
_LIB_VERSION_TYPE _LIB_VERSION = _IEEE_;
/*
- * 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 {
Modified: trunk/config/gen/platform/platform_interface.h
==============================================================================
--- trunk/config/gen/platform/platform_interface.h (original)
+++ trunk/config/gen/platform/platform_interface.h Mon May 1 07:38:50 2006
@@ -13,7 +13,7 @@
** Math:
*/
-int Parrot_signbit(double x);
+PARROT_API extern int Parrot_signbit(double x);
#if NUMVAL_SIZE == 12
int Parrot_signbit_l(long double x);
#endif
Modified: trunk/config/gen/platform/solaris/math.c
==============================================================================
--- trunk/config/gen/platform/solaris/math.c (original)
+++ trunk/config/gen/platform/solaris/math.c Mon May 1 07:38:50 2006
@@ -12,10 +12,14 @@
#endif
/*
- * 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 {
