From fee4a1b0d168f9d9af92f51dcd53fd27cc08490a Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Sat, 12 Jan 2019 03:49:46 +0100
Subject: [PATCH] indicates when a tool exits normally

---
 src/u_tools.pas | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/u_tools.pas b/src/u_tools.pas
index 69f359d4..d0da48b3 100644
--- a/src/u_tools.pas
+++ b/src/u_tools.pas
@@ -263,12 +263,17 @@ begin
   end;
   if (not fProcess.Running) then
   begin
-    if fProcess.ExitStatus > 0 then
+    if fProcess.ExitStatus <> 0 then
     begin
       fMsgs.message(format('error: the tool (%s) has returned the status %s',
         [fProcess.Executable, prettyReturnStatus(fProcess)]), nil, amcMisc, amkErr);
       u_processes.killProcess(fProcess);
       exit;
+    end
+    else
+    begin
+      fMsgs.message(format('the tool (%s) has finished normally',
+        [fProcess.Executable]), nil, amcMisc, amkBub);
     end;
     if fNextToolAlias.isNotEmpty then
     begin