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