From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 2 Mar 2000 20:00:37 +0000 (+0000)
Subject: workaround for Tru64 compiler bug (cleaner fix will have
X-Git-Tag: accepted/trunk/20130322.191538~34817^2~246
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=1ad04cfd3b3b4bd1424debce624b00a1a8883189;p=platform%2Fupstream%2Fperl.git

workaround for Tru64 compiler bug (cleaner fix will have
to wait until 5.6.1), from Spider Boardman

p4raw-id: //depot/cfgperl@5448
---

diff --git a/pp.c b/pp.c
index d0a9959..ebfe985 100644
--- a/pp.c
+++ b/pp.c
@@ -1199,7 +1199,21 @@ PP(pp_ncmp)
     {
       dPOPTOPnnrl;
       I32 value;
+#ifdef __osf__ /* XXX fix in 5.6.1 --jhi */
+#if defined(USE_LONG_DOUBLE) && defined(HAS_LONG_DOUBLE)
+#define Perl_isnan isnanl
+#else
+#define Perl_isnan isnan
+#endif
+#endif
 
+#ifdef __osf__ /* XXX fix in 5.6.1 --jhi */
+      if (Perl_isnan(left) || Perl_isnan(right)) {
+	  SETs(&PL_sv_undef);
+	  RETURN;
+       }
+      value = (left > right) - (left < right);
+#else
       if (left == right)
 	value = 0;
       else if (left < right)
@@ -1210,6 +1224,7 @@ PP(pp_ncmp)
 	SETs(&PL_sv_undef);
 	RETURN;
       }
+#endif
       SETi(value);
       RETURN;
     }