From: Steve Hay <SteveHay@planit.com>
Date: Fri, 5 Jan 2007 09:45:08 +0000 (+0000)
Subject: Silence various VC6 warnings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=85c508c327bae6947de518a0ae05de3f08986372;p=p5sagit%2Fp5-mst-13.2.git

Silence various VC6 warnings

p4raw-id: //depot/perl@29692
---

diff --git a/ext/B/B.xs b/ext/B/B.xs
index a782d68..4502782 100644
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -1504,7 +1504,7 @@ I32
 BmUSEFUL(sv)
 	B::BM	sv
 
-U16
+U32
 BmPREVIOUS(sv)
 	B::BM	sv
 
diff --git a/perly.c b/perly.c
index 112930e..4505475 100644
--- a/perly.c
+++ b/perly.c
@@ -375,7 +375,7 @@ Perl_yyparse (pTHX)
 	/* grow the stack? We always leave 1 spare slot,
 	 * in case of a '' -> 'foo' reduction */
 
-	if (size >= parser->stack_size - 1) {
+	if (size >= (size_t)parser->stack_size - 1) {
 	    /* this will croak on insufficient memory */
 	    parser->stack_size *= 2;
 	    Renew(parser->stack, parser->stack_size, yy_stack_frame);
diff --git a/regexec.c b/regexec.c
index 8c6226f..50b1c35 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) == (U8)SvCUR(check) - 1)
+		 && (BmPREVIOUS(check) == SvCUR(check) - 1)
 		 && SvTAIL(check) ))
 	    s = screaminstr(sv, check,
 			    srch_start_shift + (s - strbeg), srch_end_shift, pp, 0);
diff --git a/util.c b/util.c
index 360ec28..6959522 100644
--- a/util.c
+++ b/util.c
@@ -769,7 +769,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) == (U8)SvCUR(littlestr) - 1) {
+	     && BmPREVIOUS(littlestr) == SvCUR(littlestr) - 1) {
 	    little = (const unsigned char *)(SvPVX_const(littlestr));
 	    littleend = little + SvCUR(littlestr);
 	    first = *little++;
diff --git a/win32/win32.c b/win32/win32.c
index 562dc0b..e2c553b 100644
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -1304,7 +1304,6 @@ DllExport int
 win32_kill(int pid, int sig)
 {
     dTHX;
-    HANDLE hProcess;
     long child;
 #ifdef USE_ITHREADS
     if (pid < 0) {
@@ -1312,7 +1311,7 @@ win32_kill(int pid, int sig)
 	child = find_pseudo_pid(-pid);
 	if (child >= 0) {
             HWND hwnd = w32_pseudo_child_message_hwnds[child];
-	    hProcess = w32_pseudo_child_handles[child];
+	    HANDLE hProcess = w32_pseudo_child_handles[child];
 	    switch (sig) {
 	    case 0:
 		/* "Does process exist?" use of kill */