Browse Source

* Completely initialize threadvars when an external thread is detected. Needs still cleanup code (or a better thread initialization/finalization).

git-svn-id: trunk@16432 -
michael 14 years ago
parent
commit
cc0be1be4d
1 changed files with 1 additions and 0 deletions
  1. 1 0
      rtl/win/systhrd.inc

+ 1 - 0
rtl/win/systhrd.inc

@@ -181,6 +181,7 @@ CONST
           begin
           begin
             SysAllocateThreadVars;
             SysAllocateThreadVars;
             dataindex:=TlsGetValue(tlskey);
             dataindex:=TlsGetValue(tlskey);
+            InitThread($1000000);
           end;
           end;
         SetLastError(errorsave);
         SetLastError(errorsave);
 {$endif win32}
 {$endif win32}