From 808ea3ad2891b03a3f9c239b9b99d56b4765d765 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Mon, 30 Apr 2018 11:48:46 -0600 Subject: 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. --- proto.h | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'proto.h') diff --git a/proto.h b/proto.h index c91141b9e8..818acd9941 100644 --- a/proto.h +++ b/proto.h @@ -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) -- cgit v1.2.1