[asperl] fixups to make it build and pass tests under both compilers

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

diff --git a/perlvars.h b/perlvars.h
index ab33549..9f801fb 100644 (file)
--- a/perlvars.h
+++ b/perlvars.h
@@ -19,14 +19,13 @@ 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
@@ -61,7 +60,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