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 /intrpvar.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 'intrpvar.h')
| -rw-r--r-- | intrpvar.h | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/intrpvar.h b/intrpvar.h index f41433b8cd..744ff31450 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -352,6 +352,28 @@ PERLVAR(Iuudmap[256], char) PERLVAR(Ibitcount, char *) PERLVAR(Ifilter_debug, int) +#ifdef USE_THREADS +PERLVAR(Ithr_key, perl_key) /* For per-thread struct perl_thread* */ +PERLVAR(Isv_mutex, perl_mutex) /* Mutex for allocating SVs in sv.c */ +PERLVAR(Imalloc_mutex, perl_mutex) /* Mutex for malloc */ +PERLVAR(Ieval_mutex, perl_mutex) /* Mutex for doeval */ +PERLVAR(Ieval_cond, perl_cond) /* Condition variable for doeval */ +PERLVAR(Ieval_owner, struct perl_thread *) + /* Owner thread for doeval */ +PERLVAR(Inthreads, int) /* Number of threads currently */ +PERLVAR(Ithreads_mutex, perl_mutex) /* Mutex for nthreads and thread list */ +PERLVAR(Inthreads_cond, perl_cond) /* Condition variable for nthreads */ +PERLVAR(Isvref_mutex, perl_mutex) /* Mutex for SvREFCNT_{inc,dec} */ +PERLVARI(Ithreadsv_names,char *, THREADSV_NAMES) +#ifdef FAKE_THREADS +PERLVAR(Icurthr, struct perl_thread *) + /* Currently executing (fake) thread */ +#endif + +PERLVAR(Icred_mutex, perl_mutex) /* altered credentials in effect */ + +#endif /* USE_THREADS */ + #ifdef PERL_OBJECT PERLVARI(piMem, IPerlMem*, NULL) PERLVARI(piENV, IPerlEnv*, NULL) |