From: Hal Morris <hom00@utsglobal.com>
Date: Tue, 3 Jul 2001 09:38:22 +0000 (-0700)
Subject: Patch needed for UTS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=11afe54945d537705fbfd69eb1b26c1a12c777e3;p=p5sagit%2Fp5-mst-13.2.git

Patch needed for UTS
Message-Id: <200107031638.JAA11998@cepheus.utsglobal.com>

Replace #11113 with a better version.

p4raw-id: //depot/perl@11124
---

diff --git a/perl.h b/perl.h
index 8b3c485..8f1cad3 100644
--- a/perl.h
+++ b/perl.h
@@ -1132,27 +1132,8 @@ typedef UVTYPE UV;
 #endif
 
 #if defined(uts) || defined(UTS)
-#   undef UV_MAX
-#   define UV_MAX (4294967295u)
-#endif
-
-/*
-  I've tracked down a weird bug in Perl5.6.1 to the UTS compiler's
-  mishandling of MY_UV_MAX in util.c.  It is defined as
-    #ifndef MY_UV_MAX
-    #  define MY_UV_MAX ((UV)IV_MAX * (UV)2 + (UV)1)
-    #endif
-  The compiler handles {double floating point value} >= MY_UV_MAX as if
-  MY_UV_MAX were the signed integer -1.  In fact it will do the same
-  thing with (UV)(0xffffffff), in place of MY_UV_MAX, though 0xffffffff
-  *without* the typecast to UV works fine.
-
-  hom00@utsglobal.com (Hal Morris) 2001-05-02
-
-  */
-
-#ifdef UTS
-#  define MY_UV_MAX 0xffffffff 
+#	undef UV_MAX
+#	define UV_MAX (4294967295u)
 #endif
 
 #define IV_DIG (BIT_DIGITS(IVSIZE * 8))