PERLVAR(Ipending_ident, char) /* pending identifier lookup */
PERLVAR(Isublex_info, SUBLEXINFO) /* from toke.c */
-#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_5005THREADS */
-
PERLVAR(Iuid, Uid_t) /* current real user id */
PERLVAR(Ieuid, Uid_t) /* current effective user id */
PERLVAR(Igid, Gid_t) /* current real group id */
PERLVARA(Iuudmap,256, char)
PERLVAR(Ibitcount, char *)
-#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(Ieval_owner, struct perl_thread *)
- /* Owner thread for doeval */
-PERLVAR(Inthreads, int) /* Number of threads currently */
-PERLVAR(Ithreads_mutex, perl_mutex) /* Mutex for nthreads and thread list */
-PERLVAR(Inthreads_cond, perl_cond) /* Condition variable for nthreads */
-PERLVAR(Isvref_mutex, perl_mutex) /* Mutex for SvREFCNT_{inc,dec} */
-PERLVARI(Ithreadsv_names,char *, THREADSV_NAMES)
-#ifdef FAKE_THREADS
-PERLVAR(Icurthr, struct perl_thread *)
- /* Currently executing (fake) thread */
-#endif
-
-PERLVAR(Icred_mutex, perl_mutex) /* altered credentials in effect */
-
-#endif /* USE_5005THREADS */
-
PERLVAR(Ipsig_ptr, SV**)
PERLVAR(Ipsig_name, SV**)
#endif
PERLVARI(Ibeginav_save, AV*, Nullav) /* save BEGIN{}s when compiling */
-#ifdef USE_5005THREADS
-PERLVAR(Ifdpid_mutex, perl_mutex) /* mutex for fdpid array */
-PERLVAR(Isv_lock_mutex, perl_mutex) /* mutex for SvLOCK macro */
-#endif
-
PERLVAR(Ixnv_arenaroot, XPV*) /* list of allocated xnv areas */
PERLVAR(Ixrv_arenaroot, XPV*) /* list of allocated xrv areas */
PERLVAR(Ixpv_arenaroot, XPV*) /* list of allocated xpv areas */
PERLVARI(Iclocktick, long, 0) /* this many times() ticks in a second */
-/* New variables must be added to the very end for binary compatibility.
+PERLVARI(Iin_load_module, int, 0) /* to prevent recursions in PerlIO_find_layer */
+
+/* New variables must be added to the very end, before this comment,
+ * for binary compatibility (the offsets of the old members must not change).
* XSUB.h provides wrapper functions via perlapi.h that make this
* irrelevant, but not all code may be expected to #include XSUB.h. */
+