This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Negatives as UVs: sign-extension intentional, add cast.
authorJarkko Hietaniemi <jhi@iki.fi>
Tue, 29 Jul 2014 00:55:31 +0000 (20:55 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 29 Jul 2014 01:24:02 +0000 (21:24 -0400)
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;