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 /op.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 'op.c')
| -rw-r--r-- | op.c | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -3129,9 +3129,9 @@ CV* outside; CvANON_on(cv); #ifdef USE_THREADS - New(666, CvMUTEXP(cv), 1, pthread_mutex_t); + New(666, CvMUTEXP(cv), 1, perl_mutex); MUTEX_INIT(CvMUTEXP(cv)); - New(666, CvCONDP(cv), 1, pthread_cond_t); + New(666, CvCONDP(cv), 1, perl_cond); COND_INIT(CvCONDP(cv)); CvOWNER(cv) = 0; #endif /* USE_THREADS */ @@ -3371,9 +3371,9 @@ OP *block; CvSTASH(cv) = curstash; #ifdef USE_THREADS CvOWNER(cv) = 0; - New(666, CvMUTEXP(cv), 1, pthread_mutex_t); + New(666, CvMUTEXP(cv), 1, perl_mutex); MUTEX_INIT(CvMUTEXP(cv)); - New(666, CvCONDP(cv), 1, pthread_cond_t); + New(666, CvCONDP(cv), 1, perl_cond); COND_INIT(CvCONDP(cv)); #endif /* USE_THREADS */ @@ -3578,9 +3578,9 @@ char *filename; } CvGV(cv) = (GV*)SvREFCNT_inc(gv); #ifdef USE_THREADS - New(666, CvMUTEXP(cv), 1, pthread_mutex_t); + New(666, CvMUTEXP(cv), 1, perl_mutex); MUTEX_INIT(CvMUTEXP(cv)); - New(666, CvCONDP(cv), 1, pthread_cond_t); + New(666, CvCONDP(cv), 1, perl_cond); COND_INIT(CvCONDP(cv)); CvOWNER(cv) = 0; #endif /* USE_THREADS */ |