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 *)
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 */
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 */
/* internal state */
PERLVAR(Itainting, bool) /* doing taint checks */
PERLVARI(Iop_mask, char *, NULL) /* masked operations for safe evals */
-PERLVAR(Ilast_proto, char *) /* Prototype of last sub seen. */
/* trace state */
PERLVAR(Idlevel, I32)
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 */
PERLVAR(Igensym, I32) /* next symbol for getsym() to define */
PERLVAR(Ipreambled, bool)
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; ®dummy = 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(Iregcompp, regcomp_t, FUNC_NAME_TO_PTR(pregcomp))
- /* Pointer to RE compiler */
-PERLVARI(Iregexecp, regexec_t, FUNC_NAME_TO_PTR(regexec_flags))
- /* Pointer to RE executer */
PERLVARI(Iin_clean_objs,bool, FALSE) /* from sv.c */
PERLVARI(Iin_clean_all, bool, FALSE) /* from sv.c */
#ifdef USE_THREADS
PERLVAR(Ithrsv, SV *) /* struct perl_thread for main thread */
PERLVARI(Ithreadnum, U32, 0) /* incremented each thread creation */
+PERLVAR(Istrtab_mutex, perl_mutex) /* Mutex for string table access */
#endif /* USE_THREADS */
#ifdef PERL_OBJECT