diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-11-25 15:42:07 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-11-25 15:42:07 +0000 |
| commit | 48bfcc53740a66ec5a66616b846e1db9955c1c69 (patch) | |
| tree | 2de7728957d83a013605f4f68638b4bbef4565a2 /win32/win32thread.c | |
| parent | fd206186f8bcdcb1b41bbddfb851c60acb937fcd (diff) | |
| parent | d40103885dfef00fdafa10024e6e4d5e414d1403 (diff) | |
| download | perl-48bfcc53740a66ec5a66616b846e1db9955c1c69.tar.gz | |
Integrate from ansi branch to mainline.
p4raw-id: //depot/perl@296
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) { |