make PerlIO default on VMS
[perl.git] / sharedsv.h
1 #ifdef USE_ITHREADS
2
3 typedef struct {
4     SV                 *sv;             /* The actual SV */
5     perl_mutex          mutex;          /* Our mutex */
6     perl_cond           cond;           /* Our condition variable */
7     perl_cond           user_cond;      /* For user-level conditions */
8     IV                  locks;          /* Number of locks held */
9     PerlInterpreter    *owner;          /* Who owns the lock? */
10 } shared_sv;
11
12 #define SHAREDSvGET(a)      (a->sv)
13 #define SHAREDSvLOCK(a)     Perl_sharedsv_lock(aTHX_ a)
14 #define SHAREDSvUNLOCK(a)   Perl_sharedsv_unlock(aTHX_ a)
15
16 #define SHAREDSvEDIT(a)     STMT_START {                                \
17                                 MUTEX_LOCK(&PL_sharedsv_space_mutex);   \
18                                 SHAREDSvLOCK((a));                      \
19                                 PERL_SET_CONTEXT(PL_sharedsv_space);    \
20                             } STMT_END
21
22 #define SHAREDSvRELEASE(a)  STMT_START {                                \
23                                 PERL_SET_CONTEXT((a)->owner);           \
24                                 SHAREDSvUNLOCK((a));                    \
25                                 MUTEX_UNLOCK(&PL_sharedsv_space_mutex); \
26                             } STMT_END
27
28 #endif /* USE_ITHREADS */