diff options
Diffstat (limited to 'src/simul')
-rw-r--r-- | src/simul/simul-vhdl_elab.adb | 5 | ||||
-rw-r--r-- | src/simul/simul-vhdl_simul.adb | 4 |
2 files changed, 4 insertions, 5 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; diff --git a/src/simul/simul-vhdl_simul.adb b/src/simul/simul-vhdl_simul.adb index 28c13d941..2f3c2ef87 100644 --- a/src/simul/simul-vhdl_simul.adb +++ b/src/simul/simul-vhdl_simul.adb @@ -40,7 +40,6 @@ with Elab.Debugger; with Elab.Vhdl_Objtypes; use Elab.Vhdl_Objtypes; with Elab.Vhdl_Values; use Elab.Vhdl_Values; with Elab.Vhdl_Types; -with Elab.Vhdl_Decls; with Elab.Vhdl_Debug; with Trans_Analyzes; @@ -49,6 +48,7 @@ with Synth.Errors; with Synth.Vhdl_Stmts; use Synth.Vhdl_Stmts; with Synth.Vhdl_Expr; with Synth.Vhdl_Oper; +with Synth.Vhdl_Decls; with Synth.Vhdl_Static_Proc; with Synth.Flags; with Synth.Ieee.Std_Logic_1164; use Synth.Ieee.Std_Logic_1164; @@ -795,7 +795,7 @@ package body Simul.Vhdl_Simul is (Sub_Inst, Inst, Inter_Chain, Assoc_Chain); Process.Instance := Sub_Inst; - Elab.Vhdl_Decls.Elab_Declarations + Synth.Vhdl_Decls.Synth_Declarations (Sub_Inst, Get_Declaration_Chain (Bod), True); if Get_Suspend_Flag (Bod) then |