multithreadprocs: fixed healper thread waiting for new work

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@929 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
mgaertner
2009-08-11 18:12:13 +00:00
parent e7fede2029
commit 26ae7bebdd

View File

@@ -311,12 +311,12 @@ var
ok: Boolean;
E: Exception;
begin
Group:=Item.Group;
aPool:=Group.Pool;
aPool:=Item.Group.Pool;
ok:=false;
try
repeat
// work
Group:=Item.Group;
Group.Run(Item.Index,Group.TaskData,Item);
aPool.EnterPoolCriticalSection;
@@ -352,7 +352,7 @@ begin
// wait for new work
if Item.FState=mtptsInactive then
RTLeventWaitFor(Item.fWaitForPool);
until Group=nil;
until Item.Group=nil;
ok:=true;
except
// stop the exception and store it