From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 14 Sep 2000 14:55:54 +0000 (+0000)
Subject: Compilation warnings and an error.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=00df9076cdf35146bc1b44c688065deb7ae6b3ae;p=p5sagit%2Fp5-mst-13.2.git

Compilation warnings and an error.

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

diff --git a/sv.c b/sv.c
index 2c45cae..6e332c5 100644
--- a/sv.c
+++ b/sv.c
@@ -2414,7 +2414,7 @@ Perl_sv_utf8_upgrade(pTHX_ register SV *sv)
 
     if (hicount) {
 	STRLEN len = SvCUR(sv) + 1; /* Plus the \0 */
-	SvPVX(sv) = bytes_to_utf8(s, &len);
+	SvPVX(sv) = (char*)bytes_to_utf8((U8*)s, &len);
 	SvCUR(sv) = len - 1;
 	Safefree(s); /* No longer using what was there before */
 	SvUTF8_on(sv);
@@ -2438,7 +2438,7 @@ Perl_sv_utf8_downgrade(pTHX_ register SV* sv, bool fail_ok)
     if (SvPOK(sv) && SvUTF8(sv)) {
         char *c = SvPVX(sv);
 	STRLEN len = SvCUR(sv);
-        if (!utf8_to_bytes(c, &len)) {
+        if (!utf8_to_bytes((U8*)c, &len)) {
 	    if (fail_ok)
 		return FALSE;
 	    else
@@ -2478,7 +2478,7 @@ Perl_sv_utf8_decode(pTHX_ register SV *sv)
          * we want to make sure everything inside is valid utf8 first.
          */
         c = SvPVX(sv);
-	if (!is_utf8_string(c,SvCUR(c)+1))
+	if (!is_utf8_string((U8*)c, SvCUR(sv)+1))
 	    return FALSE;
 
         while (c < SvEND(sv)) {