diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-09-09 15:04:26 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-09-09 15:04:26 +0000 |
| commit | 77a005ab9f9f951511e847aba59fbf2ab1bb17e3 (patch) | |
| tree | 238d369e377ec323ac774f3e2fcdd6e61a4a3e7b /op.c | |
| parent | 1f5895a1c4980727163b32b39405e3fc770ace84 (diff) | |
| download | perl-77a005ab9f9f951511e847aba59fbf2ab1bb17e3.tar.gz | |
Rewrite synchronisation of subs/methods and add attrs
extension for specifying 'locked' and 'method' attributes.
p4raw-id: //depot/perl@56
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 11 |
1 files changed, 0 insertions, 11 deletions
@@ -2998,11 +2998,6 @@ CV *cv; Safefree(CvMUTEXP(cv)); CvMUTEXP(cv) = 0; } - if (CvCONDP(cv)) { - COND_DESTROY(CvCONDP(cv)); - Safefree(CvCONDP(cv)); - CvCONDP(cv) = 0; - } #endif /* USE_THREADS */ if (!CvXSUB(cv) && CvROOT(cv)) { @@ -3133,8 +3128,6 @@ CV* outside; #ifdef USE_THREADS New(666, CvMUTEXP(cv), 1, perl_mutex); MUTEX_INIT(CvMUTEXP(cv)); - New(666, CvCONDP(cv), 1, perl_cond); - COND_INIT(CvCONDP(cv)); CvOWNER(cv) = 0; #endif /* USE_THREADS */ CvFILEGV(cv) = CvFILEGV(proto); @@ -3375,8 +3368,6 @@ OP *block; CvOWNER(cv) = 0; New(666, CvMUTEXP(cv), 1, perl_mutex); MUTEX_INIT(CvMUTEXP(cv)); - New(666, CvCONDP(cv), 1, perl_cond); - COND_INIT(CvCONDP(cv)); #endif /* USE_THREADS */ if (ps) @@ -3582,8 +3573,6 @@ char *filename; #ifdef USE_THREADS New(666, CvMUTEXP(cv), 1, perl_mutex); MUTEX_INIT(CvMUTEXP(cv)); - New(666, CvCONDP(cv), 1, perl_cond); - COND_INIT(CvCONDP(cv)); CvOWNER(cv) = 0; #endif /* USE_THREADS */ CvFILEGV(cv) = gv_fetchfile(filename); |