X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/89474f50ca76e8039d27bebe650de4addd0f1607..01b177dd63d5af564295bfad8caa237a94d53af7:/regen/opcodes?ds=sidebyside

diff --git a/regen/opcodes b/regen/opcodes
index 5b988a1..84d9792 100644
--- a/regen/opcodes
+++ b/regen/opcodes
@@ -103,9 +103,9 @@ schop		scalar chop		ck_null		stu%	S?
 chomp		chomp			ck_spair	mTs%	L
 schomp		scalar chomp		ck_null		sTu%	S?
 defined		defined operator	ck_defined	isu%	S?
-undef		undef operator		ck_lfun		s%	S?
+undef		undef operator		ck_fun		s%	R?
 study		study			ck_fun		su%	S?
-pos		match position		ck_lfun		stu%	S?
+pos		match position		ck_fun		stu%	R?
 
 preinc		preincrement (++)		ck_lfun		dIs1	S
 i_preinc	integer preincrement (++)	ck_lfun		dis1	S
@@ -126,7 +126,7 @@ divide		division (/)		ck_null		IfsT2	S S
 i_divide	integer division (/)	ck_null		ifsT2	S S
 modulo		modulus (%)		ck_null		IifsT2	S S
 i_modulo	integer modulus (%)	ck_null		ifsT2	S S
-repeat		repeat (x)		ck_repeat	mt2	L S
+repeat		repeat (x)		ck_repeat	fmt2	L S
 
 add		addition (+)		ck_null		IfsT2	S S
 i_add		integer addition (+)	ck_null		ifsT2	S S
@@ -192,14 +192,14 @@ abs		abs			ck_fun		fsTu%	S?
 
 # String stuff.
 
-length		length			ck_fun		ifsTu%	S?
+length		length			ck_length	ifsTu%	S?
 substr		substr			ck_substr	st@	S S S? S?
 vec		vec			ck_fun		ist@	S S S
 
 index		index			ck_index	isT@	S S S?
 rindex		rindex			ck_index	isT@	S S S?
 
-sprintf		sprintf			ck_fun		fmst@	S L
+sprintf		sprintf			ck_lfun		fmst@	S L
 formline	formline		ck_fun		ms@	S L
 ord		ord			ck_fun		ifsTu%	S?
 chr		chr			ck_fun		fsTu%	S?
@@ -217,6 +217,7 @@ aelemfast	constant array element	ck_null		s$	A S
 aelemfast_lex	constant lexical array element	ck_null		d0	A S
 aelem		array element		ck_null		s2	A S
 aslice		array slice		ck_null		m@	A L
+kvaslice	index/value array slice	ck_null		m@	A L
 
 aeach		each on array		ck_each		%	A
 akeys		keys on array		ck_each		t%	A
@@ -232,12 +233,12 @@ exists		exists			ck_exists	is%	S
 rv2hv		hash dereference	ck_rvconst	dt1	
 helem		hash element		ck_null		s2	H S
 hslice		hash slice		ck_null		m@	H L
-boolkeys	boolkeys		ck_fun		%	H
+kvhslice	key/value hash slice	ck_null		m@	H L
 
 # Explosives and implosives.
 
 unpack		unpack			ck_fun		u@	S S?
-pack		pack			ck_fun		mst@	S L
+pack		pack			ck_fun		fmst@	S L
 split		split			ck_split	t@	S S S
 join		join or string		ck_join		mst@	S L
 
@@ -349,8 +350,8 @@ sysread		sysread			ck_fun		imst@	F R S S?
 syswrite	syswrite		ck_fun		imst@	F S S? S?
 
 eof		eof			ck_eof		is%	F?
-tell		tell			ck_fun		st%	F?
-seek		seek			ck_fun		s@	F S S
+tell		tell			ck_tell		st%	F?
+seek		seek			ck_tell		s@	F S S
 # truncate really behaves as if it had both "S S" and "F S"
 truncate	truncate		ck_trunc	is@	S S
 
@@ -413,7 +414,7 @@ ftbinary	-B			ck_ftst		isu-	F-
 # File calls.
 
 # chdir really behaves as if it had both "S?" and "F?"
-chdir		chdir			ck_chdir	isT%	S?
+chdir		chdir			ck_trunc	isT%	S?
 chown		chown			ck_fun		imsT@	L
 chroot		chroot			ck_fun		isTu%	S?
 unlink		unlink			ck_fun		imsTu@	L
@@ -483,9 +484,8 @@ semctl		semctl			ck_fun		imst@	S S S S
 require		require			ck_require	du%	S?
 dofile		do "file"		ck_fun		d1	S
 hintseval	eval hints		ck_svconst	s$
-entereval	eval "string"		ck_eval		d%	S
+entereval	eval "string"		ck_eval		du%	S?
 leaveeval	eval "string" exit	ck_null		1	S
-#evalonce	eval constant string	ck_null		d1	S
 entertry	eval {block}		ck_eval		d|	
 leavetry	eval {block} exit	ck_null		@	
 
@@ -543,3 +543,13 @@ rvalues		values on reference			ck_each		t%	S
 
 # For CORE:: subs
 coreargs	CORE:: subroutine	ck_null		$	
+
+runcv		__SUB__			ck_null		s0
+
+# fc and \F
+fc		fc			ck_fun		fstu%	S?
+
+padcv		private subroutine	ck_null		d0
+introcv		private subroutine	ck_null		d0
+clonecv		private subroutine	ck_null		d0
+padrange	list of private variables	ck_null		d0