diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2005-12-29 12:00:29 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2005-12-29 12:00:29 +0000 |
| commit | f16dd614412ea67a8eb64bb09a88fccdbd9db6b6 (patch) | |
| tree | a5b7bf6146f445a04a570b1e0302ff7d2c1f5fbb /perlvars.h | |
| parent | 85ce96a160e902929b94338ada20cf46b265d595 (diff) | |
| download | perl-f16dd614412ea67a8eb64bb09a88fccdbd9db6b6.tar.gz | |
re-implement MY_CXT API more efficiently, and add explicit
interpeter arg variant
p4raw-id: //depot/perl@26523
Diffstat (limited to 'perlvars.h')
| -rw-r--r-- | perlvars.h | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/perlvars.h b/perlvars.h index 9f3a399161..c15b6667dd 100644 --- a/perlvars.h +++ b/perlvars.h @@ -124,4 +124,9 @@ PERLVARI(Gop_seq, UV, 0) /* dump.c */ PERLVAR(Gtimesbase, struct tms) #endif +/* allocate a unique index to every module that calls MY_CXT_INIT */ +#ifdef PERL_IMPLICIT_CONTEXT +PERLVAR(Gmy_ctx_mutex, perl_mutex) +PERLVARI(Gmy_cxt_index, int, 0) +#endif |