diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2001-05-31 21:49:48 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-01 16:13:28 +0000 |
| commit | 1f727ac0e62bc2e40ea8fa3c4c25da4e405d0fba (patch) | |
| tree | 1363d614c2f0ec2646d10d153249838be51d6513 /perl.h | |
| parent | 948ed65c2d5d9ca21c1cfa047db55fc6022dc977 (diff) | |
| download | perl-1f727ac0e62bc2e40ea8fa3c4c25da4e405d0fba.tar.gz | |
Re: [ID 20010529.006] String plus zero inconsistent across platforms
Message-Id: <200105311949.UAA02798@crypt.compulink.co.uk>
p4raw-id: //depot/perl@10379
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 20 |
1 files changed, 2 insertions, 18 deletions
@@ -1311,24 +1311,8 @@ typedef NVTYPE NV; # endif #endif -#if !defined(Perl_atof) && defined(USE_LONG_DOUBLE) && defined(HAS_LONG_DOUBLE) -# if !defined(Perl_atof) && defined(HAS_STRTOLD) -# define Perl_atof(s) (NV)strtold(s, (char**)NULL) -# endif -# if !defined(Perl_atof) && defined(HAS_ATOLF) -# define Perl_atof (NV)atolf -# endif -# if !defined(Perl_atof) && defined(PERL_SCNfldbl) -# define Perl_atof PERL_SCNfldbl -# define Perl_atof2(s,f) sscanf((s), "%"PERL_SCNfldbl, &(f)) -# endif -#endif -#if !defined(Perl_atof) -# define Perl_atof atof /* we assume atof being available anywhere */ -#endif -#if !defined(Perl_atof2) -# define Perl_atof2(s,f) ((f) = (NV)Perl_atof(s)) -#endif +#define Perl_atof(s) Perl_my_atof(s) +#define Perl_atof2(s, np) Perl_my_atof2(s, np) /* Previously these definitions used hardcoded figures. * It is hoped these formula are more portable, although |