diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1997-11-29 18:38:26 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1997-11-29 18:38:26 +0000 |
| commit | c53bd28a003b43d77a08bf70a3cb54001d1f4afe (patch) | |
| tree | 1bd925f336ec621412af1c931a2f82707dba7281 /win32/win32thread.c | |
| parent | 4c36ecb7bb90b0ff73777a2addf5e8968d98eec5 (diff) | |
| download | perl-c53bd28a003b43d77a08bf70a3cb54001d1f4afe.tar.gz | |
Avoid __declspec(thread) by default, for both scratch
return areas and THR stuff. Use struct thread intern instead.
p4raw-id: //depot/ansiperl@335
Diffstat (limited to 'win32/win32thread.c')
| -rw-r--r-- | win32/win32thread.c | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/win32/win32thread.c b/win32/win32thread.c index 0dd3e77f47..d3783f6857 100644 --- a/win32/win32thread.c +++ b/win32/win32thread.c @@ -45,6 +45,24 @@ Perl_alloc_thread_key(void) } void +Perl_init_thread_intern(struct perl_thread *thr) +{ +#ifdef USE_THREADS +#ifndef USE_DECLSPEC_THREAD + + /* + * Initialize port-specific per-thread data in thr->i + * as only things we have there are just static areas for + * return values we don't _need_ to do anything but + * this is good practice: + */ + memset(&thr->i,0,sizeof(thr->i)); + +#endif +#endif +} + +void Perl_set_thread_self(struct perl_thread *thr) { #ifdef USE_THREADS |