free up CvPADLIST slot for XSUBs for future use

CvRESERVED is a placeholder, it will be replaced with a sentinal value
from future revised BOOTCHECK API.

CvPADLIST_set was helpful during development of this patch, so keep it
around for now.

PoisonPADLIST's magic value is from PERL_POISON 0xEF pattern. Some
PoisonPADLIST locations will get code from future BOOTCHECK API.

Make padlist_dup a NN function to avoid overhead of calling it for XSUBs
during closing.

Perl_cv_undef_flags's else if (CvISXSUB(&cvbody)) is to avoid whitespace
changes.

Filed as perl [#123059].

1 files changed, 1 insertions, 1 deletions

diff --git a/perl.c b/perl.c
index 5acd88368c..71ba0ff28c 100644
--- a/perl.c
+++ b/perl.c
@@ -2162,7 +2162,7 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
     PL_main_cv = PL_compcv = MUTABLE_CV(newSV_type(SVt_PVCV));
     CvUNIQUE_on(PL_compcv);
 
-    CvPADLIST(PL_compcv) = pad_new(0);
+    CvPADLIST_set(PL_compcv, pad_new(0));
 
     PL_isarev = newHV();