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

* Removed unused private procedure ThreadTerminated

Browse Source 
* Send control codes to daemon thread, solves problems responding to external signals

git-svn-id: trunk@13013 -
This commit is contained in:
joost 2009-04-15 15:16:44 +00:00
parent 284f689c5d
commit 1ff5458a91
2 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -122,7 +122,6 @@ Type
FSysData : TObject; FSysData : TObject;
FParams : TStrings; FParams : TStrings;
FCheckPoint : DWord; FCheckPoint : DWord;
procedure ThreadTerminated(Sender: TObject);
Public Public
Constructor Create(AOwner : TComponent); override; Constructor Create(AOwner : TComponent); override;
Destructor Destroy; override; Destructor Destroy; override;

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

@ -150,6 +150,7 @@ procedure TDaemonController.Controller(ControlCode, EventType: DWord;
begin begin
// Send control code to daemon thread. // Send control code to daemon thread.
TDaemonThread(Daemon.DaemonThread).HandleControlCode(ControlCode);
end; end;
function TDaemonController.ReportStatus: Boolean; function TDaemonController.ReportStatus: Boolean;
@ -166,12 +167,6 @@ begin
Application.Logger.Info(S); Application.Logger.Info(S);
end; end;
Procedure TDaemonController.ThreadTerminated(Sender : TObject);
begin
end;
{ --------------------------------------------------------------------- { ---------------------------------------------------------------------
Global initialization/Finalization Global initialization/Finalization
---------------------------------------------------------------------} ---------------------------------------------------------------------}