Change 11124 by jhi@alpha on 2001/07/03 16:06:53
Subject: Patch needed for UTS
From: [EMAIL PROTECTED] (Hal Morris)
Date: Tue, 3 Jul 2001 09:38:22 -0700 (PDT)
Message-Id: <[EMAIL PROTECTED]>
Replace #11113 with a better version.
Affected files ...
... //depot/perl/perl.h#367 edit
Differences ...
==== //depot/perl/perl.h#367 (text) ====
Index: perl/perl.h
--- perl/perl.h.~1~ Tue Jul 3 10:15:05 2001
+++ perl/perl.h Tue Jul 3 10:15:05 2001
@@ -1132,27 +1132,8 @@
#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.
-
- [EMAIL PROTECTED] (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))
End of Patch.
