diff options
| -rw-r--r-- | ext/B/B.xs | 2 | ||||
| -rw-r--r-- | perly.c | 2 | ||||
| -rw-r--r-- | regexec.c | 2 | ||||
| -rw-r--r-- | util.c | 2 | ||||
| -rw-r--r-- | win32/win32.c | 3 |
5 files changed, 5 insertions, 6 deletions
diff --git a/ext/B/B.xs b/ext/B/B.xs index a782d68963..4502782605 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 @@ -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); @@ -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); @@ -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 562dc0bcd8..e2c553b27f 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 */ |