This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add two (U8 *) casts to placate C++.
authorNicholas Clark <nick@ccl4.org>
Mon, 19 Oct 2009 10:04:54 +0000 (11:04 +0100)
committerNicholas Clark <nick@ccl4.org>
Mon, 19 Oct 2009 10:04:54 +0000 (11:04 +0100)
ext/XS-APItest/APItest.xs

index 4eac4a6..18d6752 100644 (file)
@@ -912,9 +912,9 @@ utf16_to_utf8 (sv, ...)
        /* Mortalise this right now, as we'll be testing croak()s  */
        dest = sv_2mortal(newSV(len * 3 / 2 + 1));
        if (ix) {
-           utf16_to_utf8_reversed(source, SvPVX(dest), len, &got);
+           utf16_to_utf8_reversed(source, (U8 *)SvPVX(dest), len, &got);
        } else {
-           utf16_to_utf8(source, SvPVX(dest), len, &got);
+           utf16_to_utf8(source, (U8 *)SvPVX(dest), len, &got);
        }
        SvCUR_set(dest, got);
        SvPVX(dest)[got] = '\0';