diff options
| author | Daniel Dragan <bulk88@hotmail.com> | 2014-10-31 03:23:17 -0400 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-10-31 12:37:08 -0700 |
| commit | eacbb37937698a035d5ed63fcbdf15dd4eab56cf (patch) | |
| tree | 99f7dc0cbedf55df1391d054c456f5d2b52a3ae9 /sv.h | |
| parent | 699ed31ec604580b23b25fc7a7fb44b59c92cbc6 (diff) | |
| download | perl-eacbb37937698a035d5ed63fcbdf15dd4eab56cf.tar.gz | |
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].
Diffstat (limited to 'sv.h')
| -rw-r--r-- | sv.h | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -592,7 +592,10 @@ typedef U32 cv_flags_t; HEK * xcv_hek; \ } xcv_gv_u; \ char * xcv_file; \ - PADLIST * xcv_padlist; \ + union { \ + PADLIST * xcv_padlist; \ + void * xcv_reserved; \ + } xcv_padlist_u; \ CV * xcv_outside; \ U32 xcv_outside_seq; /* the COP sequence (at the point of our \ * compilation) in the lexically enclosing \ |