diff options
| author | Hugo van der Sanden <hv@crypt.org> | 1999-06-23 18:27:42 +0100 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-23 17:24:42 +0000 |
| commit | 7399586d384137f7ae66bcc82a83b0df7dd429e5 (patch) | |
| tree | 0614d50805aadb4a38255926340fe1c5a3bdeff8 /opcode.h | |
| parent | 59af01353dbbede40ae5b5d1b0330b847ffb82dc (diff) | |
| download | perl-7399586d384137f7ae66bcc82a83b0df7dd429e5.tar.gz | |
applied suggested patch for tracking line numbers correctly in
optimized blocks with a single statement; changed setcop to
setstate and added code for -Dx dumps
Message-Id: <199906231627.RAA24033@crypt.compulink.co.uk>
Subject: [PATCH 5.005_57] Line number error in optimised else()
p4raw-id: //depot/perl@3728
Diffstat (limited to 'opcode.h')
| -rw-r--r-- | opcode.h | 8 |
1 files changed, 7 insertions, 1 deletions
@@ -357,10 +357,11 @@ typedef enum { OP_SYSCALL, /* 345 */ OP_LOCK, /* 346 */ OP_THREADSV, /* 347 */ + OP_SETSTATE, /* 348 */ OP_max } opcode; -#define MAXO 348 +#define MAXO 349 START_EXTERN_C @@ -717,6 +718,7 @@ EXT char *PL_op_name[] = { "syscall", "lock", "threadsv", + "setstate", }; #endif @@ -1072,6 +1074,7 @@ EXT char *PL_op_desc[] = { "syscall", "lock", "per-thread variable", + "set statement info", }; #endif @@ -1432,6 +1435,7 @@ EXT OP * (CPERLscope(*PL_ppaddr)[])(pTHX) = { Perl_pp_syscall, Perl_pp_lock, Perl_pp_threadsv, + Perl_pp_setstate, }; #endif @@ -1787,6 +1791,7 @@ EXT OP * (CPERLscope(*PL_check)[]) (pTHX_ OP *op) = { Perl_ck_fun, /* syscall */ Perl_ck_rfun, /* lock */ Perl_ck_null, /* threadsv */ + Perl_ck_null, /* setstate */ }; #endif @@ -2142,6 +2147,7 @@ EXT U32 PL_opargs[] = { 0x0004281d, /* syscall */ 0x00003604, /* lock */ 0x00000044, /* threadsv */ + 0x00000000, /* setstate */ }; #endif |