projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
ef39d02
)
Another warning-silencing cast
author
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Tue, 12 Sep 2006 07:22:40 +0000
(07:22 +0000)
committer
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Tue, 12 Sep 2006 07:22:40 +0000
(07:22 +0000)
p4raw-id: //depot/perl@28822
regcomp.c
patch
|
blob
|
history
diff --git
a/regcomp.c
b/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)) {