From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 4 Mar 2008 19:59:20 +0000 (+0000)
Subject: Three variables in S_scan_trans only hold flags for op_private, so can
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b84c11c86f265d1fdce77009906ee8b6bad88f6c;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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