diff options
| author | Steve Peters <steve@fisharerojo.org> | 2007-09-20 14:00:07 +0000 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2007-09-20 14:00:07 +0000 |
| commit | a75fcbca710241c84d9f5fe49b90116e47f9de43 (patch) | |
| tree | 500d93db14decd1b6a08d18208cb3774ff4ae81a /ext | |
| parent | 9e5a0ef9e3b384b74d165fbf84bdd9d6d3f8d6dc (diff) | |
| download | perl-a75fcbca710241c84d9f5fe49b90116e47f9de43.tar.gz | |
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
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/XS/APItest/APItest.xs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/XS/APItest/APItest.xs b/ext/XS/APItest/APItest.xs index 2b14e5d9e9..5ea6f4f060 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; } |