This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
a5a49cb
)
Negatives as UVs: sign-extension intentional, add cast.
author
Jarkko Hietaniemi
<jhi@iki.fi>
Tue, 29 Jul 2014 00:55:31 +0000
(20:55 -0400)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Tue, 29 Jul 2014 01:24:02 +0000
(21:24 -0400)
regexec.c
patch
|
blob
|
blame
|
history
diff --git
a/regexec.c
b/regexec.c
index
58b3f60
..
3b4a889
100644
(file)
--- a/
regexec.c
+++ b/
regexec.c
@@
-3636,8
+3636,8
@@
S_setup_EXACTISH_ST_c1_c2(pTHX_ const regnode * const text_node, int *c1p,
const bool utf8_target = reginfo->is_utf8_target;
- UV c1 = CHRTEST_NOT_A_CP_1;
- UV c2 = CHRTEST_NOT_A_CP_2;
+ UV c1 =
(UV)
CHRTEST_NOT_A_CP_1;
+ UV c2 =
(UV)
CHRTEST_NOT_A_CP_2;
bool use_chrtest_void = FALSE;
const bool is_utf8_pat = reginfo->is_utf8_pat;