diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-03-08 08:06:56 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-03-08 08:06:56 +0100 |
commit | 7ee7edde5087ca219b23fd6a65f6c3804cccaa83 (patch) | |
tree | fd3646658533b4058bcd9cdaecfa5507448f4fe1 /src/synth/elab-vhdl_context.ads | |
parent | 0ec2b140ac3ac7d0d754c6aaefe28c7c3cf11d28 (diff) | |
download | ghdl-7ee7edde5087ca219b23fd6a65f6c3804cccaa83.tar.gz ghdl-7ee7edde5087ca219b23fd6a65f6c3804cccaa83.tar.bz2 ghdl-7ee7edde5087ca219b23fd6a65f6c3804cccaa83.zip |
synth: add debug_bt
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; |