5 SV* sv; /* The actual data */
6 perl_mutex mutex; /* Our mutex */
7 perl_cond cond; /* Our condition variable */
8 IV locks; /* Number of locks held */
9 PerlInterpreter* owner; /* who owns the lock */
12 extern PerlInterpreter* sharedsv_space;
13 extern perl_mutex sharedsv_space_mutex;
15 void Perl_sharedsv_unlock_scope(pTHX_ shared_sv* ssv);
16 void Perl_sharedsv_unlock(pTHX_ shared_sv* ssv);
17 void Perl_sharedsv_lock(pTHX_ shared_sv* ssv);
18 void Perl_sharedsv_init(pTHX);
19 shared_sv* Perl_sharedsv_new(pTHX);
20 shared_sv* Perl_sharedsv_find(pTHX_ SV* sv);
21 void Perl_sharedsv_thrcnt_inc(pTHX_ shared_sv* ssv);
22 void Perl_sharedsv_thrcnt_dec(pTHX_ shared_sv* ssv);
25 #define SHAREDSvGET(a) (a->sv)
26 #define SHAREDSvEDIT(a) { MUTEX_LOCK(&sharedsv_space_mutex);\
28 PERL_SET_CONTEXT(sharedsv_space);\
30 #define SHAREDSvRELEASE(a) { PERL_SET_CONTEXT((a)->owner);\
32 MUTEX_UNLOCK(&sharedsv_space_mutex);\
34 #define SHAREDSvLOCK(a) Perl_sharedsv_lock(aTHX_ a)
35 #define SHAREDSvUNLOCK(a) Perl_sharedsv_unlock(aTHX_ a)
37 #endif /* USE_ITHREADS */