summaryrefslogtreecommitdiff
path: root/opcode.pl
diff options
context:
space:
mode:
authorHugo van der Sanden <hv@crypt.org>1999-06-23 18:27:42 +0100
committerGurusamy Sarathy <gsar@cpan.org>1999-07-23 17:24:42 +0000
commit7399586d384137f7ae66bcc82a83b0df7dd429e5 (patch)
tree0614d50805aadb4a38255926340fe1c5a3bdeff8 /opcode.pl
parent59af01353dbbede40ae5b5d1b0330b847ffb82dc (diff)
downloadperl-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-xopcode.pl6
1 files changed, 6 insertions, 0 deletions
diff --git a/opcode.pl b/opcode.pl
index 8f480d6ee0..4804554c7e 100755
--- a/opcode.pl
+++ b/opcode.pl
@@ -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