diff options
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 922bef4a5c..3e63327638 100644 --- a/win32/win32thread.c +++ b/win32/win32thread.c @@ -1,6 +1,20 @@ #include "EXTERN.h" #include "perl.h" +__declspec(thread) struct thread *Perl_current_thread = NULL; + +void +Perl_setTHR(struct thread *t) +{ + Perl_current_thread = t; +} + +struct thread * +Perl_getTHR(void) +{ + return Perl_current_thread; +} + void Perl_alloc_thread_key(void) { |