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.adb | |
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.adb')
-rw-r--r-- | src/synth/elab-vhdl_context.adb | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/src/synth/elab-vhdl_context.adb b/src/synth/elab-vhdl_context.adb index 97a849d21..032ab82b0 100644 --- a/src/synth/elab-vhdl_context.adb +++ b/src/synth/elab-vhdl_context.adb @@ -53,6 +53,7 @@ package body Elab.Vhdl_Context is Up_Block => null, Uninst_Scope => null, Source_Scope => Null_Node, + Caller => null, Config => Null_Node, Foreign => 0, Extra_Units => null, @@ -100,6 +101,7 @@ package body Elab.Vhdl_Context is Up_Block => Parent, Uninst_Scope => null, Source_Scope => Blk, + Caller => null, Config => Config, Foreign => 0, Extra_Units => null, @@ -140,6 +142,7 @@ package body Elab.Vhdl_Context is Up_Block => Parent, Uninst_Scope => null, Source_Scope => Blk, + Caller => null, Config => Config, Foreign => 0, Extra_Units => null, @@ -533,4 +536,18 @@ package body Elab.Vhdl_Context is Obj_Inst := Get_Instance_By_Scope (Syn_Inst, Info.Obj_Scope); return Obj_Inst.Objects (Info.Slot).T_Typ; end Get_Subtype_Object; + + procedure Set_Caller_Instance (Syn_Inst : Synth_Instance_Acc; + Caller : Synth_Instance_Acc) is + begin + pragma Assert (Syn_Inst.Caller = null); + Syn_Inst.Caller := Caller; + end Set_Caller_Instance; + + function Get_Caller_Instance (Syn_Inst : Synth_Instance_Acc) + return Synth_Instance_Acc is + begin + return Syn_Inst.Caller; + end Get_Caller_Instance; + end Elab.Vhdl_Context; |