diff options
| author | Tristan Gingold <tgingold@free.fr> | 2023-01-18 21:32:59 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2023-01-20 21:54:35 +0100 |
| commit | 418800b56e3296eec94e56707ebad7dcd1d1c6ee (patch) | |
| tree | 3dc316321d3bdef39629dc57dde9651e276b9f2b /src/synth/elab-vhdl_context.adb | |
| parent | a53b01b53c3c8225a832e8f20d019ac39d68ce38 (diff) | |
| download | ghdl-418800b56e3296eec94e56707ebad7dcd1d1c6ee.tar.gz ghdl-418800b56e3296eec94e56707ebad7dcd1d1c6ee.tar.bz2 ghdl-418800b56e3296eec94e56707ebad7dcd1d1c6ee.zip | |
synth: create sub-instace for processes
Diffstat (limited to 'src/synth/elab-vhdl_context.adb')
| -rw-r--r-- | src/synth/elab-vhdl_context.adb | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/synth/elab-vhdl_context.adb b/src/synth/elab-vhdl_context.adb index 99f3efb1d..7b905f663 100644 --- a/src/synth/elab-vhdl_context.adb +++ b/src/synth/elab-vhdl_context.adb @@ -484,6 +484,16 @@ package body Elab.Vhdl_Context is return Syn_Inst.Objects (Info.Inst_Slot).I_Inst; end Get_Sub_Instance; + procedure Set_Sub_Instance (Syn_Inst : Synth_Instance_Acc; + Stmt : Node; + Sub_Inst : Synth_Instance_Acc) + is + Info : constant Sim_Info_Acc := Get_Ann (Stmt); + begin + pragma Assert (Syn_Inst.Objects (Info.Inst_Slot).I_Inst = null); + Syn_Inst.Objects (Info.Inst_Slot).I_Inst := Sub_Inst; + end Set_Sub_Instance; + function Get_Component_Instance (Syn_Inst : Synth_Instance_Acc) return Synth_Instance_Acc is |