diff options
| author | Artur Bergman <sky@nanisky.com> | 2001-08-17 12:28:41 +0000 |
|---|---|---|
| committer | Artur Bergman <sky@nanisky.com> | 2001-08-17 12:28:41 +0000 |
| commit | 667883b043ec7c3a2eb983d65a38f863f9a39fbd (patch) | |
| tree | ed4b494f6ee4344790fb20d34e38e5ce6797e69a /sharedsv.h | |
| parent | 1dca008a36fa9607cc704328e383316f3c7223e2 (diff) | |
| download | perl-667883b043ec7c3a2eb983d65a38f863f9a39fbd.tar.gz | |
Protext sharedsv_space better. Extended EDIT and RELEASE macro
p4raw-id: //depot/perl@11707
Diffstat (limited to 'sharedsv.h')
| -rw-r--r-- | sharedsv.h | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/sharedsv.h b/sharedsv.h index 16bba11841..1dec85461b 100644 --- a/sharedsv.h +++ b/sharedsv.h @@ -10,6 +10,7 @@ typedef struct { } 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); @@ -22,8 +23,14 @@ void Perl_sharedsv_thrcnt_dec(pTHX_ shared_sv* ssv); #define SHAREDSvGET(a) (a->sv) -#define SHAREDSvEDIT(a) PERL_SET_CONTEXT(sharedsv_space) -#define SHAREDSvRELEASE(a) PERL_SET_CONTEXT(my_perl) +#define SHAREDSvEDIT(a) { MUTEX_LOCK(&sharedsv_space_mutex);\ +SHAREDSvLOCK((a));\ +PERL_SET_CONTEXT(sharedsv_space);\ +} +#define SHAREDSvRELEASE(a) { PERL_SET_CONTEXT((a)->owner);\ +SHAREDSvUNLOCK((a));\ +MUTEX_UNLOCK(&sharedsv_space_mutex);\ +} #define SHAREDSvLOCK(a) Perl_sharedsv_lock(aTHX_ a) #define SHAREDSvUNLOCK(a) Perl_sharedsv_unlock(aTHX_ a) |