Change 16445 by jhi@alpha on 2002/05/07 14:14:28
Subject: [PATCH Encode.xs] avoid compiler casting warnings
From: Robin Barker <[EMAIL PROTECTED]>
Date: Tue, 7 May 2002 16:13:34 +0100 (BST)
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/ext/Encode/Encode.xs#86 edit
Differences ...
==== //depot/perl/ext/Encode/Encode.xs#86 (text) ====
Index: perl/ext/Encode/Encode.xs
--- perl/ext/Encode/Encode.xs#85~16344~ Thu May 2 07:02:51 2002
+++ perl/ext/Encode/Encode.xs Tue May 7 07:14:28 2002
@@ -172,14 +172,14 @@
else {
if (check & ENCODE_DIE_ON_ERR){
Perl_croak(aTHX_ ERR_DECODE_NOMAP,
- (UV)enc->name[0], (U8)s[slen]);
+ PTR2UV(enc->name[0]), (U8)s[slen]);
return &PL_sv_undef; /* never reaches but be safe */
}
if (check & ENCODE_WARN_ON_ERR){
Perl_warner(
aTHX_ packWARN(WARN_UTF8),
ERR_DECODE_NOMAP,
- (UV)enc->name[0], (U8)s[slen]);
+ PTR2UV(enc->name[0]), (U8)s[slen]);
}
if (check & ENCODE_RETURN_ON_ERR){
goto ENCODE_SET_SRC;
End of Patch.
