summaryrefslogtreecommitdiff
path: root/sharedsv.c
diff options
context:
space:
mode:
authorArtur Bergman <sky@nanisky.com>2001-08-17 12:28:41 +0000
committerArtur Bergman <sky@nanisky.com>2001-08-17 12:28:41 +0000
commit667883b043ec7c3a2eb983d65a38f863f9a39fbd (patch)
treeed4b494f6ee4344790fb20d34e38e5ce6797e69a /sharedsv.c
parent1dca008a36fa9607cc704328e383316f3c7223e2 (diff)
downloadperl-667883b043ec7c3a2eb983d65a38f863f9a39fbd.tar.gz
Protext sharedsv_space better. Extended EDIT and RELEASE macro
p4raw-id: //depot/perl@11707
Diffstat (limited to 'sharedsv.c')
-rw-r--r--sharedsv.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/sharedsv.c b/sharedsv.c
index 43596941de..1703257cf2 100644
--- a/sharedsv.c
+++ b/sharedsv.c
@@ -21,6 +21,7 @@
#include "perl.h"
PerlInterpreter* sharedsv_space;
+perl_mutex sharedsv_space_mutex;
#ifdef USE_ITHREADS
@@ -45,6 +46,7 @@ void
Perl_sharedsv_init(pTHX)
{
sharedsv_space = PERL_GET_CONTEXT;
+ MUTEX_INIT(&sharedsv_space_mutex);
}
/*
@@ -145,9 +147,9 @@ Increments the threadcount of a sharedsv.
void
Perl_sharedsv_thrcnt_inc(pTHX_ shared_sv* ssv)
{
- SHAREDSvLOCK(ssv);
+ SHAREDSvEDIT(ssv);
SvREFCNT_inc(ssv->sv);
- SHAREDSvUNLOCK(ssv);
+ SHAREDSvRELEASE(ssv);
}
/*
@@ -163,7 +165,6 @@ void
Perl_sharedsv_thrcnt_dec(pTHX_ shared_sv* ssv)
{
SV* sv;
- SHAREDSvLOCK(ssv);
SHAREDSvEDIT(ssv);
sv = SHAREDSvGET(ssv);
if (SvREFCNT(sv) == 1) {
@@ -195,7 +196,6 @@ Perl_sharedsv_thrcnt_dec(pTHX_ shared_sv* ssv)
}
SvREFCNT_dec(sv);
SHAREDSvRELEASE(ssv);
- SHAREDSvUNLOCK(ssv);
}
#endif