diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-09-17 19:14:54 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-09-17 19:14:54 +0200 |
commit | 9756cfb38ea8ed8e9d1e92354ec8849b16bb00f1 (patch) | |
tree | 6745d259c00e6e5827bf00ab7a7165e90e30bd1e /src/simul/simul-vhdl_elab.adb | |
parent | 69ee33d1f0e4559b868068c955ef9c24f0438a11 (diff) | |
download | ghdl-9756cfb38ea8ed8e9d1e92354ec8849b16bb00f1.tar.gz ghdl-9756cfb38ea8ed8e9d1e92354ec8849b16bb00f1.tar.bz2 ghdl-9756cfb38ea8ed8e9d1e92354ec8849b16bb00f1.zip |
simul: use synth_declarations for processes and procedures
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; |