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

* Fix some debug output

Browse Source
This commit is contained in:
Michaël Van Canneyt 2021-08-18 22:24:41 +02:00
parent a68a6415f2
commit 5a6bea6180
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/fcl-base/src/fpthreadpool.pp
View File

@ -1,7 +1,7 @@
unit fpthreadpool;
unit fpthreadpool;
{$mode ObjFPC}{$H+}
{ $DEFINE DEBUGTHREADPOOL}
{$DEFINE DEBUGTHREADPOOL}
interface
@ -780,17 +780,15 @@ begin
T.Task:=aTask
else
begin
{$IFDEF DEBUGTHREADPOOL}DoLog('No available thread for task %s waiting %d to %d',[aTask.ToString,FAddWaitIntervalFAddTimeOut]);{$ENDIF}
Flush(output);
{$IFDEF DEBUGTHREADPOOL}DoLog('No available thread for task %s waiting %d to %d',[aTask.ToString,FAddWaitInterval,FAddTimeOut]);{$ENDIF}
if WaitStart=0 then
WaitStart:=Now;
Sleep(FAddWaitInterval);
TimeOut:=(FAddTimeOut>0) and (MillisecondsBetween(Now,WaitStart)>FAddTimeout);
{$IFDEF DEBUGTHREADPOOL}
If TimeOut then
begin
{$IFDEF DEBUGTHREADPOOL}DoLog('TimeOut reached: ',TimeOut);{$ENDIF}
Flush(output);
end;
DoLog('TimeOut reached: ',TimeOut);
{$ENDIF}
end;
Until Result or TimeOut;
end;