From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 19 Feb 2000 17:57:39 +0000 (+0000)
Subject: char vs U8 warnings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ce32ed4b46e58900e04971fb3189c48cd1fadbd1;p=p5sagit%2Fp5-mst-13.2.git

char vs U8 warnings

p4raw-id: //depot/perl@5155
---

diff --git a/sv.c b/sv.c
index 52bf820..7b52000 100644
--- a/sv.c
+++ b/sv.c
@@ -2327,7 +2327,7 @@ Perl_sv_utf8_downgrade(pTHX_ register SV* sv, bool fail_ok)
         while (c < SvEND(sv)) {
             if (*c & 0x80) {
                 I32 len;
-                UV uv = utf8_to_uv(c, &len);
+                UV uv = utf8_to_uv((U8*)c, &len);
                 if (uv >= 256) {
 		    if (fail_ok)
 			return FALSE;
@@ -2351,7 +2351,7 @@ Perl_sv_utf8_downgrade(pTHX_ register SV* sv, bool fail_ok)
             while (src < SvEND(sv)) {
                 if (*src & 0x80) {
                     I32 len;
-                    U8 u = (U8)utf8_to_uv(src, &len);
+                    U8 u = (U8)utf8_to_uv((U8*)src, &len);
                     *dst++ = u;
                     src += len;
                 }