mtprocs: fixed compilation with fpc 2.7.1

git-svn-id: trunk@39953 -
This commit is contained in:
mattias 2013-01-24 16:11:41 +00:00
parent d3667cf091
commit b8696a6e20

View File

@ -341,7 +341,7 @@ var
ok: Boolean;
E: Exception;
begin
CurrentThread:=Self;
MTProcs.CurrentThread:=Self;
aPool:=Item.Group.Pool;
ok:=false;
try