* Removed unused private procedure ThreadTerminated

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

git-svn-id: trunk@13013 -

packages/fcl-base/src/daemonapp.pp

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

packages/fcl-base/src/unix/daemonapp.inc

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