diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-20 09:38:39 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-20 09:38:39 +0000 |
| commit | 6b88bc9c1f6d4b32c70e7ef68f8c65266e431623 (patch) | |
| tree | fe4f20be7c31cd96c8757067c3aefe35ea971694 /win32/win32thread.c | |
| parent | 045c1f128ac729dc76c4da7e8ffe34bf12692b94 (diff) | |
| download | perl-6b88bc9c1f6d4b32c70e7ef68f8c65266e431623.tar.gz | |
complete s/foo/PL_foo/ changes (all escaped cases identified with
brute force search script). Result builds and passes all tests on
Solaris. win32 and PERL_OBJECT are still untested.
p4raw-id: //depot/perl@1578
Diffstat (limited to 'win32/win32thread.c')
| -rw-r--r-- | win32/win32thread.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/win32/win32thread.c b/win32/win32thread.c index e91830d38d..14ac5d7f42 100644 --- a/win32/win32thread.c +++ b/win32/win32thread.c @@ -18,7 +18,7 @@ Perl_setTHR(struct perl_thread *t) #ifdef USE_DECLSPEC_THREAD Perl_current_thread = t; #else - TlsSetValue(thr_key,t); + TlsSetValue(PL_thr_key,t); #endif #endif } @@ -30,7 +30,7 @@ Perl_getTHR(void) #ifdef USE_DECLSPEC_THREAD return Perl_current_thread; #else - return (struct perl_thread *) TlsGetValue(thr_key); + return (struct perl_thread *) TlsGetValue(PL_thr_key); #endif #else return NULL; @@ -43,7 +43,7 @@ Perl_alloc_thread_key(void) #ifdef USE_THREADS static int key_allocated = 0; if (!key_allocated) { - if ((thr_key = TlsAlloc()) == TLS_OUT_OF_INDEXES) + if ((PL_thr_key = TlsAlloc()) == TLS_OUT_OF_INDEXES) croak("panic: TlsAlloc"); key_allocated = 1; } |