In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/11288bb3e74d2953b4018f5548f558aa24f9888f?hp=0285a2509078d5299c24b8108feef4fec9232bf6>
- Log ----------------------------------------------------------------- commit 11288bb3e74d2953b4018f5548f558aa24f9888f Author: Andy Lester <[email protected]> Date: Thu Nov 3 10:54:36 2016 +0000 Make toke.c:S_lop's x arg a U8 to match PL_expect The second argument to S_lop() is an int, but it gets stored in PL_expect which is a U8. If we need a U8, then let's bring it into the function as a U8. ----------------------------------------------------------------------- Summary of changes: embed.fnc | 2 +- proto.h | 2 +- toke.c | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/embed.fnc b/embed.fnc index d6312dc..a83372f 100644 --- a/embed.fnc +++ b/embed.fnc @@ -2607,7 +2607,7 @@ s |void |force_ident_maybe_lex|char pit s |void |incline |NN const char *s s |int |intuit_method |NN char *s|NULLOK SV *ioname|NULLOK CV *cv s |int |intuit_more |NN char *s -s |I32 |lop |I32 f|int x|NN char *s +s |I32 |lop |I32 f|U8 x|NN char *s rs |void |missingterm |NULLOK char *s s |void |no_op |NN const char *const what|NULLOK char *s s |int |pending_ident diff --git a/proto.h b/proto.h index 6708016..2e6dbf2 100644 --- a/proto.h +++ b/proto.h @@ -5488,7 +5488,7 @@ STATIC int S_intuit_method(pTHX_ char *s, SV *ioname, CV *cv); STATIC int S_intuit_more(pTHX_ char *s); #define PERL_ARGS_ASSERT_INTUIT_MORE \ assert(s) -STATIC I32 S_lop(pTHX_ I32 f, int x, char *s); +STATIC I32 S_lop(pTHX_ I32 f, U8 x, char *s); #define PERL_ARGS_ASSERT_LOP \ assert(s) PERL_STATIC_NO_RET void S_missingterm(pTHX_ char *s) diff --git a/toke.c b/toke.c index ffac930..2495bc2 100644 --- a/toke.c +++ b/toke.c @@ -1890,7 +1890,7 @@ S_check_uni(pTHX) */ STATIC I32 -S_lop(pTHX_ I32 f, int x, char *s) +S_lop(pTHX_ I32 f, U8 x, char *s) { PERL_ARGS_ASSERT_LOP; -- Perl5 Master Repository
