diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-29 04:53:00 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-29 04:53:00 +0000 |
| commit | ba869debd80c55cfae8e9d4de0991d62f9efcb9b (patch) | |
| tree | 73f5810de88203f0df413aee0bc7f3c94d686329 /win32/perlhost.h | |
| parent | d5c3ff09f505a33428a0772c6e16c91e1df4ce85 (diff) | |
| download | perl-ba869debd80c55cfae8e9d4de0991d62f9efcb9b.tar.gz | |
support fetching current interpreter from TLS under useithreads
p4raw-id: //depot/perl@5342
Diffstat (limited to 'win32/perlhost.h')
| -rw-r--r-- | win32/perlhost.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/win32/perlhost.h b/win32/perlhost.h index a748ead0b2..a3f4c28350 100644 --- a/win32/perlhost.h +++ b/win32/perlhost.h @@ -1650,7 +1650,7 @@ win32_start_child(LPVOID arg) #endif - PERL_SET_INTERP(my_perl); + PERL_SET_THX(my_perl); /* set $$ to pseudo id */ #ifdef PERL_SYNC_FORK @@ -1745,7 +1745,7 @@ PerlProcFork(struct IPerlProc* piPerl) new_perl->Isys_intern.internal_host = h; # ifdef PERL_SYNC_FORK id = win32_start_child((LPVOID)new_perl); - PERL_SET_INTERP(aTHXo); + PERL_SET_THX(aTHXo); # else # ifdef USE_RTL_THREAD_API handle = (HANDLE)_beginthreadex((void*)NULL, 0, win32_start_child, @@ -1754,7 +1754,7 @@ PerlProcFork(struct IPerlProc* piPerl) handle = CreateThread(NULL, 0, win32_start_child, (LPVOID)new_perl, 0, &id); # endif - PERL_SET_INTERP(aTHXo); /* XXX perl_clone*() set TLS */ + PERL_SET_THX(aTHXo); /* XXX perl_clone*() set TLS */ if (!handle) Perl_croak(aTHX_ "panic: pseudo fork() failed"); w32_pseudo_child_handles[w32_num_pseudo_children] = handle; |