diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-05 22:07:18 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-05 22:07:18 +0000 |
| commit | cd06dffe59d60ee6a2fdd7c81f8cef42c7026b36 (patch) | |
| tree | bf5d5d4e9d1c11e7d63fd97ce74470e8bedc88d3 /opcode.h | |
| parent | a2126434f8dd8eabb11a2219137816815758ea93 (diff) | |
| download | perl-cd06dffe59d60ee6a2fdd7c81f8cef42c7026b36.tar.gz | |
initial implementation of lvalue subroutines (slightly fixed
version of patch suggested by Ilya Zakharevich, which in turn
is based on the one suggested by Tuomas J. Lukka <lukka@iki.fi>)
p4raw-id: //depot/perl@4081
Diffstat (limited to 'opcode.h')
| -rw-r--r-- | opcode.h | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -183,6 +183,7 @@ EXT char *PL_op_name[] = { "method", "entersub", "leavesub", + "leavesublv", "caller", "warn", "die", @@ -540,6 +541,7 @@ EXT char *PL_op_desc[] = { "method lookup", "subroutine entry", "subroutine exit", + "lvalue subroutine exit", "caller", "warn", "die", @@ -902,6 +904,7 @@ EXT OP * (CPERLscope(*PL_ppaddr)[])(pTHX) = { Perl_pp_method, Perl_pp_entersub, Perl_pp_leavesub, + Perl_pp_leavesublv, Perl_pp_caller, Perl_pp_warn, Perl_pp_die, @@ -1259,6 +1262,7 @@ EXT OP * (CPERLscope(*PL_check)[]) (pTHX_ OP *op) = { Perl_ck_method, /* method */ Perl_ck_subr, /* entersub */ Perl_ck_null, /* leavesub */ + Perl_ck_null, /* leavesublv */ Perl_ck_fun, /* caller */ Perl_ck_fun, /* warn */ Perl_ck_fun, /* die */ @@ -1616,6 +1620,7 @@ EXT U32 PL_opargs[] = { 0x00000240, /* method */ 0x00004249, /* entersub */ 0x00000200, /* leavesub */ + 0x00000200, /* leavesublv */ 0x00013608, /* caller */ 0x0000481d, /* warn */ 0x0000485d, /* die */ |