From b5f86659f859eac6a9e13a15387ec245f04bf968 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 30 Nov 2017 21:13:03 +0100
Subject: ghdl -i: stop on error.

Fix #474
---
 src/ghdldrv/ghdllocal.adb | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/ghdldrv/ghdllocal.adb b/src/ghdldrv/ghdllocal.adb
index ff3531c27..cf708d288 100644
--- a/src/ghdldrv/ghdllocal.adb
+++ b/src/ghdldrv/ghdllocal.adb
@@ -680,6 +680,8 @@ package body Ghdllocal is
    procedure Perform_Action (Cmd : in out Command_Import; Args : Argument_List)
    is
       pragma Unreferenced (Cmd);
+      use Errorout;
+
       Id : Name_Id;
       Design_File : Iir_Design_File;
       Unit : Iir;
@@ -711,6 +713,10 @@ package body Ghdllocal is
          end if;
       end loop;
 
+      if Nbr_Errors > 0 then
+         raise Compilation_Error;
+      end if;
+
       --  Analyze all files.
       if False then
          Design_File := Get_Design_File_Chain (Libraries.Work_Library);
@@ -734,7 +740,7 @@ package body Ghdllocal is
 
       Libraries.Save_Work_Library;
    exception
-      when Errorout.Compilation_Error =>
+      when Compilation_Error =>
          Error ("importation has failed due to compilation error");
          raise;
    end Perform_Action;
-- 
cgit v1.2.3