In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/81324705f2c7c0ac0a06058ac1d066fe9339354a?hp=9095739bdb624eca1b16fcf28868f4859c96d49b>
- Log ----------------------------------------------------------------- commit 81324705f2c7c0ac0a06058ac1d066fe9339354a Author: Karl Williamson <[email protected]> Date: Sat Sep 12 07:19:03 2015 -0600 toke.c: Silence some compiler warnings These were spotted by Daniel Dragan on Win32. ----------------------------------------------------------------------- Summary of changes: toke.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/toke.c b/toke.c index 27e6650..3ee234c 100644 --- a/toke.c +++ b/toke.c @@ -3115,13 +3115,13 @@ S_scan_const(pTHX_ char *start) * equivalent */ if (has_utf8) { for (i = range_min; i <= range_max; i++) { - append_utf8_from_native_byte(LATIN1_TO_NATIVE(i), + append_utf8_from_native_byte(LATIN1_TO_NATIVE((U8) i), (U8 **) &d); } } else { for (i = range_min; i <= range_max; i++) { - *d++ = (char)LATIN1_TO_NATIVE(i); + *d++ = (char)LATIN1_TO_NATIVE((U8) i); } } } @@ -3134,7 +3134,7 @@ S_scan_const(pTHX_ char *start) if (has_utf8) { d += UTF8SKIP(d); for (i = range_min + 1; i <= range_max; i++) { - append_utf8_from_native_byte(i, (U8 **) &d); + append_utf8_from_native_byte((U8) i, (U8 **) &d); } } else { @@ -3657,7 +3657,7 @@ S_scan_const(pTHX_ char *start) str = SvPV_const(res, len); if (len > ((SvUTF8(res)) ? UTF8SKIP(str) - : 1)) + : 1U)) { yyerror(Perl_form(aTHX_ "%.*s must not be a named sequence" -- Perl5 Master Repository
