X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=intrpvar.h;h=74c914bb29c925ec93100ba7df9f168f85c9954e;hb=4a71ed0cc11f5be9a856b29b19af5c91a1bd76cb;hp=de2578ab6b7b4e6af35d6112aa5c47381a14d861;hpb=873ef191be9d12eed8116e23926efe319c6ed859;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/intrpvar.h b/intrpvar.h
index de2578a..74c914b 100644
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -68,6 +68,7 @@ PERLVAR(Iscreamfirst,	I32 *)
 PERLVAR(Iscreamnext,	I32 *)		
 PERLVARI(Imaxscream,	I32,	-1)	
 PERLVAR(Ilastscream,	SV *)		
+PERLVAR(Ireplgv,	GV *)		
 
 /* shortcuts to misc objects */
 PERLVAR(Ierrgv,		GV *)		
@@ -161,14 +162,13 @@ PERLVAR(Isys_intern,	struct interp_intern)		/* platform internals */
 #endif
 
 /* more statics moved here */
-PERLVAR(Imh,		HE)		/* from hv.c */
 PERLVARI(Igeneration,	int,	100)	/* from op.c */
 PERLVAR(IDBcv,		CV *)		/* from perl.c */
 PERLVAR(Iarchpat_auto,	char*)		/* from perl.c */
 PERLVAR(Isortcxix,	I32)		/* from pp_ctl.c */
 PERLVAR(Ilastgotoprobe,	OP*)		/* from pp_ctl.c */
 PERLVAR(Iregdummy,	regnode)	/* from regcomp.c */
-PERLVAR(Iregparse,	char*)		/* Input-scan pointer. */
+PERLVAR(Iregcomp_parse,	char*)		/* Input-scan pointer. */
 PERLVAR(Iregxend,	char*)		/* End of input for compile */
 PERLVAR(Iregcode,	regnode*)	/* Code-emit pointer; &regdummy = don't. */
 PERLVAR(Iregnaughty,	I32)		/* How bad is this pattern? */
@@ -182,12 +182,12 @@ PERLVAR(Iregflags,	U16)		/* are we folding, multilining? */
 
 PERLVAR(Iregseen,	U32)		/* from regcomp.c */
 PERLVAR(Iseen_zerolen,	I32)		/* from regcomp.c */
-PERLVAR(Irx,		regexp *)	/* from regcomp.c */
+PERLVAR(Iregcomp_rx,	regexp *)	/* from regcomp.c */
 PERLVAR(Iextralen,	I32)		/* from regcomp.c */
-#ifdef DEBUGGING
+/* #ifdef DEBUGGING -- keep the structure the same with/without DEBUGGING defined */
 PERLVAR(Icolorset,	int)		/* from regcomp.c */
 PERLVAR(Icolors[4],	char *)		/* from regcomp.c */
-#endif 
+/* #endif */
 
 PERLVAR(Ireginput,	char *)		/* String-input pointer. */
 PERLVAR(Iregbol,	char *)		/* Beginning of input, for ^ check. */
@@ -205,11 +205,11 @@ PERLVAR(Ibostr,		char *)		/* from regexec.c */
 PERLVAR(Ireg_flags,	U32)		/* from regexec.c */
 PERLVAR(Ireg_eval_set,	I32)		/* from regexec.c */
 
-#ifdef DEBUGGING
+/* #ifdef DEBUGGING -- keep the structure the same with/without DEBUGGING defined */
 PERLVAR(Iregnarrate,	I32)		/* from regexec.c */
 PERLVAR(Iregprogram,	regnode *)	/* from regexec.c */
 PERLVARI(Iregindent,	int,	    0)	/* from regexec.c */
-#endif
+/* #endif */
 
 PERLVAR(Iregcc,		CURCUR *)	/* from regexec.c */
 PERLVARI(Iin_clean_objs,bool,	    FALSE)  /* from sv.c */