diff options
Diffstat (limited to 'perlvars.h')
| -rw-r--r-- | perlvars.h | 30 |
1 files changed, 5 insertions, 25 deletions
diff --git a/perlvars.h b/perlvars.h index c1a0dd41cc..664164dbcd 100644 --- a/perlvars.h +++ b/perlvars.h @@ -19,34 +19,14 @@ /* global state */ PERLVAR(Gcurinterp, PerlInterpreter *) - /* currently running interpreter */ -#ifdef USE_THREADS -PERLVAR(Gthr_key, perl_key) /* For per-thread struct perl_thread* */ -PERLVAR(Gsv_mutex, perl_mutex) /* Mutex for allocating SVs in sv.c */ -PERLVAR(Gmalloc_mutex, perl_mutex) /* Mutex for malloc */ -PERLVAR(Geval_mutex, perl_mutex) /* Mutex for doeval */ -PERLVAR(Geval_cond, perl_cond) /* Condition variable for doeval */ -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 - -PERLVAR(Gcred_mutex, perl_mutex) /* altered credentials in effect */ - -#endif /* USE_THREADS */ - -PERLVAR(Gninterps, int) /* number of active interpreters */ -PERLVARI(Gdo_undump, bool, FALSE) /* -u or dump seen? */ + /* currently running interpreter + * XXX this needs to be in TLS */ /* constants (these are not literals to facilitate pointer comparisons) */ PERLVARIC(GYes, char *, "1") PERLVARIC(GNo, char *, "") PERLVARIC(Ghexdigit, char *, "0123456789abcdef0123456789ABCDEF") PERLVARIC(Gpatleave, char *, "\\.^$@dDwWsSbB+*?|()-nrtfeaxc0123456789[{]}") + +/* XXX does anyone even use this? */ +PERLVARI(Gdo_undump, bool, FALSE) /* -u or dump seen? */ |