diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-01-30 09:23:36 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-01-30 09:23:36 +0000 |
| commit | 76e3520e1f6b7df33cd381a2cf4f1fce3d69c8a4 (patch) | |
| tree | 1d4e5f5653fd9def6bd71cc0cb536400223f4d3e /perlvars.h | |
| parent | 6ad3d225cec2692b410002582f5558652eea32c8 (diff) | |
| download | perl-76e3520e1f6b7df33cd381a2cf4f1fce3d69c8a4.tar.gz | |
[asperl] added AS patch#2
p4raw-id: //depot/asperl@443
Diffstat (limited to 'perlvars.h')
| -rw-r--r-- | perlvars.h | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/perlvars.h b/perlvars.h index 8a72312e57..ab335493d2 100644 --- a/perlvars.h +++ b/perlvars.h @@ -24,6 +24,13 @@ PERLVARI(Gthreadsv_names, char *, THREADSV_NAMES) 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 */ @@ -53,7 +60,11 @@ PERLVAR(Ghe_root, HE *) /* free he list--shared by interpreters */ 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) +#else PERLVARI(Grunops, runops_proc_t *, RUNOPS_DEFAULT) +#endif PERLVAR(Gtokenbuf[256], char) PERLVAR(Gna, STRLEN) /* for use in SvPV when length is Not Applicable */ |