Change 14553 by jhi@alpha on 2002/02/04 22:27:11
Signedness mumblings from Tru64.
Affected files ...
.... //depot/perl/ext/Encode/Encode.xs#47 edit
Differences ...
==== //depot/perl/ext/Encode/Encode.xs#47 (text) ====
Index: perl/ext/Encode/Encode.xs
--- perl/ext/Encode/Encode.xs.~1~ Mon Feb 4 15:30:05 2002
+++ perl/ext/Encode/Encode.xs Mon Feb 4 15:30:05 2002
@@ -214,7 +214,7 @@
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 @@
(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 @@
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);
End of Patch.
