From a75fcbca710241c84d9f5fe49b90116e47f9de43 Mon Sep 17 00:00:00 2001 From: Steve Peters Date: Thu, 20 Sep 2007 14:00:07 +0000 Subject: [PATCH] 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 --- ext/XS/APItest/APItest.xs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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; } -- 2.7.4