mtprocs: fixed fpc 2.7.1

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2727 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2013-04-18 23:24:25 +00:00
parent 5020d5a53f
commit 791f498b06
1 changed files with 1 additions and 1 deletions
--- a/components/multithreadprocs/mtprocs.pas
+++ b/components/multithreadprocs/mtprocs.pas
@ -341,7 +341,7 @@ var
  ok: Boolean;
  E: Exception;
 begin
-  CurrentThread:=Self;
+  MTProcs.CurrentThread:=Self;
  aPool:=Item.Group.Pool;
  ok:=false;
  try