perlopentut and PerlIO documentation

[p5sagit/p5-mst-13.2.git] / intrpvar.h

diff --git a/intrpvar.h b/intrpvar.h
index 3d08143..d4f92d2 100644 (file)
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -226,12 +226,6 @@ PERLVAR(Ilinestart,        char *)         /* beg. of most recently read line */
 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 */
@@ -411,26 +405,6 @@ PERLVAR(Isrand_called,     bool)
 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**)
 
@@ -451,13 +425,6 @@ PERLVAR(Iptr_table,        PTR_TBL_t*)
 #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(Inullstash,    HV *)           /* illegal symbols end up here */
-
 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 */
@@ -487,12 +454,9 @@ 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 */
+PERLVAR(Ireentrant_buffer, REENTR*)    /* 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     */
@@ -512,7 +476,23 @@ PERLVAR(Idebug_pad,        struct perl_debug_pad)  /* always needed because of the re ex
 
 PERLVAR(Itaint_warn, bool)      /* taint warns instead of dying */
 
+#ifdef PL_OP_SLAB_ALLOC
+PERLVAR(IOpPtr,I32 **)
+PERLVARI(IOpSpace,I32,0)
+PERLVAR(IOpSlab,I32 *)
+#endif
+
+PERLVAR(Iwantutf8, bool)       /* want utf8 as the default discipline */
+
+PERLVAR(Iutf8_idstart, SV *)
+PERLVAR(Iutf8_idcont,  SV *)
+
+PERLVAR(Isort_RealCmp,  SVCOMPARE_t)
+
+PERLVARI(Icheckav_save, AV*, Nullav)   /* save CHECK{}s when compiling */
+
+PERLVARI(Iclocktick, long, 0)  /* this many times() ticks in a second */
+
 /* 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. */
-