X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/84ed01088568ffe9cf49047f10500ca511db0c9e..3972af9b5a9bdbb7274475d476ce6bc8818d1964:/opcode.h

diff --git a/opcode.h b/opcode.h
index d747d9a..10dc22a 100644
--- a/opcode.h
+++ b/opcode.h
@@ -521,6 +521,7 @@ EXTCONST char* const PL_op_name[] = {
 	"rvalues",
 	"coreargs",
 	"runcv",
+	"fc",
 };
 #endif
 
@@ -901,6 +902,7 @@ EXTCONST char* const PL_op_desc[] = {
 	"values on reference",
 	"CORE:: subroutine",
 	"__SUB__",
+	"fc",
 };
 #endif
 
@@ -1295,6 +1297,7 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */
 	Perl_pp_rvalues,	/* implemented by Perl_pp_rkeys */
 	Perl_pp_coreargs,
 	Perl_pp_runcv,
+	Perl_pp_fc,
 }
 #endif
 #ifdef PERL_PPADDR_INITED
@@ -1357,9 +1360,9 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */
 	Perl_ck_spair,		/* chomp */
 	Perl_ck_null,		/* schomp */
 	Perl_ck_defined,	/* defined */
-	Perl_ck_lfun,		/* undef */
+	Perl_ck_fun,		/* undef */
 	Perl_ck_fun,		/* study */
-	Perl_ck_lfun,		/* pos */
+	Perl_ck_fun,		/* pos */
 	Perl_ck_lfun,		/* preinc */
 	Perl_ck_lfun,		/* i_preinc */
 	Perl_ck_lfun,		/* predec */
@@ -1430,7 +1433,7 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */
 	Perl_ck_fun,		/* vec */
 	Perl_ck_index,		/* index */
 	Perl_ck_index,		/* rindex */
-	Perl_ck_fun,		/* sprintf */
+	Perl_ck_lfun,		/* sprintf */
 	Perl_ck_fun,		/* formline */
 	Perl_ck_fun,		/* ord */
 	Perl_ck_fun,		/* chr */
@@ -1545,8 +1548,8 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */
 	Perl_ck_fun,		/* sysread */
 	Perl_ck_fun,		/* syswrite */
 	Perl_ck_eof,		/* eof */
-	Perl_ck_fun,		/* tell */
-	Perl_ck_fun,		/* seek */
+	Perl_ck_tell,		/* tell */
+	Perl_ck_tell,		/* seek */
 	Perl_ck_trunc,		/* truncate */
 	Perl_ck_fun,		/* fcntl */
 	Perl_ck_fun,		/* ioctl */
@@ -1593,7 +1596,7 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */
 	Perl_ck_ftst,		/* fttty */
 	Perl_ck_ftst,		/* fttext */
 	Perl_ck_ftst,		/* ftbinary */
-	Perl_ck_chdir,		/* chdir */
+	Perl_ck_trunc,		/* chdir */
 	Perl_ck_fun,		/* chown */
 	Perl_ck_fun,		/* chroot */
 	Perl_ck_fun,		/* unlink */
@@ -1686,6 +1689,7 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */
 	Perl_ck_each,		/* rvalues */
 	Perl_ck_null,		/* coreargs */
 	Perl_ck_null,		/* runcv */
+	Perl_ck_fun,		/* fc */
 }
 #endif
 #ifdef PERL_CHECK_INITED
@@ -1742,9 +1746,9 @@ EXTCONST U32 PL_opargs[] = {
 	0x00002b1d,	/* chomp */
 	0x00009b9c,	/* schomp */
 	0x00009b84,	/* defined */
-	0x00009b04,	/* undef */
+	0x0000fb04,	/* undef */
 	0x00009b84,	/* study */
-	0x00009b8c,	/* pos */
+	0x0000fb8c,	/* pos */
 	0x00001164,	/* preinc */
 	0x00001144,	/* i_preinc */
 	0x00001164,	/* predec */
@@ -1760,7 +1764,7 @@ EXTCONST U32 PL_opargs[] = {
 	0x0001121e,	/* i_divide */
 	0x0001123e,	/* modulo */
 	0x0001121e,	/* i_modulo */
-	0x00012209,	/* repeat */
+	0x0001220b,	/* repeat */
 	0x0001123e,	/* add */
 	0x0001121e,	/* i_add */
 	0x0001123e,	/* subtract */
@@ -1843,7 +1847,7 @@ EXTCONST U32 PL_opargs[] = {
 	0x00024401,	/* hslice */
 	0x00004b00,	/* boolkeys */
 	0x00091480,	/* unpack */
-	0x0002140d,	/* pack */
+	0x0002140f,	/* pack */
 	0x00111408,	/* split */
 	0x0002140d,	/* join */
 	0x00002401,	/* list */
@@ -2071,6 +2075,7 @@ EXTCONST U32 PL_opargs[] = {
 	0x00001b08,	/* rvalues */
 	0x00000600,	/* coreargs */
 	0x00000004,	/* runcv */
+	0x00009b8e,	/* fc */
 };
 #endif