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.pl | |
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.pl')
-rwxr-xr-x | opcode.pl | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -301,6 +301,8 @@ sub tab { __END__ +# New ops always go at the very end + # Nothing. null null operation ck_null 0 @@ -559,6 +561,7 @@ redo redo ck_null ds} dump dump ck_null ds} goto goto ck_null ds} exit exit ck_fun ds% S? +# continued below #nswitch numeric switch ck_null d #cswitch character switch ck_null d @@ -775,3 +778,6 @@ syscall syscall ck_fun imst@ S L # For multi-threading lock lock ck_rfun s% S threadsv per-thread variable ck_null ds0 + +# Control (contd.) +setstate set statement info ck_null 0 |