From 4d114d994edd7710ae5b828fa801367a85b31175 Mon Sep 17 00:00:00 2001 From: "Michael[tm] Smith" Date: Fri, 18 Dec 2015 06:22:23 +0900 Subject: [PATCH] If errors were found, return exit status 1 on exit --- src/wattsi.pas | 1 + 1 file changed, 1 insertion(+) diff --git a/src/wattsi.pas b/src/wattsi.pas index 5cd6812..81c07a9 100644 --- a/src/wattsi.pas +++ b/src/wattsi.pas @@ -1174,6 +1174,7 @@ TCrossReferences = record if (Errors > 0) then begin Writeln('Error count: ', Errors); + ExitCode := 1; // raise EAbort.Create(IntToStr(Errors) + ' errors found.'); end; end;