diff options
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 */ |