diff options
| author | Artur Bergman <sky@nanisky.com> | 2001-09-21 07:35:30 +0000 |
|---|---|---|
| committer | Artur Bergman <sky@nanisky.com> | 2001-09-21 07:35:30 +0000 |
| commit | 4f896ddced4dda29739348c5b97bf4f1d7cd7e11 (patch) | |
| tree | a5cf4553b387de272f2e2777c637c03a14700a4d /sharedsv.h | |
| parent | 9bedc915eb93569a1e9ab0b8265e8ffaa6002916 (diff) | |
| download | perl-4f896ddced4dda29739348c5b97bf4f1d7cd7e11.tar.gz | |
Add the shared sv space to the global vars.
Fix problems compiling on win32.
p4raw-id: //depot/perl@12102
Diffstat (limited to 'sharedsv.h')
| -rw-r--r-- | sharedsv.h | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/sharedsv.h b/sharedsv.h index f92a94a08e..bba2210e7f 100644 --- a/sharedsv.h +++ b/sharedsv.h @@ -10,8 +10,7 @@ typedef struct { PerlInterpreter* owner; /* who owns the lock */ } shared_sv; -extern PerlInterpreter* sharedsv_space; -extern perl_mutex sharedsv_space_mutex; + void Perl_sharedsv_unlock_scope(pTHX_ shared_sv* ssv); void Perl_sharedsv_unlock(pTHX_ shared_sv* ssv); @@ -24,13 +23,13 @@ void Perl_sharedsv_thrcnt_dec(pTHX_ shared_sv* ssv); #define SHAREDSvGET(a) (a->sv) -#define SHAREDSvEDIT(a) { MUTEX_LOCK(&sharedsv_space_mutex);\ +#define SHAREDSvEDIT(a) { MUTEX_LOCK(&PL_sharedsv_space_mutex);\ SHAREDSvLOCK((a));\ -PERL_SET_CONTEXT(sharedsv_space);\ +PERL_SET_CONTEXT(PL_sharedsv_space);\ } #define SHAREDSvRELEASE(a) { PERL_SET_CONTEXT((a)->owner);\ SHAREDSvUNLOCK((a));\ -MUTEX_UNLOCK(&sharedsv_space_mutex);\ +MUTEX_UNLOCK(&PL_sharedsv_space_mutex);\ } #define SHAREDSvLOCK(a) Perl_sharedsv_lock(aTHX_ a) #define SHAREDSvUNLOCK(a) Perl_sharedsv_unlock(aTHX_ a) |