diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-29 15:31:56 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-29 15:31:56 +0000 |
| commit | 06d860507700419d9cf04cbf3dc2f06c906c546d (patch) | |
| tree | 8cf20c308c4beb843b67663140aa6724ac74587d /ext/Thread/Thread.xs | |
| parent | 1b1e14d34a33bfe0df591910cafcab54421ca8a8 (diff) | |
| download | perl-06d860507700419d9cf04cbf3dc2f06c906c546d.tar.gz | |
more adjustments needed for change#5342 under use5005threads
p4raw-link: @5342 on //depot/perl: ba869debd80c55cfae8e9d4de0991d62f9efcb9b
p4raw-id: //depot/perl@5351
Diffstat (limited to 'ext/Thread/Thread.xs')
| -rw-r--r-- | ext/Thread/Thread.xs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ext/Thread/Thread.xs b/ext/Thread/Thread.xs index 6cc1081c40..4b5e6db9f8 100644 --- a/ext/Thread/Thread.xs +++ b/ext/Thread/Thread.xs @@ -98,7 +98,7 @@ threadstart(void *arg) DEBUG_S(PerlIO_printf(Perl_debug_log, "new thread %p waiting to start\n", thr)); - /* Don't call *anything* requiring dTHR until after SET_THR() */ + /* Don't call *anything* requiring dTHR until after PERL_SET_THX() */ /* * Wait until our creator releases us. If we didn't do this, then * it would be potentially possible for out thread to carry on and @@ -114,7 +114,7 @@ threadstart(void *arg) * from our pthread_t structure to our struct perl_thread, since * we're the only thread who can get at it anyway. */ - SET_THR(thr); + PERL_SET_THX(thr); /* Only now can we use SvPEEK (which calls sv_newmortal which does dTHR) */ DEBUG_S(PerlIO_printf(Perl_debug_log, "new thread %p starting at %s\n", @@ -252,7 +252,7 @@ newthread (pTHX_ SV *startsv, AV *initargs, char *classname) * XPUSHs() below want to grow the child's stack. This is * safe, since the other thread is not yet created, and we * are the only ones who know about it */ - SET_THR(thr); + PERL_SET_THX(thr); SPAGAIN; DEBUG_S(PerlIO_printf(Perl_debug_log, "%p: newthread (%p), tid is %u, preparing stack\n", @@ -266,7 +266,7 @@ newthread (pTHX_ SV *startsv, AV *initargs, char *classname) PUTBACK; /* On your marks... */ - SET_THR(savethread); + PERL_SET_THX(savethread); MUTEX_LOCK(&thr->mutex); #ifdef THREAD_CREATE |