From: Steve Peters <steve@fisharerojo.org>
Date: Thu, 20 Sep 2007 14:00:07 +0000 (+0000)
Subject: ext/XS/APITest/APITest.xs was suffering casting issues with g++
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a75fcbca710241c84d9f5fe49b90116e47f9de43;p=p5sagit%2Fp5-mst-13.2.git

ext/XS/APITest/APITest.xs was suffering casting issues with g++
as well after the addition of Perl_hv_common().

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

diff --git a/ext/XS/APItest/APItest.xs b/ext/XS/APItest/APItest.xs
index 2b14e5d..5ea6f4f 100644
--- a/ext/XS/APItest/APItest.xs
+++ b/ext/XS/APItest/APItest.xs
@@ -127,8 +127,8 @@ bitflip_key(pTHX_ IV action, SV *field) {
 		const char *const end = p + len;
 		while (p < end) {
 		    STRLEN len;
-		    UV chr = utf8_to_uvuni(p, &len);
-		    new_p = uvuni_to_utf8(new_p, chr ^ 32);
+		    UV chr = utf8_to_uvuni((U8 *)p, &len);
+		    new_p = (char *)uvuni_to_utf8((U8 *)new_p, chr ^ 32);
 		    p += len;
 		}
 		SvUTF8_on(newkey);
@@ -440,7 +440,7 @@ common(params)
 	if ((svp = hv_fetchs(params, "hash", 0)))
 	    action = SvUV(*svp);
 
-	result = hv_common(hv, keysv, key, klen, flags, action, val, hash);
+	result = (HE *)hv_common(hv, keysv, key, klen, flags, action, val, hash);
 	if (!result) {
 	    XSRETURN_EMPTY;
 	}