pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

multithreadprocs: fixed healper thread waiting for new work

Browse Source 
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
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/multithreadprocs/mtprocs.pas
View File

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