This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
embed.fnc: Mark cx_dup as Core only
authorKarl Williamson <khw@cpan.org>
Wed, 22 Jul 2020 11:19:41 +0000 (05:19 -0600)
committerKarl Williamson <khw@cpan.org>
Sun, 20 Dec 2020 16:28:07 +0000 (09:28 -0700)
Similar cx functions are supposed to be called with a macro for their
functionality, but no such macro exists for this, and there are no uses
on CPAN

embed.fnc

index c66a280..9717cbf 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -2744,7 +2744,7 @@ p |CV*    |newSTUB        |NN GV *gv|bool fake
 : Used in perly.y
 p      |OP *   |my_attrs       |NN OP *o|NULLOK OP *attrs
 #if defined(USE_ITHREADS)
-ApR    |PERL_CONTEXT*|cx_dup   |NULLOK PERL_CONTEXT* cx|I32 ix|I32 max|NN CLONE_PARAMS* param
+CpR    |PERL_CONTEXT*|cx_dup   |NULLOK PERL_CONTEXT* cx|I32 ix|I32 max|NN CLONE_PARAMS* param
 ApR    |PERL_SI*|si_dup        |NULLOK PERL_SI* si|NN CLONE_PARAMS* param
 ApR    |ANY*   |ss_dup         |NN PerlInterpreter* proto_perl|NN CLONE_PARAMS* param
 ApR    |void*  |any_dup        |NULLOK void* v|NN const PerlInterpreter* proto_perl