Implement recursive lock and use of scope for PL_sharedsv_space,

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

diff --git a/intrpvar.h b/intrpvar.h
index c46c8c1..dccbdb6 100644 (file)
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -38,6 +38,8 @@ PERLVAR(Iminus_F,     bool)
 PERLVAR(Idoswitches,   bool)
 
 /*
+=head1 Global Variables
+
 =for apidoc mn|bool|PL_dowarn
 
 The C variable which corresponds to Perl's $^W warning variable.
@@ -488,9 +490,6 @@ PERLVAR(Iregex_padav,   AV*)                /* All regex objects */
 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     */
@@ -510,6 +509,12 @@ 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
+
 /* 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. */