style: Using debug on Windows signal hook

ObjectPascal-Community · Dec 3, 2024 · 0722020 · 0722020
1 parent 43c82c7
commit 0722020
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/paslogbot.lpr b/src/paslogbot.lpr
@@ -40,7 +40,7 @@ procedure SignalHandler(signal: longint; info: psiginfo; context: psigcontext);
     SIGTERM, SIGINT:
       begin
         if signal = SIGINT then WriteLn;
-        debug('Received termination signal');
+        debug('Received termination signal.');
         if Assigned(Application) then
           Application.Terminate;
       end;
@@ -73,7 +73,7 @@ function ConsoleCtrlHandler(CtrlType: DWORD): BOOL; stdcall;
   case CtrlType of
     CTRL_C_EVENT, CTRL_BREAK_EVENT, CTRL_CLOSE_EVENT:
       begin
-        WriteLn('Received termination signal');
+        debug('Received termination signal.');
         if Assigned(Application) then
           Application.Terminate;
         Result := True;