/* shortcuts to regexp stuff */
/* this one needs to be moved to thrdvar.h and accessed via
- * find_threadsv() when USE_THREADS */
+ * find_threadsv() when USE_5005THREADS */
PERLVAR(Ireplgv, GV *)
/* shortcuts to misc objects */
PERLVAR(Ipending_ident, char) /* pending identifier lookup */
PERLVAR(Isublex_info, SUBLEXINFO) /* from toke.c */
-#ifdef USE_THREADS
+#ifdef USE_5005THREADS
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 */
+#endif /* USE_5005THREADS */
PERLVAR(Iuid, Uid_t) /* current real user id */
PERLVAR(Ieuid, Uid_t) /* current effective user id */
PERLVARA(Iuudmap,256, char)
PERLVAR(Ibitcount, char *)
-#ifdef USE_THREADS
+#ifdef USE_5005THREADS
PERLVAR(Isv_mutex, perl_mutex) /* Mutex for allocating SVs in sv.c */
PERLVAR(Ieval_mutex, perl_mutex) /* Mutex for doeval */
PERLVAR(Ieval_cond, perl_cond) /* Condition variable for doeval */
PERLVAR(Icred_mutex, perl_mutex) /* altered credentials in effect */
-#endif /* USE_THREADS */
+#endif /* USE_5005THREADS */
PERLVAR(Ipsig_ptr, SV**)
PERLVAR(Ipsig_name, SV**)
#endif
PERLVARI(Ibeginav_save, AV*, Nullav) /* save BEGIN{}s when compiling */
-#ifdef USE_THREADS
+#ifdef USE_5005THREADS
PERLVAR(Ifdpid_mutex, perl_mutex) /* mutex for fdpid array */
PERLVAR(Isv_lock_mutex, perl_mutex) /* mutex for SvLOCK macro */
#endif
#endif
+#if defined(USE_ITHREADS)
+PERLVAR(Iregex_pad, SV**) /* All regex objects */
+PERLVAR(Iregex_padav, AV*) /* All regex objects */
+
+#ifdef USE_REENTRANT_API
+PERLVAR(Ireentrant_buffer, REBUF*) /* here we store the _r buffers */
+#endif
+
+PERLVAR(sharedsv_space, PerlInterpreter*)
+PERLVAR(sharedsv_space_mutex, perl_mutex)
+
+#endif
+
+PERLVAR(Isavebegin, bool) /* save BEGINs for compiler */
+
+PERLVAR(Icustom_op_names, HV*) /* Names of user defined ops */
+PERLVAR(Icustom_op_descs, HV*) /* Descriptions of user defined ops */
+
+#ifdef PERLIO_LAYERS
+PERLVARI(Iperlio, PerlIO *,NULL)
+PERLVARI(Iknown_layers, PerlIO_list_t *,NULL)
+PERLVARI(Idef_layerlist, PerlIO_list_t *,NULL)
+#endif
+
/* New variables must be added to the very end for binary compatibility.
* XSUB.h provides wrapper functions via perlapi.h that make this
* irrelevant, but not all code may be expected to #include XSUB.h. */
-