diff options
| -rw-r--r-- | src/synth/elab-vhdl_context.adb | 6 | ||||
| -rw-r--r-- | src/synth/elab-vhdl_context.ads | 4 |
2 files changed, 10 insertions, 0 deletions
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; |