diff options
Diffstat (limited to 'src/ghdldrv')
-rw-r--r-- | src/ghdldrv/ghdlsimul.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/ghdldrv/ghdlsimul.adb b/src/ghdldrv/ghdlsimul.adb index 41dac66d2..bdc5ef6c8 100644 --- a/src/ghdldrv/ghdlsimul.adb +++ b/src/ghdldrv/ghdlsimul.adb @@ -94,16 +94,16 @@ package body Ghdlsimul is Inst := Elab.Vhdl_Insts.Elab_Top_Unit (Lib_Unit); if Errorout.Nbr_Errors > 0 then - if Grt.Errors.Expect_Failure then - return; - else - raise Errorout.Compilation_Error; - end if; + raise Errorout.Compilation_Error; end if; Simul.Vhdl_Elab.Gather_Processes (Inst); Simul.Vhdl_Elab.Elab_Processes; + if Errorout.Nbr_Errors > 0 then + raise Errorout.Compilation_Error; + end if; + if False then Elab.Vhdl_Debug.Disp_Hierarchy (Inst, False, True); end if; |