Three variables in S_scan_trans only hold flags for op_private, so can

be U8.

p4raw-id: //depot/perl@33437

diff --git a/toke.c b/toke.c
index 72a37c4..431938f 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -11074,9 +11074,9 @@ S_scan_trans(pTHX_ char *start)
     register char* s;
     OP *o;
     short *tbl;
-    I32 squash;
-    I32 del;
-    I32 complement;
+    U8 squash;
+    U8 del;
+    U8 complement;
 #ifdef PERL_MAD
     char *modstart;
 #endif