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

* Patch from Steve Howe so daemon thread does not consume all CPU

Browse Source 
git-svn-id: trunk@9267 -
This commit is contained in:
michael 2007-11-17 12:42:02 +00:00
parent cb9608c149
commit efdddfd82c
1 changed files with 3 additions and 0 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,7 +1137,10 @@ 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;