From 2e99eb2a83307ab8e69bbfde9e57d94d1ad4499c Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Sat, 21 Jun 2014 02:55:48 +0200
Subject: ghdlcomp: stop in case of errors on delayed checks.

---
 translate/ghdldrv/ghdlcomp.adb | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/translate/ghdldrv/ghdlcomp.adb b/translate/ghdldrv/ghdlcomp.adb
index 1a07fc0..1d72394 100644
--- a/translate/ghdldrv/ghdlcomp.adb
+++ b/translate/ghdldrv/ghdlcomp.adb
@@ -321,10 +321,13 @@ package body Ghdlcomp is
             --  Do late analysis checks.
             Unit := Get_First_Design_Unit (New_Design_File);
             while Unit /= Null_Iir loop
-               Sem.Sem_Analysis_Checks_List
-                 (Unit, Flags.Warn_Delayed_Checks);
+               Sem.Sem_Analysis_Checks_List (Unit, Flags.Warn_Delayed_Checks);
                Unit := Get_Chain (Unit);
             end loop;
+
+            if Errorout.Nbr_Errors > 0 then
+               raise Compilation_Error;
+            end if;
          end if;
       end loop;
 
-- 
cgit