indicates when a tool exits normally

This commit is contained in:
Basile Burg 2019-01-12 03:49:46 +01:00
parent 37fef7a7b3
commit fee4a1b0d1
1 changed files with 6 additions and 1 deletions

View File

@ -263,12 +263,17 @@ begin
end; end;
if (not fProcess.Running) then if (not fProcess.Running) then
begin begin
if fProcess.ExitStatus > 0 then if fProcess.ExitStatus <> 0 then
begin begin
fMsgs.message(format('error: the tool (%s) has returned the status %s', fMsgs.message(format('error: the tool (%s) has returned the status %s',
[fProcess.Executable, prettyReturnStatus(fProcess)]), nil, amcMisc, amkErr); [fProcess.Executable, prettyReturnStatus(fProcess)]), nil, amcMisc, amkErr);
u_processes.killProcess(fProcess); u_processes.killProcess(fProcess);
exit; exit;
end
else
begin
fMsgs.message(format('the tool (%s) has finished normally',
[fProcess.Executable]), nil, amcMisc, amkBub);
end; end;
if fNextToolAlias.isNotEmpty then if fNextToolAlias.isNotEmpty then
begin begin