diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-08-02 22:11:08 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-09-15 22:45:04 -0700 |
| commit | 13f89586fe60fad5f4be3e8b89d5e605a7552658 (patch) | |
| tree | 83bc7b0ad6e7e149f18bdc9ffeb99df55557259e /opcode.h | |
| parent | ecf9c8b78fdc5245e639ddb2830e8e43cda480b9 (diff) | |
| download | perl-13f89586fe60fad5f4be3e8b89d5e605a7552658.tar.gz | |
Add clonecv op type
This will be used for cloning a ‘my’ sub on scope entry.
I was going to use pp_padcv for this, but it would end up having a
top-level if/else.
Diffstat (limited to 'opcode.h')
| -rw-r--r-- | opcode.h | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -523,6 +523,7 @@ EXTCONST char* const PL_op_name[] = { "fc", "padcv", "introcv", + "clonecv", "freed", }; #endif @@ -906,6 +907,7 @@ EXTCONST char* const PL_op_desc[] = { "fc", "private subroutine", "private subroutine", + "private subroutine", "freed op", }; #endif @@ -1303,6 +1305,7 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ Perl_pp_fc, Perl_pp_padcv, Perl_pp_introcv, + Perl_pp_clonecv, } #endif #ifdef PERL_PPADDR_INITED @@ -1696,6 +1699,7 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */ Perl_ck_fun, /* fc */ Perl_ck_null, /* padcv */ Perl_ck_null, /* introcv */ + Perl_ck_null, /* clonecv */ } #endif #ifdef PERL_CHECK_INITED @@ -2083,6 +2087,7 @@ EXTCONST U32 PL_opargs[] = { 0x00009b8e, /* fc */ 0x00000040, /* padcv */ 0x00000040, /* introcv */ + 0x00000040, /* clonecv */ }; #endif |