diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-07-26 18:21:02 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-09-15 22:45:03 -0700 |
| commit | ecf9c8b78fdc5245e639ddb2830e8e43cda480b9 (patch) | |
| tree | d17ac0ac0b8d120a1e27b229acdd06111950fe1d /opcode.h | |
| parent | 10342479afca0484c66269733fcc2f4a1fbabbb7 (diff) | |
| download | perl-ecf9c8b78fdc5245e639ddb2830e8e43cda480b9.tar.gz | |
Add introcv op type
This will be used for introducing ‘my’ subs on scope entry, by turning
off the stale flag.
Diffstat (limited to 'opcode.h')
| -rw-r--r-- | opcode.h | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -522,6 +522,7 @@ EXTCONST char* const PL_op_name[] = { "runcv", "fc", "padcv", + "introcv", "freed", }; #endif @@ -904,6 +905,7 @@ EXTCONST char* const PL_op_desc[] = { "__SUB__", "fc", "private subroutine", + "private subroutine", "freed op", }; #endif @@ -1300,6 +1302,7 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ Perl_pp_runcv, Perl_pp_fc, Perl_pp_padcv, + Perl_pp_introcv, } #endif #ifdef PERL_PPADDR_INITED @@ -1692,6 +1695,7 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */ Perl_ck_null, /* runcv */ Perl_ck_fun, /* fc */ Perl_ck_null, /* padcv */ + Perl_ck_null, /* introcv */ } #endif #ifdef PERL_CHECK_INITED @@ -2078,6 +2082,7 @@ EXTCONST U32 PL_opargs[] = { 0x00000004, /* runcv */ 0x00009b8e, /* fc */ 0x00000040, /* padcv */ + 0x00000040, /* introcv */ }; #endif |