paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-04 15:20:45 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Log continue result

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-02-20 10:37:46 +01:00 committed by Michael Van Canneyt
parent 6ac14de986
commit 64e7dcbc81
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/ctask.pas
View File

@ -230,6 +230,19 @@ begin
if m2<>nil then
firstwaiting:=m2;
end;
{$IFDEF DEBUG_CTASK}
Write(m.ToString,' state: ',m.state,', can continue: ',Result);
if result then
Writeln
else
begin
Write(' (First waiting: ');
If Assigned(FirstWaiting) then
Writeln(FirstWaiting.ToString,' )')
else
Writeln('<none>)');
end;
{$ENDIF}
end;
function ttask_handler.cancontinue(t : ttask_list; out firstwaiting : tmodule): boolean;