X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=opcode.pl;h=6e56a101421bf2665c529b6be8ccd55c4cfeea08;hb=11eeea96a679f7b20489fe2e2eab4958ef273d62;hp=56d8342a16fdbe693efc60a517bfc81c30d3d4b7;hpb=1a67a97c0300941ac67bfb1dd421467b8c59e21c;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/opcode.pl b/opcode.pl
index 56d8342..6e56a10 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	
@@ -481,7 +483,7 @@ aslice		array slice		ck_null		m@	A L
 
 # Hashes.
 
-each		each			ck_fun		t%	H
+each		each			ck_fun		%	H
 values		values			ck_fun		t%	H
 keys		keys			ck_fun		t%	H
 delete		delete			ck_delete	%	S
@@ -528,12 +530,12 @@ flop		range (or flop)		ck_null		1
 
 and		logical and		ck_null		|	
 or		logical or		ck_null		|	
-xor		logical xor		ck_null		fs|	S S	
+xor		logical xor		ck_null		fs2	S S	
 cond_expr	conditional expression	ck_null		d|	
 andassign	logical and assignment	ck_null		s|	
 orassign	logical or assignment	ck_null		s|	
 
-method		method lookup		ck_null		d1
+method		method lookup		ck_method	d1
 entersub	subroutine entry	ck_subr		dmt1	L
 leavesub	subroutine exit		ck_null		1	
 caller		caller			ck_fun		t%	S?
@@ -559,13 +561,14 @@ 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	
 
 # I/O.
 
-open		open			ck_fun		ist@	F S?
+open		open			ck_fun		ist@	F S? S?
 close		close			ck_fun		is%	F?
 pipe_op		pipe			ck_fun		is@	F F
 
@@ -775,3 +778,7 @@ 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		s;
+method_named	method with known name	ck_null		d$