aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2023-01-18 21:43:30 +0100
committerTristan Gingold <tgingold@free.fr>2023-01-20 21:54:36 +0100
commit5472590a57942979080f3222fb08f3ad398bdf63 (patch)
treea87e8bc0f9fde6967e906a9b1f733b5f36774d76 /src
parent418800b56e3296eec94e56707ebad7dcd1d1c6ee (diff)
downloadghdl-5472590a57942979080f3222fb08f3ad398bdf63.tar.gz
ghdl-5472590a57942979080f3222fb08f3ad398bdf63.tar.bz2
ghdl-5472590a57942979080f3222fb08f3ad398bdf63.zip
elab-vhdl_debug: disp process declarations
Diffstat (limited to 'src')
-rw-r--r--src/synth/elab-vhdl_debug.adb10
1 files changed, 10 insertions, 0 deletions
diff --git a/src/synth/elab-vhdl_debug.adb b/src/synth/elab-vhdl_debug.adb
index 339c14932..029e01e93 100644
--- a/src/synth/elab-vhdl_debug.adb
+++ b/src/synth/elab-vhdl_debug.adb
@@ -570,6 +570,16 @@ package body Elab.Vhdl_Debug is
Put_Indent (Cfg.Indent);
Put (Image (Get_Label (Stmt)));
Put_Line (": process");
+ declare
+ Sub_Inst : constant Synth_Instance_Acc :=
+ Get_Sub_Instance (Inst, Stmt);
+ begin
+ if Sub_Inst /= null then
+ Disp_Declaration_Objects
+ (Sub_Inst, Get_Declaration_Chain (Stmt),
+ Cfg.Indent + 1);
+ end if;
+ end;
end if;
when others =>
Vhdl.Errors.Error_Kind ("disp_hierarchy_statement", Stmt);