diff options
| author | Karl Williamson <khw@cpan.org> | 2018-04-30 11:48:46 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2018-06-25 07:33:26 -0600 |
| commit | 808ea3ad2891b03a3f9c239b9b99d56b4765d765 (patch) | |
| tree | 560b4520dce2090669af1f1a3e0272b90970294c /proto.h | |
| parent | d361a1e6288b3e67fba6cb9f5cdac3737a1e3795 (diff) | |
| download | perl-808ea3ad2891b03a3f9c239b9b99d56b4765d765.tar.gz | |
embed.fnc: Fix my_atof2() entry
This was using the incorrect formal parameter name. It did not generate
an error because the function declares a variable with the incorrect
name, so that this was actually asserting on the wrong thing.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2217,9 +2217,9 @@ PERL_CALLCONV SV* Perl_multideref_stringify(pTHX_ const OP* o, CV *cv); PERL_CALLCONV NV Perl_my_atof(pTHX_ const char *s); #define PERL_ARGS_ASSERT_MY_ATOF \ assert(s) -PERL_CALLCONV char* Perl_my_atof2(pTHX_ const char *s, NV* value); +PERL_CALLCONV char* Perl_my_atof2(pTHX_ const char *orig, NV* value); #define PERL_ARGS_ASSERT_MY_ATOF2 \ - assert(s); assert(value) + assert(orig); assert(value) PERL_CALLCONV OP * Perl_my_attrs(pTHX_ OP *o, OP *attrs); #define PERL_ARGS_ASSERT_MY_ATTRS \ assert(o) |