From: H.Merijn Brand <h.m.brand@xs4all.nl>
Date: Thu, 14 Dec 2000 14:49:34 +0000 (+0100)
Subject: [8104] Encode
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=62e8870c07ea83d1b2b02be413f0893b02fc554c;p=p5sagit%2Fp5-mst-13.2.git

[8104] Encode
Message-Id: <20001214142101.B338.H.M.BRAND@hccnet.nl>

Type casting for nervous compilers.

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

diff --git a/ext/Encode/Encode.xs b/ext/Encode/Encode.xs
index f8901bb..00c830a 100644
--- a/ext/Encode/Encode.xs
+++ b/ext/Encode/Encode.xs
@@ -102,7 +102,7 @@ PerlIOEncode_get_base(PerlIO *f)
    e->bufsv = newSV(e->base.bufsiz);
    sv_setpvn(e->bufsv,"",0);
   }
- e->base.buf = SvPVX(e->bufsv);
+ e->base.buf = (STDCHAR *)SvPVX(e->bufsv);
  if (!e->base.ptr)
   e->base.ptr = e->base.buf;
  if (!e->base.end)
@@ -117,7 +117,7 @@ PerlIOEncode_get_base(PerlIO *f)
   {
    SSize_t poff = e->base.ptr - e->base.buf;
    SSize_t eoff = e->base.end - e->base.buf;
-   e->base.buf  = SvGROW(e->bufsv,e->base.bufsiz);
+   e->base.buf  = (STDCHAR *)SvGROW(e->bufsv,e->base.bufsiz);
    e->base.ptr  = e->base.buf + poff;
    e->base.end  = e->base.buf + eoff;
   }
@@ -166,7 +166,7 @@ PerlIOEncode_fill(PerlIO *f)
    s = SvPVutf8(uni,len);
    if (s != SvPVX(e->bufsv))
     {
-     e->base.buf = SvGROW(e->bufsv,len);
+     e->base.buf = (STDCHAR *)SvGROW(e->bufsv,len);
      Move(s,e->base.buf,len,char);
      SvCUR_set(e->bufsv,len);
     }
@@ -217,7 +217,7 @@ PerlIOEncode_flush(PerlIO *f)
    s = SvPV(str,len);
    if (s != SvPVX(e->bufsv))
     {
-     e->base.buf = SvGROW(e->bufsv,len);
+     e->base.buf = (STDCHAR *)SvGROW(e->bufsv,len);
      Move(s,e->base.buf,len,char);
      SvCUR_set(e->bufsv,len);
     }