From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 12 Sep 2006 07:22:40 +0000 (+0000)
Subject: Another warning-silencing cast
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f46cb337096cfda46c854c48504fd7ed3e250166;p=p5sagit%2Fp5-mst-13.2.git

Another warning-silencing cast

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

diff --git a/regcomp.c b/regcomp.c
index d70c8e9..2c2064b 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -7007,7 +7007,7 @@ Perl_regprop(pTHX_ const regexp *prog, SV *sv, const regnode *o)
         if ( IS_ANYOF_TRIE(op) || trie->bitmap ) {
             int i;
             int rangestart = -1;
-            U8* bitmap = IS_ANYOF_TRIE(op) ? ANYOF_BITMAP(o) : TRIE_BITMAP(trie);
+            U8* bitmap = IS_ANYOF_TRIE(op) ? (U8*)ANYOF_BITMAP(o) : (U8*)TRIE_BITMAP(trie);
             Perl_sv_catpvf(aTHX_ sv, "[");
             for (i = 0; i <= 256; i++) {
                 if (i < 256 && BITMAP_TEST(bitmap,i)) {