X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=opcode.pl;h=fb3accc3078b1f30aaeddd0d118b1be3077910ea;hb=b851de6cd1cc79b5e8ed7db02ebd0a9769d34232;hp=a56593337264d7b2ddde7f85b5322ce6d2b8e1c9;hpb=08e6e932beedeeb539d33c0d190f4b39a4ce6d37;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/opcode.pl b/opcode.pl
index a565933..fb3accc 100755
--- a/opcode.pl
+++ b/opcode.pl
@@ -82,13 +82,13 @@ END
 # Emit function declarations.
 
 for (sort keys %ckname) {
-    print "OP *\t", &tab(3,$_),"_((OP* op));\n";
+    print "OP *\t", &tab(3,$_),"_((OP* o));\n";
 }
 
 print "\n";
 
 for (@ops) {
-    print "OP *\t", &tab(3, "pp_\L$_"), "_((void));\n";
+    print "OP *\t", &tab(3, "pp_\L$_"), "_((ARGSproto));\n";
 }
 
 # Emit ppcode switch array.
@@ -652,3 +652,6 @@ getlogin	getlogin		ck_null		st
 # Miscellaneous.
 
 syscall		syscall			ck_fun		imst	S L
+
+# For multi-threading
+lock		lock			ck_null		s	S