From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 8 Jan 2007 09:26:01 +0000 (+0000)
Subject: Silence casting warnings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=647f639ff8a9df78122c041a3971917f8df7aa30;p=p5sagit%2Fp5-mst-13.2.git

Silence casting warnings

p4raw-id: //depot/perl@29716
---

diff --git a/regcomp.c b/regcomp.c
index e26621d..8772237 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -8154,7 +8154,7 @@ Perl_regprop(pTHX_ const regexp *prog, SV *sv, const regnode *o)
 	/* print the details of the trie in dumpuntil instead, as
 	 * progi->data isn't available here */
         const char op = OP(o);
-        const I32 n = ARG(o);
+        const U32 n = ARG(o);
         const reg_ac_data * const ac = IS_TRIE_AC(op) ?
                (reg_ac_data *)progi->data->data[n] :
                NULL;
@@ -9098,7 +9098,7 @@ S_dumpuntil(pTHX_ const regexp *r, const regnode *start, const regnode *node,
 	else if ( PL_regkind[(U8)op]  == TRIE ) {
 	    const regnode *this_trie = node;
 	    const char op = OP(node);
-            const I32 n = ARG(node);
+            const U32 n = ARG(node);
 	    const reg_ac_data * const ac = op>=AHOCORASICK ?
                (reg_ac_data *)ri->data->data[n] :
                NULL;