paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 04:29:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* MOve update of threadqueuetail to critical section

Browse Source 
git-svn-id: trunk@30159 -
This commit is contained in:
michael 2015-03-10 08:12:39 +00:00
parent 21fe7616a4
commit af9798c761
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/objpas/classes/classes.inc
View File

@ -345,6 +345,8 @@ begin
Result:=ThreadQueueHead; Result:=ThreadQueueHead;
if Result<>Nil then if Result<>Nil then
ThreadQueueHead:=ThreadQueueHead^.Next; ThreadQueueHead:=ThreadQueueHead^.Next;
if Not Assigned(ThreadQueueHead) then
ThreadQueueTail := Nil;
finally finally
System.LeaveCriticalSection(ThreadQueueLock); System.LeaveCriticalSection(ThreadQueueLock);
end; end;
@ -373,9 +375,6 @@ begin
tmpentry := PopThreadQueueHead; tmpentry := PopThreadQueueHead;
while Assigned(tmpentry) do while Assigned(tmpentry) do
begin begin
{ step 1: update the list }
if not Assigned(ThreadQueueHead) then
ThreadQueueTail := Nil;
{ step 2: execute the method } { step 2: execute the method }
exceptobj := Nil; exceptobj := Nil;
try try