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

mtprocs: update for deprecated Thread.Resume

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1821 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
mgaertner
2011-08-20 17:12:50 +00:00
parent 4e0e6df655
commit a311002a2b
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/multithreadprocs/mtprocs.pas
View File

@@ -792,7 +792,11 @@ begin
AThread.AddToList(FFirstActiveThread,mtptlPool); AThread.AddToList(FFirstActiveThread,mtptlPool);
AThread.Item.FState:=mtptsActive; AThread.Item.FState:=mtptsActive;
if NewThread then if NewThread then
{$IF defined(VER2_4_2) or defined(VER2_4_3)}
AThread.Resume AThread.Resume
{$ELSE}
AThread.Start
{$ENDIF}
else else
RTLeventSetEvent(AThread.Item.fWaitForPool); RTLeventSetEvent(AThread.Item.fWaitForPool);
end; end;