X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=opcode.pl;h=9271cdd4fc3776e59387ef66e86b43f23e50f9c3;hb=e52f39a2da9ded67c5b268b2013619140e55f0c6;hp=ce40acb831548a9e5cddf6470bdcc897959c28a4;hpb=c07a80fdfe3926b5eb0585b674aa5d1f57b32ade;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/opcode.pl b/opcode.pl
index ce40acb..9271cdd 100755
--- a/opcode.pl
+++ b/opcode.pl
@@ -114,9 +114,9 @@ END
 
 print <<END;
 #ifndef DOINIT
-EXT OP * (*check[])();
+EXT OP * (*check[]) _((OP *op));
 #else
-EXT OP * (*check[])() = {
+EXT OP * (*check[]) _((OP *op)) = {
 END
 
 for (@ops) {
@@ -452,7 +452,7 @@ binmode		binmode			ck_fun		s	F
 
 tie		tie			ck_fun		idms	R S L
 untie		untie			ck_fun		is	R
-tied		tied			ck_fun		st	R
+tied		tied			ck_fun		s	R
 dbmopen		dbmopen			ck_fun		is	H S S
 dbmclose	dbmclose		ck_fun		is	H
 
@@ -467,7 +467,7 @@ leavewrite	write exit		ck_null		0
 prtf		printf			ck_listiob	ims	F? L
 print		print			ck_listiob	ims	F? L
 
-sysopen		sysopen			ck_fun		st	F S S S?
+sysopen		sysopen			ck_fun		s	F S S S?
 sysread		sysread			ck_fun		imst	F R S S?
 syswrite	syswrite		ck_fun		imst	F S S S?
 
@@ -477,6 +477,7 @@ recv		recv			ck_fun		imst	F R S S
 eof		eof			ck_eof		is	F?
 tell		tell			ck_fun		st	F?
 seek		seek			ck_fun		s	F S S
+# truncate really behaves as if it had both "S S" and "F S"
 truncate	truncate		ck_trunc	is	S S
 
 fcntl		fcntl			ck_fun		st	F S S