X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/ac2170572dc0ca66736a1b979605ad983a4909a3..33f29a4cec504672835fd47a5b11657983d0209e:/opcode.h

diff --git a/opcode.h b/opcode.h
index 0d28351..540dc0b 100644
--- a/opcode.h
+++ b/opcode.h
@@ -522,6 +522,9 @@ EXTCONST char* const PL_op_name[] = {
 	"runcv",
 	"fc",
 	"padcv",
+	"introcv",
+	"clonecv",
+	"padrange",
 	"freed",
 };
 #endif
@@ -904,6 +907,9 @@ EXTCONST char* const PL_op_desc[] = {
 	"__SUB__",
 	"fc",
 	"private subroutine",
+	"private subroutine",
+	"private subroutine",
+	"list of private variables",
 	"freed op",
 };
 #endif
@@ -1300,6 +1306,9 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */
 	Perl_pp_runcv,
 	Perl_pp_fc,
 	Perl_pp_padcv,
+	Perl_pp_introcv,
+	Perl_pp_clonecv,
+	Perl_pp_padrange,
 }
 #endif
 #ifdef PERL_PPADDR_INITED
@@ -1692,6 +1701,9 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */
 	Perl_ck_null,		/* runcv */
 	Perl_ck_fun,		/* fc */
 	Perl_ck_null,		/* padcv */
+	Perl_ck_null,		/* introcv */
+	Perl_ck_null,		/* clonecv */
+	Perl_ck_null,		/* padrange */
 }
 #endif
 #ifdef PERL_CHECK_INITED
@@ -2078,6 +2090,9 @@ EXTCONST U32 PL_opargs[] = {
 	0x00000004,	/* runcv */
 	0x00009b8e,	/* fc */
 	0x00000040,	/* padcv */
+	0x00000040,	/* introcv */
+	0x00000040,	/* clonecv */
+	0x00000040,	/* padrange */
 };
 #endif