From ed140128eb692ebeaa21f2775f8d3c34e9a94094 Mon Sep 17 00:00:00 2001
From: Andy Dougherty <doughera@lafayette.edu>
Date: Fri, 9 Feb 2007 06:40:51 -0500
Subject: signbit detection (was [perl #39875] -0.0 loses signedness upon
 numeric comparison) Message-ID:
 <Pine.LNX.4.62.0702091121400.10202@fractal.phys.lafayette.edu>

p4raw-id: //depot/perl@30192
---
 perl.h | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'perl.h')

diff --git a/perl.h b/perl.h
index e2d4253f20..f1c88d4176 100644
--- a/perl.h
+++ b/perl.h
@@ -3409,6 +3409,10 @@ long vtohl(long n);
 #define U_I(what) ((unsigned int)U_32(what))
 #define U_L(what) U_32(what)
 
+#ifdef HAS_SIGNBIT
+#  define Perl_signbit signbit
+#endif
+
 /* These do not care about the fractional part, only about the range. */
 #define NV_WITHIN_IV(nv) (I_V(nv) >= IV_MIN && I_V(nv) <= IV_MAX)
 #define NV_WITHIN_UV(nv) ((nv)>=0.0 && U_V(nv) >= UV_MIN && U_V(nv) <= UV_MAX)
-- 
cgit v1.2.1