diff options
| author | Karl Williamson <khw@cpan.org> | 2015-09-12 07:19:03 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2015-09-12 07:25:32 -0600 |
| commit | 81324705f2c7c0ac0a06058ac1d066fe9339354a (patch) | |
| tree | 80d1f78551dd024486810cb351066c7f7432792e | |
| parent | 9095739bdb624eca1b16fcf28868f4859c96d49b (diff) | |
| download | perl-81324705f2c7c0ac0a06058ac1d066fe9339354a.tar.gz | |
toke.c: Silence some compiler warnings
These were spotted by Daniel Dragan on Win32.
| -rw-r--r-- | toke.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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" |