From 88bf70ddad663558df6e83dce8f369f639fc7dd6 Mon Sep 17 00:00:00 2001
From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Wed, 12 Nov 1997 02:45:15 +0000
Subject: Fixup Win32 - #undef start_env before re-#defining it - change
 pp_specific pp_threadsv in global.sym - re-build embed.h - avoid
 HAVE_THREAD_INTERN - we don't and empty struct   is a pain. If we did have it
 it would contain cached   values of things we can only get at _IN_ the thread
   so new_struct_thread is wrong place to call it. - add new macro
 SET_THREAD_SELF - we must (in main thread)   define in win32thread.h, support
 in win32thread.c,   test and call in perl.c

p4raw-id: //depot/ansiperl@237
---
 perl.c | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'perl.c')

diff --git a/perl.c b/perl.c
index 7264648fbf..7b49b7b1ee 100644
--- a/perl.c
+++ b/perl.c
@@ -2843,6 +2843,10 @@ init_main_thread()
 
 #ifdef HAVE_THREAD_INTERN
     init_thread_intern(thr);
+#endif
+
+#ifdef SET_THREAD_SELF
+    SET_THREAD_SELF(thr);
 #else
     thr->self = pthread_self();
 #endif /* HAVE_THREAD_INTERN */
-- 
cgit v1.2.1