diff options
Diffstat (limited to 'src/synth/elab-vhdl_context.ads')
| -rw-r--r-- | src/synth/elab-vhdl_context.ads | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/synth/elab-vhdl_context.ads b/src/synth/elab-vhdl_context.ads index 8924da120..ea4d4cd67 100644 --- a/src/synth/elab-vhdl_context.ads +++ b/src/synth/elab-vhdl_context.ads @@ -162,6 +162,12 @@ package Elab.Vhdl_Context is procedure Set_Uninstantiated_Scope (Syn_Inst : Synth_Instance_Acc; Bod : Node); + + -- For debugging purpose: update the caller of an instance. + procedure Set_Caller_Instance (Syn_Inst : Synth_Instance_Acc; + Caller : Synth_Instance_Acc); + function Get_Caller_Instance (Syn_Inst : Synth_Instance_Acc) + return Synth_Instance_Acc; private type Obj_Kind is ( @@ -209,6 +215,10 @@ private -- Instance of the parent scope. Up_Block : Synth_Instance_Acc; + -- For a subprogram instance, the instance of the caller. + -- Used only fo debugging purpose. + Caller : Synth_Instance_Acc; + -- Source construct corresponding to this instance. Source_Scope : Node; |