From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 4 Feb 2002 22:27:11 +0000 (+0000)
Subject: Signedness mumblings from Tru64.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9dbbe3891ce90facc5523d60b4d6ccb1aef29b75;p=p5sagit%2Fp5-mst-13.2.git

Signedness mumblings from Tru64.

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

diff --git a/ext/Encode/Encode.xs b/ext/Encode/Encode.xs
index 4dc16bb..52fee5a 100644
--- a/ext/Encode/Encode.xs
+++ b/ext/Encode/Encode.xs
@@ -214,7 +214,7 @@ PerlIOEncode_fill(pTHX_ PerlIO * f)
 	    if (use + SvCUR(e->dataSV) > e->base.bufsiz) {
 	       use = e->base.bufsiz - SvCUR(e->dataSV);
 	    }
-	    sv_catpvn(e->dataSV,ptr,use);
+	    sv_catpvn(e->dataSV,(char*)ptr,use);
 	}
 	else {
 	    /* Create a "dummy" SV to represent the available data from layer below */
@@ -255,7 +255,7 @@ PerlIOEncode_fill(pTHX_ PerlIO * f)
 	       (The copy is a pain - need a put-it-here option for decode.)
 	     */
 	    sv_setpvn(e->bufsv,s,len);
-	    e->base.ptr = e->base.buf = SvPVX(e->bufsv);
+	    e->base.ptr = e->base.buf = (U8*)SvPVX(e->bufsv);
 	    e->base.end = e->base.ptr + SvCUR(e->bufsv);
 	    PerlIOBase(f)->flags |= PERLIO_F_RDBUF;
 	    SvUTF8_on(e->bufsv);
@@ -348,7 +348,7 @@ PerlIOEncode_flush(pTHX_ PerlIO * f)
 		SAVETMPS;
 		str = sv_newmortal();
 		sv_upgrade(str, SVt_PV);
-		SvPVX(str) = e->base.ptr;
+		SvPVX(str) = (char*)e->base.ptr;
 		SvLEN(str) = 0;
 		SvCUR_set(str, e->base.end - e->base.ptr);
 		SvUTF8_on(str);