From: Robin Barker <RMBarker@cpan.org>
Date: Tue, 7 May 2002 16:13:34 +0000 (+0100)
Subject: avoid compiler casting warnings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=92be5a503bdaca4f410bc778516069dd10073d6b;p=p5sagit%2Fp5-mst-13.2.git

avoid compiler casting warnings
Message-Id: <200205071513.QAA05846@tempest.npl.co.uk>

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

diff --git a/ext/Encode/Encode.xs b/ext/Encode/Encode.xs
index dc2ab42..28115bc 100644
--- a/ext/Encode/Encode.xs
+++ b/ext/Encode/Encode.xs
@@ -172,14 +172,14 @@ encode_method(pTHX_ encode_t * enc, encpage_t * dir, SV * src,
 	    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;