diff options
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 |