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.fnc | |
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.fnc')
-rw-r--r-- | embed.fnc | 6 |
1 files changed, 0 insertions, 6 deletions
@@ -2879,12 +2879,6 @@ pn |Malloc_t |mem_log_realloc |const UV n|const UV typesize|NN const char *type_ pn |Malloc_t |mem_log_free |Malloc_t oldalloc|NN const char *filename|const int linenumber|NN const char *funcname #endif -#if defined(PERL_IN_NUMERIC_C) -#ifndef USE_QUADMATH -sn |NV|mulexp10 |NV value|I32 exponent -#endif -#endif - #if defined(PERL_IN_UTF8_C) sR |HV * |new_msg_hv |NN const char * const message \ |U32 categories \ |