From 68e5a0ad8c2637ea0009057b22fcb883893c6f34 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 5 Nov 2021 18:54:46 +0100
Subject: ghdlcomp: exit with error status in case of error. For #1908

---
 src/ghdldrv/ghdlcomp.adb | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/ghdldrv/ghdlcomp.adb b/src/ghdldrv/ghdlcomp.adb
index 541e8b7cb..d06da3510 100644
--- a/src/ghdldrv/ghdlcomp.adb
+++ b/src/ghdldrv/ghdlcomp.adb
@@ -755,6 +755,10 @@ package body Ghdlcomp is
       --  Create list of files.
       Files_List := Build_Dependence (Lib_Id, Prim_Id, Sec_Id);
 
+      if Errorout.Nbr_Errors /= 0 then
+         raise Errorout.Compilation_Error;
+      end if;
+
       --  Unmark all libraries.
       Lib := Libraries.Std_Library;
       while Lib /= Null_Iir loop
-- 
cgit v1.2.3