summaryrefslogtreecommitdiff
path: root/perl.h
diff options
context:
space:
mode:
authorJeff Okamoto <okamoto@corp.hp.com>2000-07-27 06:51:41 -0700
committerJarkko Hietaniemi <jhi@iki.fi>2000-08-01 21:48:38 +0000
commitf1c3b19a187f1a7d28f386fa644302ed282cc68d (patch)
tree60f0140ab5f5793c6c884222ba635cb655b4e40a /perl.h
parent9058bc9b7176f7a8d171bb316d39680b3246ce5f (diff)
downloadperl-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
Diffstat (limited to 'perl.h')
-rw-r--r--perl.h17
1 files changed, 1 insertions, 16 deletions
diff --git a/perl.h b/perl.h
index 7214c1590c..f01be71d08 100644
--- a/perl.h
+++ b/perl.h
@@ -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