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

* On shutdown, always terminate the TDaemonThread, not only in case of an exception

Browse Source 
git-svn-id: trunk@13059 -
This commit is contained in:
joost 2009-04-29 13:52:54 +00:00
parent 31e0852c4b
commit 1c8d79c57f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-base/src/daemonapp.pp
View File

@ -1220,7 +1220,7 @@ begin
FDaemon.Status:=csStopPending; FDaemon.Status:=csStopPending;
Try Try
Result:=FDaemon.ShutDown; Result:=FDaemon.ShutDown;
except finally
FDaemon.Status:=csStopped; FDaemon.Status:=csStopped;
Terminate; Terminate;
end; end;