diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-03-11 19:03:32 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-03-11 19:03:32 +0000 |
| commit | 55eb892c8d1c2d0317b54696f56f6afb30a62cd1 (patch) | |
| tree | 87a1b8ce423e4caff575d4db7023614cfa05f47b /perl.h | |
| parent | 2b8ee12442001da9730d16040580477c79f88fb0 (diff) | |
| download | perl-55eb892c8d1c2d0317b54696f56f6afb30a62cd1.tar.gz | |
Use Atof() instead of bare strtod(); ditto for Atol()/Atoul()
(introduce the latter) instead of bare strtoll()/strtoll().
p4raw-id: //depot/cfgperl@5661
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 9 |
1 files changed, 6 insertions, 3 deletions
@@ -1173,7 +1173,7 @@ typedef NVTYPE NV; #endif #if !defined(Perl_atof) && defined(USE_LONG_DOUBLE) && defined(HAS_LONG_DOUBLE) -# if !defined(Perl_atof) && defined(HAS_STRTOLD) +# if !defined(Perl_atof) && defined(HAS_STRTOLD) # define Perl_atof(s) strtold(s, (char**)NULL) # endif # if !defined(Perl_atof) && defined(HAS_ATOLF) @@ -3075,7 +3075,7 @@ typedef struct am_table_short AMTS; #endif /* !USE_LOCALE_NUMERIC */ -#if !defined(Atol) && defined(IV_IS_QUAD) && QUADKIND == QUAD_IS_LONG_LONG +#if !defined(Atol) && defined(USE_64_BIT_INT) && defined(IV_IS_QUAD) && QUADKIND == QUAD_IS_LONG_LONG # ifdef __hpux # define strtoll __strtoll /* secret handshake */ # endif @@ -3091,7 +3091,7 @@ typedef struct am_table_short AMTS; # define Atol atol /* we assume atol being available anywhere */ #endif -#if !defined(Strtoul) && defined(UV_IS_QUAD) && QUADKIND == QUAD_IS_LONG_LONG +#if !defined(Strtoul) && defined(USE_64_BIT_INT) && defined(UV_IS_QUAD) && QUADKIND == QUAD_IS_LONG_LONG # ifdef __hpux # define strtoull __strtoull /* secret handshake */ # endif @@ -3106,6 +3106,9 @@ typedef struct am_table_short AMTS; #if !defined(Strtoul) # define Strtoul strtoul /* we assume strtoul being available anywhere */ #endif +#ifndef Atoul +# define Atoul Strtoul +#endif #if !defined(PERLIO_IS_STDIO) && defined(HASATTRIBUTE) /* |