This is a live mirror of the Perl 5 development currently hosted at
Re: [PATCH] signbit detection (was [perl #39875] -0.0 loses signedness upon numeric...
authorAndy Dougherty <>
Fri, 9 Feb 2007 11:46:28 +0000 (06:46 -0500)
committerH.Merijn Brand <>
Sat, 10 Feb 2007 16:41:42 +0000 (16:41 +0000)
Message-ID: <>

p4raw-id: //depot/metaconfig@30190

U/perl/d_signbit.U [new file with mode: 0644]

diff --git a/U/perl/d_signbit.U b/U/perl/d_signbit.U
new file mode 100644 (file)
index 0000000..bd47f57
--- /dev/null
@@ -0,0 +1,64 @@
+?RCS: $Id$
+?RCS: You may distribute under the terms of either the GNU General Public
+?RCS: License or the Artistic License, as specified in the README file.
+?MAKE:d_signbit: nvtype Compile Setvar cat run rm echo n c i_math i_sunmath
+?MAKE: -pick add $@ %<
+?S:    This variable conditionally defines the HAS_SIGNBIT symbol, which
+?S:    indicates to the C program that the signbit() routine is available
+?S:    and safe to use with perl's intern NV type.
+?C:    This symbol, if defined, indicates that the signbit routine is
+?C:    available to check if the given number has the sign bit set.
+?C:    This should include correct testing of -0.0.  This will only be set
+?C:    if the signbit() routine is safe to use with the NV type used internally
+?C:    in perl.  Users should call Perl_signbit(), which will be #defined to
+?C:    the system's signbit() function or macro if this symbol is defined.
+?H:#$d_signbit HAS_SIGNBIT             /**/
+?LINT:set d_signbit d_use_signbit
+: see if signbit exists
+$echo $n "Checking to see if you have signbit() available to work on $nvtype... $c" >&4
+$cat >try.c <<EOCP
+#$i_math I_MATH
+#$i_sunmath I_SUNMATH
+#ifdef I_MATH
+#  include <math.h>
+#ifdef I_SUNMATH  /* Solaris special math library */
+#  include <sunmath.h>
+#define NV $nvtype
+int main(int argc, char **argv)
+    NV x = 0.0;
+    NV y = -0.0;
+    if ((signbit(x) == 0) && (signbit(y) != 0))
+       return 0;
+    else
+       return 1;
+set try
+if eval $compile; then
+    if $run ./try; then
+        $echo "Yes." >&4
+       val="$define"
+    else
+        $echo "Signbit seems to be available, but doesn't work as I expected."
+        $echo "I won't use it." >&4
+       val="$undef"
+    fi
+    $echo "Nope." >&4
+    dflt="$undef"
+set d_signbit
+eval $setvar
+$rm -f try.* try