|
@@ -564,6 +564,8 @@ begin
|
|
tmpentry := PopThreadQueueHead;
|
|
tmpentry := PopThreadQueueHead;
|
|
while Assigned(tmpentry) do
|
|
while Assigned(tmpentry) do
|
|
begin
|
|
begin
|
|
|
|
+ { at least one method is handled, so return true }
|
|
|
|
+ result := true;
|
|
{ step 2: execute the method }
|
|
{ step 2: execute the method }
|
|
exceptobj := Nil;
|
|
exceptobj := Nil;
|
|
try
|
|
try
|