diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2010-11-02 20:18:15 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-11-02 21:32:33 -0700 |
| commit | 6342d5c50ab0a9493ebc0908c3a6ec88d18e183b (patch) | |
| tree | caeb2446493b1630b58b4192f7b6809ea1b0ced3 /opcode.h | |
| parent | 42b824d2b554088191c83ebebdc0d1598f5a4d9a (diff) | |
| download | perl-6342d5c50ab0a9493ebc0908c3a6ec88d18e183b.tar.gz | |
Add transr op type
for the upcoming y///r feature. There are not enough flag bits,
hence the extra type.
Diffstat (limited to 'opcode.h')
| -rw-r--r-- | opcode.h | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -402,6 +402,7 @@ EXTCONST char* const PL_op_name[] = { "reach", "rkeys", "rvalues", + "transr", }; #endif @@ -778,6 +779,7 @@ EXTCONST char* const PL_op_desc[] = { "each on reference", "keys on reference", "values on reference", + "transliteration (tr///)", }; #endif @@ -834,7 +836,7 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ Perl_pp_qr, Perl_pp_subst, Perl_pp_substcont, - Perl_pp_trans, + Perl_pp_trans, /* Perl_pp_trans */ Perl_pp_sassign, Perl_pp_aassign, Perl_pp_chop, @@ -1168,6 +1170,7 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ Perl_pp_rkeys, /* Perl_pp_reach */ Perl_pp_rkeys, Perl_pp_rkeys, /* Perl_pp_rvalues */ + Perl_pp_trans, /* Perl_pp_transr */ } #endif #ifdef PERL_PPADDR_INITED @@ -1555,6 +1558,7 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */ Perl_ck_each, /* reach */ Perl_ck_each, /* rkeys */ Perl_ck_each, /* rvalues */ + Perl_ck_match, /* transr */ } #endif #ifdef PERL_CHECK_INITED @@ -1936,6 +1940,7 @@ EXTCONST U32 PL_opargs[] = { 0x00001b00, /* reach */ 0x00001b08, /* rkeys */ 0x00001b08, /* rvalues */ + 0x00001804, /* transr */ }; #endif |