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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 */