From: Jeff Okamoto <okamoto@corp.hp.com>
Date: Thu, 27 Jul 2000 13:51:41 +0000 (-0700)
Subject: [Proposed PATCH] Let Perl define QUAD_MIN and _MAX itself
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f1c3b19a187f1a7d28f386fa644302ed282cc68d;p=p5sagit%2Fp5-mst-13.2.git

[Proposed PATCH] Let Perl define QUAD_MIN and _MAX itself
Message-Id: <200007272051.NAA02178@xfiles.intercon.hp.com>

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

diff --git a/perl.h b/perl.h
index 7214c15..f01be71 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