This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl.h:MY_CXT_CLONE: void *, not void **
authorFather Chrysostomos <sprout@cpan.org>
Sun, 4 Jan 2015 02:53:29 +0000 (18:53 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 4 Jan 2015 02:53:29 +0000 (18:53 -0800)
C++ fails otherwise, and PL_my_cxt_list is void ** so individual
elephants (aka elements) should be void *.

perl.h

diff --git a/perl.h b/perl.h
index e35245f..2deb1d4 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -6156,7 +6156,7 @@ typedef struct am_table_short AMTS;
 /* Clones the per-interpreter data. */
 #  define MY_CXT_CLONE \
        my_cxt_t *my_cxtp = (my_cxt_t*)SvPVX(newSV(sizeof(my_cxt_t)-1));\
-       void ** old_my_cxtp = PL_my_cxt_list[MY_CXT_INDEX];             \
+       void * old_my_cxtp = PL_my_cxt_list[MY_CXT_INDEX];              \
        PL_my_cxt_list[MY_CXT_INDEX] = my_cxtp;                         \
        Copy(old_my_cxtp, my_cxtp, 1, my_cxt_t);