From 647f639ff8a9df78122c041a3971917f8df7aa30 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Mon, 8 Jan 2007 09:26:01 +0000 Subject: [PATCH] Silence casting warnings p4raw-id: //depot/perl@29716 --- regcomp.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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; -- 2.7.4