ghdlcomp: stop in case of errors on delayed checks.

1 files 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;