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

Better for for checkcontrolmessage, based on Mattias Gaertner tip

Browse Source 
git-svn-id: trunk@9268 -
This commit is contained in:
michael 2007-11-17 12:47:12 +00:00
parent efdddfd82c
commit a8eb62ff54
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-base/src/inc/daemonapp.pp
View File

@ -1137,10 +1137,7 @@ begin
if not FDaemon.Execute then if not FDaemon.Execute then
begin begin
While Not Terminated do While Not Terminated do
begin
CheckControlMessage(True); CheckControlMessage(True);
Sleep(50);
end;
CheckControlMessage(False); CheckControlMessage(False);
end; end;
end; end;

2
packages/fcl-base/src/unix/daemonapp.inc
View File

@ -112,6 +112,8 @@ end;
procedure TDaemonThread.CheckControlMessage(WaitForMessage : Boolean); procedure TDaemonThread.CheckControlMessage(WaitForMessage : Boolean);
begin begin
If WaitForMessage then // Don't hog CPU.
Sleep(50);
end; end;