From 9811a7d768316e95d4f07bb4877adaf9834ec499 Mon Sep 17 00:00:00 2001
From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Sat, 15 Nov 1997 19:52:53 +0000
Subject: Use __declspec(thread) var rather tha TslAlloc & co.

p4raw-id: //depot/ansiperl@257
---
 win32/win32thread.c | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'win32/win32thread.c')

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)
 {
-- 
cgit v1.2.1