From d8a889da07af66bd4985682acaba98f7963460d0 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sat, 14 May 2022 19:45:52 +0200 Subject: elab-vhdl_context: add get_instance_parent --- src/synth/elab-vhdl_context.adb | 6 ++++++ src/synth/elab-vhdl_context.ads | 4 ++++ 2 files changed, 10 insertions(+) (limited to 'src') diff --git a/src/synth/elab-vhdl_context.adb b/src/synth/elab-vhdl_context.adb index e430561bf..fd37dcfd2 100644 --- a/src/synth/elab-vhdl_context.adb +++ b/src/synth/elab-vhdl_context.adb @@ -190,6 +190,12 @@ package body Elab.Vhdl_Context is return Inst.Source_Scope; end Get_Source_Scope; + function Get_Instance_Parent (Inst : Synth_Instance_Acc) + return Synth_Instance_Acc is + begin + return Inst.Up_Block; + end Get_Instance_Parent; + function Get_Instance_Const (Inst : Synth_Instance_Acc) return Boolean is begin return Inst.Is_Const; diff --git a/src/synth/elab-vhdl_context.ads b/src/synth/elab-vhdl_context.ads index 65591a37f..a98cf280d 100644 --- a/src/synth/elab-vhdl_context.ads +++ b/src/synth/elab-vhdl_context.ads @@ -79,6 +79,10 @@ package Elab.Vhdl_Context is -- Get the corresponding source for the scope of the instance. function Get_Source_Scope (Inst : Synth_Instance_Acc) return Node; + -- Get parent_instance. + function Get_Instance_Parent (Inst : Synth_Instance_Acc) + return Synth_Instance_Acc; + procedure Set_Instance_Config (Inst : Synth_Instance_Acc; Config : Node); function Get_Instance_Config (Inst : Synth_Instance_Acc) return Node; -- cgit v1.2.3