Silence VC warnings about possible operator precedence problems

and signed/unsigned mismatches

p4raw-id: //depot/perl@29532

3 files changed, 5 insertions, 5 deletions

diff --git a/regexec.c b/regexec.c
index 746d915661..9ded51187d 100644
--- a/regexec.c
+++ b/regexec.c
@@ -514,7 +514,7 @@ Perl_re_intuit_start(pTHX_ regexp *prog, SV *sv, char *strpos,
 
 	if (PL_screamfirst[BmRARE(check)] >= 0
 	    || ( BmRARE(check) == '\n'
-		 && (BmPREVIOUS(check) == SvCUR(check) - 1)
+		 && (BmPREVIOUS(check) == (U8)SvCUR(check) - 1)
 		 && SvTAIL(check) ))
 	    s = screaminstr(sv, check,
 			    srch_start_shift + (s - strbeg), srch_end_shift, pp, 0);
diff --git a/sv.h b/sv.h
index 8849a3e045..5417759e4d 100644
--- a/sv.h
+++ b/sv.h
@@ -1353,10 +1353,10 @@ the scalar's value cannot change unless written to.
 
 #  define BmUSEFUL(sv)	((XPVBM*)  SvANY(sv))->xiv_u.xivu_i32
 #  define BmPREVIOUS(sv)						\
-    (*(U8*)(SvEND(sv) + PERL_FBM_TABLE_OFFSET				\
+    ((*(U8*)(SvEND(sv) + PERL_FBM_TABLE_OFFSET				\
 	   + PERL_FBM_PREVIOUS_H_OFFSET_FROM_TABLE) << 8)		\
-    | (*(U8*)(SvEND(sv) + PERL_FBM_TABLE_OFFSET				\
-	     + PERL_FBM_PREVIOUS_L_OFFSET_FROM_TABLE))			\
+	| (*(U8*)(SvEND(sv) + PERL_FBM_TABLE_OFFSET			\
+	   + PERL_FBM_PREVIOUS_L_OFFSET_FROM_TABLE)))			\
 
 #endif
 #define BmPREVIOUS_set(sv, val)						\
diff --git a/util.c b/util.c
index 9718c54516..3cd98c01bf 100644
--- a/util.c
+++ b/util.c
@@ -767,7 +767,7 @@ Perl_screaminstr(pTHX_ SV *bigstr, SV *littlestr, I32 start_shift, I32 end_shift
 	: (((pos = *old_posp), pos += PL_screamnext[pos]) == 0)) {
       cant_find:
 	if ( BmRARE(littlestr) == '\n'
-	     && BmPREVIOUS(littlestr) == SvCUR(littlestr) - 1) {
+	     && BmPREVIOUS(littlestr) == (U8)SvCUR(littlestr) - 1) {
 	    little = (const unsigned char *)(SvPVX_const(littlestr));
 	    littleend = little + SvCUR(littlestr);
 	    first = *little++;