diff options
author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-07-24 14:57:53 +0000 |
---|---|---|
committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-07-24 14:57:53 +0000 |
commit | 12ca11f6c16e7b63e13bbf5bc251f214e8de5211 (patch) | |
tree | 2ad63340b2a0d6974dbb2bbf088695113f3c49b4 /toke.c | |
parent | f2134d958aef4e3c1a25fdd268452df90105e99b (diff) | |
download | perl-12ca11f6c16e7b63e13bbf5bc251f214e8de5211.tar.gz |
Start support for fake threads.
pp_lock now returns its argument.
p4raw-id: //depot/perl@41
Diffstat (limited to 'toke.c')
-rw-r--r-- | toke.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -5237,9 +5237,9 @@ U32 flags; curpad[0] = (SV*)newAV(); SvPADMY_on(curpad[0]); /* XXX Needed? */ CvOWNER(compcv) = 0; - New(666, CvMUTEXP(compcv), 1, pthread_mutex_t); + New(666, CvMUTEXP(compcv), 1, perl_mutex); MUTEX_INIT(CvMUTEXP(compcv)); - New(666, CvCONDP(compcv), 1, pthread_cond_t); + New(666, CvCONDP(compcv), 1, perl_cond); COND_INIT(CvCONDP(compcv)); #endif /* USE_THREADS */ @@ -5252,9 +5252,9 @@ U32 flags; CvOUTSIDE(compcv) = (CV*)SvREFCNT_inc((SV*)outsidecv); #ifdef USE_THREADS CvOWNER(compcv) = 0; - New(666, CvMUTEXP(compcv), 1, pthread_mutex_t); + New(666, CvMUTEXP(compcv), 1, perl_mutex); MUTEX_INIT(CvMUTEXP(compcv)); - New(666, CvCONDP(compcv), 1, pthread_cond_t); + New(666, CvCONDP(compcv), 1, perl_cond); COND_INIT(CvCONDP(compcv)); #endif /* USE_THREADS */ |