diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-05-14 19:47:39 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-05-14 19:49:32 +0200 |
| commit | 8a54756303708ce51dfe6093dde67e3463300cac (patch) | |
| tree | 90ff4dba4b6493fb8c52dc054b12131ce94c3f82 /src/synth/elab-vhdl_debug.ads | |
| parent | af71a811ea732ba04ab65c8813f198af13518bdd (diff) | |
| download | ghdl-8a54756303708ce51dfe6093dde67e3463300cac.tar.gz ghdl-8a54756303708ce51dfe6093dde67e3463300cac.tar.bz2 ghdl-8a54756303708ce51dfe6093dde67e3463300cac.zip | |
ghdlsimul: add and improve debugger
Diffstat (limited to 'src/synth/elab-vhdl_debug.ads')
| -rw-r--r-- | src/synth/elab-vhdl_debug.ads | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/src/synth/elab-vhdl_debug.ads b/src/synth/elab-vhdl_debug.ads index d7dc8cc84..e6ad47070 100644 --- a/src/synth/elab-vhdl_debug.ads +++ b/src/synth/elab-vhdl_debug.ads @@ -28,5 +28,17 @@ package Elab.Vhdl_Debug is procedure Disp_Declaration_Objects (Instance : Synth_Instance_Acc; Decl_Chain : Iir; Indent : Natural := 0); - procedure Disp_Hierarchy (Inst : Synth_Instance_Acc; With_Objs : Boolean); + procedure Disp_Hierarchy (Inst : Synth_Instance_Acc; + Recurse : Boolean; + With_Objs : Boolean); + + -- Get sub-instance NAME of INST. Return null if not found. + function Get_Sub_Instance_By_Name (Inst : Synth_Instance_Acc; Name : String) + return Synth_Instance_Acc; + + function Get_Instance_Path_Parent (Inst : Synth_Instance_Acc) + return Synth_Instance_Acc; + + -- Disp full path name of INST. + procedure Disp_Instance_Path (Inst : Synth_Instance_Acc); end Elab.Vhdl_Debug; |