This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Another warning-silencing cast
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 12 Sep 2006 07:22:40 +0000 (07:22 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 12 Sep 2006 07:22:40 +0000 (07:22 +0000)
p4raw-id: //depot/perl@28822

regcomp.c

index d70c8e9..2c2064b 100644 (file)
--- 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)) {