diff options
Diffstat (limited to 'src/simul/simul-vhdl_elab.adb')
| -rw-r--r-- | src/simul/simul-vhdl_elab.adb | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/simul/simul-vhdl_elab.adb b/src/simul/simul-vhdl_elab.adb index 68135502c..b131d5462 100644 --- a/src/simul/simul-vhdl_elab.adb +++ b/src/simul/simul-vhdl_elab.adb @@ -26,8 +26,6 @@ with Synth.Vhdl_Stmts; with Synth.Vhdl_Decls; with Trans_Analyzes; -with Elab.Vhdl_Decls; - with Simul.Vhdl_Debug; package body Simul.Vhdl_Elab is @@ -946,7 +944,8 @@ package body Simul.Vhdl_Elab is Proc_Inst := Make_Elab_Instance (Processes_Table.Table (I).Inst, Proc, Null_Node); Processes_Table.Table (I).Inst := Proc_Inst; - Elab.Vhdl_Decls.Elab_Declarations + Set_Instance_Const (Proc_Inst, True); + Synth.Vhdl_Decls.Synth_Declarations (Proc_Inst, Get_Declaration_Chain (Proc), True); exit when Is_Error (Proc_Inst); end if; |