From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 12 Mar 2000 05:08:29 +0000 (+0000)
Subject: continue flogging the string->int conversion ifdefs
X-Git-Tag: accepted/trunk/20130322.191538~34817^2~169
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=76b882ba4faa83b05d415f2a5e986b1de22b0311;p=platform%2Fupstream%2Fperl.git

continue flogging the string->int conversion ifdefs

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

diff --git a/perl.h b/perl.h
index e6c6098..d4d2292 100644
--- a/perl.h
+++ b/perl.h
@@ -3091,7 +3091,11 @@ typedef struct am_table_short AMTS;
 /* It would be more fashionable to use Strtol() to define atol()
  * (as is done for Atoul(), see below) but for backward compatibility
  * we just assume atol(). */
-#   define Atol		atol
+#   if defined(USE_64_BIT_INT) && defined(IV_IS_QUAD) && QUADKIND == QUAD_IS_LONG_LONG && defined(HAS_ATOLL)
+#       define Atol	atoll
+#   else
+#       define Atol	atol
+#   endif
 #endif
 
 #if !defined(Strtoul) && defined(USE_64_BIT_INT) && defined(UV_IS_QUAD) && QUADKIND == QUAD_IS_LONG_LONG