From 76b882ba4faa83b05d415f2a5e986b1de22b0311 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Sun, 12 Mar 2000 05:08:29 +0000 Subject: [PATCH] continue flogging the string->int conversion ifdefs p4raw-id: //depot/cfgperl@5675 --- perl.h | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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 -- 2.7.4