diff options
| author | H.Merijn Brand <h.m.brand@xs4all.nl> | 2000-09-14 20:53:30 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-09-14 17:40:35 +0000 |
| commit | 183a2d84c1f59ccc4c14106315b4806f773a1203 (patch) | |
| tree | 3b4c5836d31593835c6bfe7fbe0961d817ceae16 | |
| parent | f10e15646b76a57d224bd131f4c70a7a72147171 (diff) | |
| download | perl-183a2d84c1f59ccc4c14106315b4806f773a1203.tar.gz | |
Problems picked up by AIX cc.
Subject: Re: perl@7078 (patch included)
Message-Id: <20000914182304.7017.H.M.BRAND@hccnet.nl>
p4raw-id: //depot/perl@7080
| -rw-r--r-- | ext/Encode/Encode.xs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/ext/Encode/Encode.xs b/ext/Encode/Encode.xs index 5f4a77e6af..c09a01aae0 100644 --- a/ext/Encode/Encode.xs +++ b/ext/Encode/Encode.xs @@ -8,7 +8,7 @@ UNIMPLEMENTED(_encoded_utf8_to_bytes, I32) UNIMPLEMENTED(_encoded_bytes_to_utf8, I32) -void call_failure (SV *routine, U8* done, U8* dest, U8* orig); +void call_failure (SV *routine, U8* done, U8* dest, U8* orig) {} MODULE = Encode PACKAGE = Encode @@ -25,11 +25,11 @@ _bytes_to_utf8(sv, ...) RETVAL = _encoded_bytes_to_utf8(sv, SvPV_nolen(encoding)); else { STRLEN len; - U8* s = SvPV(sv, len); + U8* s = (U8*)SvPV(sv, len); U8* converted; converted = bytes_to_utf8(s, &len); /* This allocs */ - sv_setpvn(sv, converted, len); + sv_setpvn(sv, (char *)converted, len); SvUTF8_on(sv); /* XXX Should we? */ Safefree(converted); /* ... so free it */ RETVAL = len; @@ -51,12 +51,12 @@ _utf8_to_bytes(sv, ...) else { U8 *s; STRLEN len; - s = SvPV(sv, len); + s = (U8*)SvPV(sv, len); if (SvTRUE(check)) { /* Must do things the slow way */ U8 *dest; - U8 *src = savepv(s); /* We need a copy to pass to check() */ + U8 *src = (U8*)savepv((char *)s); /* We need a copy to pass to check() */ U8 *send = s + len; New(83, dest, len, U8); /* I think */ |