From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 11 Feb 2000 21:01:21 +0000 (+0000)
Subject: Guard against accidental long long use.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=15b99d39e9ccb421b0e7c01639f4bddb62f79f92;p=p5sagit%2Fp5-mst-13.2.git

Guard against accidental long long use.

p4raw-id: //depot/cfgperl@5068
---

diff --git a/perl.h b/perl.h
index 2139845..b770e1b 100644
--- a/perl.h
+++ b/perl.h
@@ -3012,26 +3012,30 @@ typedef struct am_table_short AMTS;
 
 #endif /* !USE_LOCALE_NUMERIC */
 
-#if !defined(Atol) && defined(HAS_LONG_LONG)
-#   if !defined(Atol) && defined(HAS_STRTOLL)
-#       define Atol(s) strtoll(s, (char**)NULL, 10)
-#   endif
-#   if !defined(Atol) && defined(HAS_ATOLL)
-#       define Atol atoll
-#   endif
-#endif
+#if !defined(Atol) && defined(USE_64_BITS) && defined(HAS_QUAD)
+#    if !defined(Atol) && defined(HAS_LONG_LONG)
+#       if !defined(Atol) && defined(HAS_STRTOLL)
+#           define Atol(s) strtoll(s, (char**)NULL, 10)
+#       endif
+#       if !defined(Atol) && defined(HAS_ATOLL)
+#           define Atol atoll
+#       endif
+#    endif
 /* is there atoq() anywhere? */
+#endif
 #if !defined(Atol)
 #   define Atol atol /* we assume atol being available anywhere */
 #endif
 
-#if !defined(Strtoul) && defined(HAS_LONG_LONG) && defined(HAS_STRTOULL)
-#   define Strtoul strtoull
-#endif
+#if !defined(Strtoul) && defined(USE_64_BITS) && defined(HAS_QUAD)
+#    if !defined(Strtoul) && defined(HAS_LONG_LONG) && defined(HAS_STRTOULL)
+#       define Strtoul strtoull
+#    endif
 /* is there atouq() anywhere? */
-#if !defined(Strtoul) && defined(USE_64_BITS) && defined(HAS_STRTOUQ)
-#   define Strtoul strtouq
-#endif
+#    if !defined(Strtoul) && defined(USE_64_BITS) && defined(HAS_STRTOUQ)
+#       define Strtoul strtouq
+#    endif
+#nendif
 #if !defined(Strtoul)
 #   define Strtoul strtoul /* we assume strtoul being available anywhere */
 #endif