diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-09-16 04:24:58 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-09-16 04:24:58 +0200 |
| commit | daa29e96da7ee3557d71005cd31c554f5fd74f34 (patch) | |
| tree | cbb43b15b54d6763f2ff4f0e9d6812a9df1393d6 /src/simul | |
| parent | a8fae0fb11d5dbe0a196af689301f48f5cca64ee (diff) | |
| download | ghdl-daa29e96da7ee3557d71005cd31c554f5fd74f34.tar.gz ghdl-daa29e96da7ee3557d71005cd31c554f5fd74f34.tar.bz2 ghdl-daa29e96da7ee3557d71005cd31c554f5fd74f34.zip | |
simul: improve error handling during elaboration
Diffstat (limited to 'src/simul')
| -rw-r--r-- | src/simul/simul-vhdl_elab.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/simul/simul-vhdl_elab.adb b/src/simul/simul-vhdl_elab.adb index 4296008eb..01cfc6b9a 100644 --- a/src/simul/simul-vhdl_elab.adb +++ b/src/simul/simul-vhdl_elab.adb @@ -984,6 +984,7 @@ package body Simul.Vhdl_Elab is Processes_Table.Table (I).Inst := Proc_Inst; Elab.Vhdl_Decls.Elab_Declarations (Proc_Inst, Get_Declaration_Chain (Proc), True); + exit when Is_Error (Proc_Inst); end if; end loop; Instance_Pool := null; |