X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=intrpvar.h;h=71fcda7e9467c6684d2bf9aa84797a7604e7fb48;hb=9b6570b4f9243e4e8b953fb4650b22aab639eabc;hp=ea5159a32a9dee857ed740afecf7d67899a37d6b;hpb=b3ac6de7f0c7a63b73f1cf3ea9e371470f7d1cb0;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/intrpvar.h b/intrpvar.h
index ea5159a..71fcda7 100644
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -63,10 +63,6 @@ PERLVAR(Istatusvalue,	I32)		/* $? */
 PERLVAR(Istatusvalue_vms,U32)
 #endif
 
-PERLVAR(Istatcache,	Stat_t)		/* _ */
-PERLVAR(Istatgv,	GV *)
-PERLVARI(Istatname,	SV *,	Nullsv)
-
 /* shortcuts to various I/O objects */
 PERLVAR(Istdingv,	GV *)
 PERLVAR(Idefgv,		GV *)
@@ -74,13 +70,13 @@ PERLVAR(Iargvgv,	GV *)
 PERLVAR(Iargvoutgv,	GV *)
 
 /* shortcuts to regexp stuff */
+/* XXX these three aren't used anywhere */
 PERLVAR(Ileftgv,	GV *)
 PERLVAR(Iampergv,	GV *)
 PERLVAR(Irightgv,	GV *)
-PERLVAR(Iscreamfirst,	I32 *)
-PERLVAR(Iscreamnext,	I32 *)
-PERLVARI(Imaxscream,	I32,	-1)
-PERLVAR(Ilastscream,	SV *)
+
+/* this one needs to be moved to thrdvar.h and accessed via
+ * find_threadsv() when USE_THREADS */
 PERLVAR(Ireplgv,	GV *)
 
 /* shortcuts to misc objects */
@@ -104,6 +100,7 @@ PERLVAR(Ibeginav,	AV *)		/* names of BEGIN subroutines */
 PERLVAR(Iendav,		AV *)		/* names of END subroutines */
 PERLVAR(Iinitav,	AV *)		/* names of INIT subroutines */
 PERLVAR(Istrtab,	HV *)		/* shared string table */
+PERLVARI(Isub_generation,U32,1)		/* incr to invalidate method cache */
 
 /* memory management */
 PERLVAR(Isv_count,	I32)		/* how many SV* are currently allocated */
@@ -148,10 +145,6 @@ PERLVAR(Ilastfd,	int)		/* what to preserve mode on */
 PERLVAR(Ioldname,	char *)		/* what to preserve mode on */
 PERLVAR(IArgv,		char **)	/* stuff to free from do_aexec, vfork safe */
 PERLVAR(ICmd,		char *)		/* stuff to free from do_aexec, vfork safe */
-PERLVAR(Isortcop,	OP *)		/* user defined sort routine */
-PERLVAR(Isortstash,	HV *)		/* which is in some package or other */
-PERLVAR(Ifirstgv,	GV *)		/* $a */
-PERLVAR(Isecondgv,	GV *)		/* $b */
 PERLVAR(Imystrk,	SV *)		/* temp key string for do_each() */
 PERLVAR(Idumplvl,	I32)		/* indentation level on syntax tree dump */
 PERLVAR(Ioldlastpm,	PMOP *)		/* for saving regexp context in debugger */
@@ -195,50 +188,7 @@ PERLVAR(Isys_intern,	struct interp_intern)
 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(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? */
-PERLVAR(Iregsawback,	I32)		/* Did we see \1, ...? */
-
-/* This guys appear both in regcomp.c and regexec.c, */
-PERLVAR(Iregprecomp,	char *)		/* uncompiled string. */
-PERLVAR(Iregnpar,	I32)		/* () count. */
-PERLVAR(Iregsize,	I32)		/* Code size. */
-PERLVAR(Iregflags,	U16)		/* are we folding, multilining? */
-
-PERLVAR(Iregseen,	U32)		/* from regcomp.c */
-PERLVAR(Iseen_zerolen,	I32)		/* from regcomp.c */
-PERLVAR(Iregcomp_rx,	regexp *)	/* from regcomp.c */
-PERLVAR(Iextralen,	I32)		/* from regcomp.c */
-PERLVAR(Icolorset,	int)		/* from regcomp.c */
-PERLVAR(Icolors[4],	char *)		/* from regcomp.c */
-
-PERLVAR(Ireginput,	char *)		/* String-input pointer. */
-PERLVAR(Iregbol,	char *)		/* Beginning of input, for ^ check. */
-PERLVAR(Iregeol,	char *)		/* End of input, for $ check. */
-PERLVAR(Iregstartp,	char **)	/* Pointer to startp array. */
-PERLVAR(Iregendp,	char **)	/* Ditto for endp. */
-PERLVAR(Ireglastparen,	U32 *)		/* Similarly for lastparen. */
-PERLVAR(Iregtill,	char *)		/* How far we are required to go. */
-PERLVAR(Iregprev,	char)		/* char before regbol, \n if none */
-
-PERLVAR(Ireg_start_tmp,	char **)	/* from regexec.c */
-PERLVAR(Ireg_start_tmpl,U32)		/* from regexec.c */
-PERLVAR(Iregdata,	struct reg_data *)
-					/* from regexec.c renamed was data */
-PERLVAR(Ibostr,		char *)		/* from regexec.c */
-PERLVAR(Ireg_flags,	U32)		/* from regexec.c */
-PERLVAR(Ireg_eval_set,	I32)		/* from regexec.c */
-
-PERLVAR(Iregnarrate,	I32)		/* from regexec.c */
-PERLVAR(Iregprogram,	regnode *)	/* from regexec.c */
-PERLVARI(Iregindent,	int,	    0)	/* from regexec.c */
-
-PERLVAR(Iregcc,		CURCUR *)	/* from regexec.c */
+
 PERLVARI(Iin_clean_objs,bool,    FALSE)	/* from sv.c */
 PERLVARI(Iin_clean_all,	bool,    FALSE)	/* from sv.c */