diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-06-11 23:13:54 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-06-11 23:13:54 +0000 |
| commit | 43165c0500446fb6e4a036657f82b50e22c886e0 (patch) | |
| tree | bdc4939f4aa7e19724f7f5de06a0d626bf476a33 /perlvars.h | |
| parent | f3aa04c29a85dd63d563ae8e27316ff34501ccd5 (diff) | |
| download | perl-43165c0500446fb6e4a036657f82b50e22c886e0.tar.gz | |
various little tweaks; most globals are now in intrpvar.h, ninterps
is temporarily gone
p4raw-id: //depot/perl@3535
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? */ |