From cc0be1be4d206adfa29faa96437019690fdc377c Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Thu, 25 Nov 2010 15:50:49 +0000
Subject: [PATCH] * Completely initialize threadvars when an external thread is
 detected. Needs still cleanup code (or a better thread
 initialization/finalization).

git-svn-id: trunk@16432 -
---
 rtl/win/systhrd.inc | 1 +
 1 file changed, 1 insertion(+)

diff --git a/rtl/win/systhrd.inc b/rtl/win/systhrd.inc
index 3c3bc336a6..69e3ded54d 100644
--- a/rtl/win/systhrd.inc
+++ b/rtl/win/systhrd.inc
@@ -181,6 +181,7 @@ CONST
           begin
             SysAllocateThreadVars;
             dataindex:=TlsGetValue(tlskey);
+            InitThread($1000000);
           end;
         SetLastError(errorsave);
 {$endif win32}