diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1997-11-29 17:49:04 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1997-11-29 17:49:04 +0000 |
| commit | 4c36ecb7bb90b0ff73777a2addf5e8968d98eec5 (patch) | |
| tree | 5d5c6f36e04553869fcee187be7bd4c12ba0d494 /win32/win32thread.c | |
| parent | dc86dda37b501f4e7680b77deeb8555508939782 (diff) | |
| download | perl-4c36ecb7bb90b0ff73777a2addf5e8968d98eec5.tar.gz | |
Non-threaded build fix
p4raw-id: //depot/ansiperl@334
Diffstat (limited to 'win32/win32thread.c')
| -rw-r--r-- | win32/win32thread.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/win32/win32thread.c b/win32/win32thread.c index d62dadd1e3..0dd3e77f47 100644 --- a/win32/win32thread.c +++ b/win32/win32thread.c @@ -8,21 +8,27 @@ __declspec(thread) struct perl_thread *Perl_current_thread = NULL; void Perl_setTHR(struct perl_thread *t) { +#ifdef USE_THREADS #ifdef USE_DECLSPEC_THREAD Perl_current_thread = t; #else TlsSetValue(thr_key,t); #endif +#endif } struct perl_thread * Perl_getTHR(void) { +#ifdef USE_THREADS #ifdef USE_DECLSPEC_THREAD return Perl_current_thread; #else return (struct perl_thread *) TlsGetValue(thr_key); #endif +#else + return NULL; +#endif } void |