diff options
| author | Hal Morris <hom00@utsglobal.com> | 2001-07-03 02:38:22 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-03 16:06:53 +0000 |
| commit | 11afe54945d537705fbfd69eb1b26c1a12c777e3 (patch) | |
| tree | 95932c272f20057834b0111af9e4f3202eff80c3 /perl.h | |
| parent | 96e280ae86d56001827a53c737ce2fee631ea5cc (diff) | |
| download | perl-11afe54945d537705fbfd69eb1b26c1a12c777e3.tar.gz | |
Patch needed for UTS
Message-Id: <200107031638.JAA11998@cepheus.utsglobal.com>
Replace #11113 with a better version.
p4raw-id: //depot/perl@11124
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 23 |
1 files changed, 2 insertions, 21 deletions
@@ -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)) |