diff options
| author | Jeff Okamoto <okamoto@corp.hp.com> | 2000-07-27 06:51:41 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-01 21:48:38 +0000 |
| commit | f1c3b19a187f1a7d28f386fa644302ed282cc68d (patch) | |
| tree | 60f0140ab5f5793c6c884222ba635cb655b4e40a | |
| parent | 9058bc9b7176f7a8d171bb316d39680b3246ce5f (diff) | |
| download | perl-f1c3b19a187f1a7d28f386fa644302ed282cc68d.tar.gz | |
[Proposed PATCH] Let Perl define QUAD_MIN and _MAX itself
Message-Id: <200007272051.NAA02178@xfiles.intercon.hp.com>
p4raw-id: //depot/perl@6481
| -rw-r--r-- | perl.h | 17 |
1 files changed, 1 insertions, 16 deletions
@@ -1401,25 +1401,10 @@ typedef NVTYPE NV; #ifdef UV_IS_QUAD -# ifdef UQUAD_MAX -# define PERL_UQUAD_MAX ((UV)UQUAD_MAX) -# else # define PERL_UQUAD_MAX (~(UV)0) -# endif - -# define PERL_UQUAD_MIN ((UV)0) - -# ifdef QUAD_MAX -# define PERL_QUAD_MAX ((IV)QUAD_MAX) -# else +# define PERL_UQUAD_MIN ((UV)0) # define PERL_QUAD_MAX ((IV) (PERL_UQUAD_MAX >> 1)) -# endif - -# ifdef QUAD_MIN -# define PERL_QUAD_MIN ((IV)QUAD_MIN) -# else # define PERL_QUAD_MIN (-PERL_QUAD_MAX - ((3 & -1) == 3)) -# endif #endif |