From: Steve Hay 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 */