diff options
| author | sisyphus <sisyphus1@optusnet.com.au> | 2018-08-01 22:33:38 +1000 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2018-08-09 11:27:35 -0600 |
| commit | ce6f496d720f6206455628425320badd95b07372 (patch) | |
| tree | 5e75aeff30de41a8f6ec48d02af97410dae86157 /embed.h | |
| parent | c7ea9f039c0e7c2333adfcb3b9f1e3f2b25693a1 (diff) | |
| download | perl-ce6f496d720f6206455628425320badd95b07372.tar.gz | |
PATCH: [perl #41202] text->float gives wrong answer
This changes to use Perl_strtod() when available, and that turns out to
be the key to fixing this bug.
S_mulexp10() is removed from embed.fnc to avoid repeating the
complicated prerequisites for defining Perl_strtod(). This works
because this static function already was defined before use in
numeric.c, and always called in full form without using a macro.
James Keenan fixed a file permissions problem originally introduced by
this commit, but the fix has been squashed into it.
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 5 |
1 files changed, 0 insertions, 5 deletions
@@ -1653,11 +1653,6 @@ #define utf16_textfilter(a,b,c) S_utf16_textfilter(aTHX_ a,b,c) # endif # endif -# if !defined(USE_QUADMATH) -# if defined(PERL_IN_NUMERIC_C) -#define mulexp10 S_mulexp10 -# endif -# endif # if !defined(UV_IS_QUAD) # if defined(PERL_IN_UTF8_C) #define is_utf8_cp_above_31_bits S_is_utf8_cp_above_31_bits |