blob: 1dec85461b73d1638464f8bad122ae1c8bb3700f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
#ifdef USE_ITHREADS
typedef struct {
SV* sv; /* The actual data */
perl_mutex mutex; /* Our mutex */
perl_cond cond; /* Our condition variable */
IV locks; /* Number of locks held */
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);
void Perl_sharedsv_lock(pTHX_ shared_sv* ssv);
void Perl_sharedsv_init(pTHX);
shared_sv* Perl_sharedsv_new(pTHX);
shared_sv* Perl_sharedsv_find(pTHX_ SV* sv);
void Perl_sharedsv_thrcnt_inc(pTHX_ shared_sv* ssv);
void Perl_sharedsv_thrcnt_dec(pTHX_ shared_sv* ssv);
#define SHAREDSvGET(a) (a->sv)
#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)
#endif /* USE_ITHREADS */
|
