This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
embed.fnc: Fix my_atof2() entry
authorKarl Williamson <khw@cpan.org>
Mon, 30 Apr 2018 17:48:46 +0000 (11:48 -0600)
committerKarl Williamson <khw@cpan.org>
Mon, 25 Jun 2018 13:33:26 +0000 (07:33 -0600)
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.

embed.fnc
proto.h

index 454a380..810bc93 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -2909,7 +2909,7 @@ Apd       |char*  |sv_pvn_force_flags|NN SV *const sv|NULLOK STRLEN *const lp|const I32
 Apmb   |void   |sv_copypv      |NN SV *const dsv|NN SV *const ssv
 Apmd   |void   |sv_copypv_nomg |NN SV *const dsv|NN SV *const ssv
 Apd    |void   |sv_copypv_flags        |NN SV *const dsv|NN SV *const ssv|const I32 flags
-Ap     |char*  |my_atof2       |NN const char *s|NN NV* value
+Ap     |char*  |my_atof2       |NN const char *orig|NN NV* value
 Apn    |int    |my_socketpair  |int family|int type|int protocol|int fd[2]
 Apn    |int    |my_dirfd       |NULLOK DIR* dir
 #ifdef PERL_ANY_COW
diff --git a/proto.h b/proto.h
index c91141b..818acd9 100644 (file)
--- 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)