diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1997-11-15 19:52:53 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1997-11-15 19:52:53 +0000 |
| commit | 9811a7d768316e95d4f07bb4877adaf9834ec499 (patch) | |
| tree | 66b997a871e9c48f9383c309a5e15e5d49a53aa9 /win32/win32thread.c | |
| parent | 0e8f3d24353da72545b4a12c255572c1a6a4eeeb (diff) | |
| download | perl-9811a7d768316e95d4f07bb4877adaf9834ec499.tar.gz | |
Use __declspec(thread) var rather tha TslAlloc & co.
p4raw-id: //depot/ansiperl@257
Diffstat (limited to 'win32/win32thread.c')
| -rw-r--r-- | win32/win32thread.c | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/win32/win32thread.c b/win32/win32thread.c index 4dbc750b05..eefa92c385 100644 --- a/win32/win32thread.c +++ b/win32/win32thread.c @@ -1,6 +1,20 @@ #include "EXTERN.h" #include "perl.h" +__declspec(thread) struct thread *current_thread; + +void +Perl_setTHR(struct thread *t) +{ + current_thread = t; +} + +struct thread * +Perl_getTHR(void) +{ + return current_thread; +} + void Perl_alloc_thread_key(void) { |