X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/35ade292f2ece2926aa263efd6269babc55a7f74..6b29d1f5fb68d0a6bdb42e4e05f5a784ded55e44:/thrdvar.h

diff --git a/thrdvar.h b/thrdvar.h
index 5db1a33..e74f67a 100644
--- a/thrdvar.h
+++ b/thrdvar.h
@@ -86,7 +86,6 @@ PERLVAR(Ttimesbuf,	struct tms)
 /* Fields used by magic variables such as $@, $/ and so on */
 PERLVAR(Ttainted,	bool)		/* using variables controlled by $< */
 PERLVAR(Tcurpm,		PMOP *)		/* what to do \ interps in REs from */
-PERLVAR(Tnrs,		SV *)		/* was placeholder: unused since 5.8.0 (5.7.2 patch #12027 for bug ID 20010815.012). Used to save rx->saved_copy */
 
 /*
 =for apidoc mn|SV*|PL_rs
@@ -119,8 +118,8 @@ PERLVAR(Tcurstash,	HV *)		/* symbol table for current package */
 
 PERLVAR(Trestartop,	OP *)		/* propagating an error from croak? */
 PERLVARI(Tcurcop,	COP * VOL,	&PL_compiling)
-PERLVAR(Tin_eval,	VOL int)	/* trap "fatal" errors? */
-PERLVAR(Tdelaymagic,	int)		/* ($<,$>) = ... */
+PERLVAR(Tin_eval,	VOL U8)	/* trap "fatal" errors? */
+PERLVAR(Tdelaymagic,	U16)		/* ($<,$>) = ... */
 PERLVARI(Tdirty,	bool, FALSE)	/* in the middle of tearing things down? */
 PERLVAR(Tlocalizing,	int)		/* are we processing a local() list? */
 
@@ -159,65 +158,23 @@ PERLVAR(Tscreamnext,	I32 *)
 PERLVARI(Tmaxscream,	I32,	-1)
 PERLVAR(Tlastscream,	SV *)
 
+PERLVAR(Treg_state,	struct re_save_state)
 PERLVAR(Tregdummy,	regnode)	/* from regcomp.c */
-PERLVAR(Tregprecomp,	char *)		/* uncompiled string. */
-PERLVAR(Tregnpar,	I32)		/* () count. */
-PERLVAR(Tregsize,	I32)		/* Code size. */
 PERLVAR(Tcolorset,	int)		/* from regcomp.c */
 PERLVARA(Tcolors,6,	char *)		/* from regcomp.c */
-PERLVAR(Treginput,	char *)		/* String-input pointer. */
-PERLVAR(Tregbol,	char *)		/* Beginning of input, for ^ check. */
-PERLVAR(Tregeol,	char *)		/* End of input, for $ check. */
-PERLVAR(Tregstartp,	I32 *)		/* Pointer to startp array. */
-PERLVAR(Tregendp,	I32 *)		/* Ditto for endp. */
-PERLVAR(Treglastparen,	U32 *)		/* Similarly for lastparen. */
-PERLVAR(Treglastcloseparen, U32 *)	/* Similarly for lastcloseparen. */
-PERLVAR(Tregtill,	char *)		/* How far we are required to go. */
-PERLVAR(Treg_start_tmp,	char **)	/* from regexec.c */
-PERLVAR(Treg_start_tmpl,U32)		/* from regexec.c */
-PERLVAR(Tregdata,	struct reg_data *)
-					/* from regexec.c renamed was data */
-PERLVAR(Tbostr,		char *)		/* from regexec.c */
-PERLVAR(Treg_flags,	U32)		/* from regexec.c */
-PERLVAR(Treg_eval_set,	I32)		/* from regexec.c */
-PERLVAR(Tregnarrate,	I32)		/* from regexec.c */
-PERLVAR(Tregprogram,	regnode *)	/* from regexec.c */
-PERLVARI(Tregindent,	int,	    0)	/* from regexec.c */
-PERLVAR(Treg_call_cc,	struct re_cc_state *)	/* from regexec.c */
-PERLVAR(Treg_re,	regexp *)	/* from regexec.c */
-PERLVAR(Treg_ganch,	char *)		/* position of \G */
-PERLVAR(Treg_sv,	SV *)		/* what we match against */
-PERLVAR(Treg_magic,	MAGIC *)	/* pos-magic of what we match */
-PERLVAR(Treg_oldpos,	I32)		/* old pos of what we match */
-PERLVARI(Treg_oldcurpm,	PMOP*, NULL)	/* curpm before match */
-PERLVARI(Treg_curpm,	PMOP*, NULL)	/* curpm during match */
-PERLVAR(Treg_oldsaved,	char*)		/* old saved substr during match */
-PERLVAR(Treg_oldsavedlen, STRLEN)	/* old length of saved substr during match */
-PERLVAR(Treg_maxiter,	I32)		/* max wait until caching pos */
-PERLVAR(Treg_leftiter,	I32)		/* wait until caching pos */
-PERLVARI(Treg_poscache, char *, NULL)	/* cache of pos of WHILEM */
-PERLVAR(Treg_poscache_size, STRLEN)	/* size of pos cache of WHILEM */
 
 PERLVARI(Tpeepp,	peep_t, MEMBER_TO_FPTR(Perl_peep))
 					/* Pointer to peephole optimizer */
-PERLVARI(Tregcompp,	regcomp_t, MEMBER_TO_FPTR(Perl_pregcomp))
-					/* Pointer to REx compiler */
-PERLVARI(Tregexecp,	regexec_t, MEMBER_TO_FPTR(Perl_regexec_flags))
-					/* Pointer to REx executer */
-PERLVARI(Tregint_start,	re_intuit_start_t, MEMBER_TO_FPTR(Perl_re_intuit_start))
-					/* Pointer to optimized REx executer */
-PERLVARI(Tregint_string,re_intuit_string_t, MEMBER_TO_FPTR(Perl_re_intuit_string))
-					/* Pointer to optimized REx string */
-PERLVARI(Tregfree,	regfree_t, MEMBER_TO_FPTR(Perl_pregfree))
-					/* Pointer to REx free()er */
 
 PERLVARI(Treginterp_cnt,int,	    0)	/* Whether "Regexp" was interpolated. */
-PERLVARI(Treg_starttry,	char *,	    0)	/* -Dr: where regtry was called. */
 PERLVARI(Twatchaddr,	char **,    0)
 PERLVAR(Twatchok,	char *)
 
 /* Note that the variables below are all explicitly referenced in the code
  * as thr->whatever and therefore don't need the 'T' prefix. */
 
-PERLVAR(Treg_match_utf8,	bool)		/* was what we matched against utf8 */
+/* the currently active slab in a chain of slabs of regmatch states,
+ * and the currently active state within that slab */
 
+PERLVARI(Tregmatch_slab,	regmatch_slab *, NULL)
+PERLVAR(Tregmatch_state,	regmatch_state *)