X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perlvars.h;h=9bbd6155d021e49a21d1e8a8262acaa483903707;hb=249edfdff1b2b750e894ee5a0b6cb64d2640ca02;hp=ab335493d2fc10abb1111a20dc64b11cc532c4d3;hpb=76e3520e1f6b7df33cd381a2cf4f1fce3d69c8a4;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perlvars.h b/perlvars.h
index ab33549..9bbd615 100644
--- a/perlvars.h
+++ b/perlvars.h
@@ -19,18 +19,12 @@ PERLVAR(Geval_owner,	struct perl_thread *)		/* Owner thread for doeval */
 PERLVAR(Gnthreads,	int)		/* Number of threads currently */
 PERLVAR(Gthreads_mutex,	perl_mutex)		/* Mutex for nthreads and thread list */
 PERLVAR(Gnthreads_cond,	perl_cond)		/* Condition variable for nthreads */
+PERLVAR(Gsvref_mutex,	perl_mutex)		/* Mutex for SvREFCNT_{inc,dec} */
 PERLVARI(Gthreadsv_names,	char *,	THREADSV_NAMES)	
 #ifdef FAKE_THREADS
 PERLVAR(Gcurthr,	struct perl_thread *)	/* Currently executing (fake) thread */
 #endif
 #endif /* USE_THREADS */
-#ifdef PERL_OBJECT
-/* TODO: move into thread section */
-PERLVAR(Gsort_mutex,	CRITICAL_SECTION)		/* Mutex for qsort */
-#ifdef WIN32
-PERLVAR(Gerror_no,    int)	/* errno for each interpreter */
-#endif
-#endif
 
 PERLVAR(Guid,	int)		/* current real user id */
 PERLVAR(Geuid,	int)		/* current effective user id */
@@ -61,7 +55,7 @@ PERLVAR(Gnice_chunk,	char *)		/* a nice chunk of memory to reuse */
 PERLVAR(Gnice_chunk_size,	U32)		/* how nice the chunk of memory is */
 
 #ifdef PERL_OBJECT
-PERLVAR(Grunops,	runops_proc_t)	
+PERLVARI(Grunops,	runops_proc_t,	FUNC_NAME_TO_PTR(RUNOPS_DEFAULT))	
 #else
 PERLVARI(Grunops,	runops_proc_t *,	RUNOPS_DEFAULT)	
 #endif
@@ -113,7 +107,6 @@ PERLVAR(Gmulti_end,	I32)		/* last line of multi-line string */
 PERLVAR(Gmulti_open,	I32)		/* delimiter of said string */
 PERLVAR(Gmulti_close,	I32)		/* delimiter of said string */
 
-PERLVAR(Gscrgv,	GV *)		
 PERLVAR(Gerror_count,	I32)		/* how many errors so far, max 10 */
 PERLVAR(Gsubline,	I32)		/* line this subroutine began on */
 PERLVAR(Gsubname,	SV *)		/* name of current subroutine */
@@ -174,3 +167,5 @@ PERLVARIC(GNo,		char *, "")
 PERLVARIC(Ghexdigit,	char *, "0123456789abcdef0123456789ABCDEFx")
 PERLVARIC(Gpatleave,	char *, "\\.^$@dDwWsSbB+*?|()-nrtfeaxc0123456789[{]}")
 
+PERLVAR(Gspecialsv_list[4], SV *)		/* from byterun.h */
+