X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/985213f2fede57896814a0d7f5d12b04cc05be5b..f6e46c4d409677cc231d5d772d21f912a6dc454a:/intrpvar.h

diff --git a/intrpvar.h b/intrpvar.h
index cc9e46e..94b7425 100644
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -292,12 +292,10 @@ The C variable which corresponds to Perl's $^W warning variable.
 */
 
 PERLVAR(I, dowarn,	U8)
-PERLVAR(I, sawampersand, bool)		/* must save all match strings */
+PERLVAR(I, sawampersand, U8)		/* must save all match strings */
 PERLVAR(I, unsafe,	bool)
 PERLVAR(I, exit_flags,	U8)		/* was exit() unexpected, etc. */
 
-PERLVARI(I, reginterp_cnt, I32,	 0)	/* Whether "Regexp" was interpolated. */
-
 PERLVAR(I, inplace,	char *)
 PERLVAR(I, e_script,	SV *)
 
@@ -445,8 +443,8 @@ PERLVARI(I, profiledata, U32 *,	NULL)	/* table of ops, counts */
 PERLVAR(I, compiling,	COP)		/* compiling/done executing marker */
 
 PERLVAR(I, compcv,	CV *)		/* currently compiling subroutine */
-PERLVAR(I, comppad,	AV *)		/* storage for lexically scoped temporaries */
-PERLVAR(I, comppad_name, AV *)		/* variable names for "my" variables */
+PERLVAR(I, comppad,	PAD *)		/* storage for lexically scoped temporaries */
+PERLVAR(I, comppad_name, PADNAMELIST *)	/* variable names for "my" variables */
 PERLVAR(I, comppad_name_fill,	I32)	/* last "introduced" variable offset */
 PERLVAR(I, comppad_name_floor,	I32)	/* start of vars in innermost block */
 
@@ -533,8 +531,6 @@ PERLVAR(I, debug,	VOL U32)	/* flags given to -D switch */
 /* Perl_Ibreakable_sub_generation_ptr was too long for VMS, hence "gen"  */
 PERLVARI(I, breakable_sub_gen, U32, 0)
 
-PERLVARI(I, amagic_generation, long, 0)
-
 #ifdef USE_LOCALE_COLLATE
 PERLVAR(I, collation_name, char *)	/* Name of current collation */
 PERLVAR(I, collxfrm_base, Size_t)	/* Basic overhead in *xfrm() */
@@ -615,9 +611,12 @@ PERLVAR(I, XPosixXDigit, SV *)
 
 PERLVAR(I, VertSpace,   SV *)
 
+PERLVAR(I, NonL1NonFinalFold,   SV *)
+
 /* utf8 character class swashes */
 PERLVAR(I, utf8_alnum,	SV *)
 PERLVAR(I, utf8_alpha,	SV *)
+PERLVAR(I, utf8_blank,	SV *)
 PERLVAR(I, utf8_space,	SV *)
 PERLVAR(I, utf8_graph,	SV *)
 PERLVAR(I, utf8_digit,	SV *)
@@ -627,13 +626,13 @@ PERLVAR(I, utf8_print,	SV *)
 PERLVAR(I, utf8_punct,	SV *)
 PERLVAR(I, utf8_xdigit,	SV *)
 PERLVAR(I, utf8_mark,	SV *)
-PERLVAR(I, utf8_X_begin, SV *)
+PERLVAR(I, utf8_X_regular_begin, SV *)
 PERLVAR(I, utf8_X_extend, SV *)
 PERLVAR(I, utf8_X_prepend, SV *)
-PERLVAR(I, utf8_X_non_hangul, SV *)
+PERLVAR(I, utf8_X_special_begin, SV *)
 PERLVAR(I, utf8_X_L,	SV *)
-PERLVAR(I, utf8_X_LV,	SV *)
 PERLVAR(I, utf8_X_LVT,	SV *)
+PERLVAR(I, utf8_X_RI,	SV *)
 PERLVAR(I, utf8_X_T,	SV *)
 PERLVAR(I, utf8_X_V,	SV *)
 PERLVAR(I, utf8_X_LV_LVT_V, SV *)
@@ -692,6 +691,9 @@ PERLVAR(I, regex_padav,   AV *)		/* All regex objects, indexed via the
 					   Entry 0 is an SV whose PV is a
 					   "packed" list of IVs listing
 					   the now-free slots in the array */
+PERLVAR(I, stashpad,    HV **)		/* for CopSTASH */
+PERLVARI(I, stashpadmax, PADOFFSET, 64)
+PERLVARI(I, stashpadix, PADOFFSET, 0)
 #endif
 
 #ifdef USE_REENTRANT_API
@@ -776,6 +778,7 @@ PERLVAR(I, custom_ops,	HV *)		/* custom op registrations */
 PERLVARI(I, globhook,	globhook_t, NULL)
 
 PERLVARI(I, glob_index,	int,	0)
+PERLVARI(I, padlist_generation, U32, 1)	/* id to identify padlist clones */
 PERLVAR(I, reentrant_retint, int)	/* Integer return value from reentrant functions */
 
 /* The last unconditional member of the interpreter structure when 5.10.0 was
@@ -808,17 +811,6 @@ PERLVARI(I, madskills,	bool,	FALSE)	/* preserve all syntactic info */
 PERLVARI(I, xmlfp,	PerlIO *, NULL)
 #endif
 
-#ifdef PL_OP_SLAB_ALLOC
-PERLVAR(I, OpPtr,	I32 **)
-PERLVARI(I, OpSpace,	I32,	0)
-PERLVAR(I, OpSlab,	I32 *)
-#endif
-
-#ifdef PERL_DEBUG_READONLY_OPS
-PERLVARI(I, slabs,	I32**,	NULL)	/* Array of slabs that have been allocated */
-PERLVARI(I, slab_count, U32,	0)	/* Size of the array */
-#endif
-
 #ifdef DEBUG_LEAKING_SCALARS
 PERLVARI(I, sv_serial,	U32,	0)	/* SV serial number, used in sv.c */
 #endif