This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make toke.c:S_lop's x arg a U8 to match PL_expect
authorAndy Lester <andy@petdance.com>
Thu, 3 Nov 2016 10:54:36 +0000 (10:54 +0000)
committerDavid Mitchell <davem@iabyn.com>
Thu, 3 Nov 2016 10:54:36 +0000 (10:54 +0000)
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.

embed.fnc
proto.h
toke.c

index d6312dc..a83372f 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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;