mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-07 07:56:07 +02:00
mtprocs: fixed fpc 2.7.1
git-svn-id: trunk@40846 -
This commit is contained in:
parent
ea926c4e4b
commit
2e35b53a2a
@ -341,7 +341,7 @@ var
|
|||||||
ok: Boolean;
|
ok: Boolean;
|
||||||
E: Exception;
|
E: Exception;
|
||||||
begin
|
begin
|
||||||
MTProcs.CurrentThread:=Self;
|
CurrentThread:=Self;
|
||||||
aPool:=Item.Group.Pool;
|
aPool:=Item.Group.Pool;
|
||||||
ok:=false;
|
ok:=false;
|
||||||
try
|
try
|
||||||
|
Loading…
Reference in New Issue
Block a user