From 5472590a57942979080f3222fb08f3ad398bdf63 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 18 Jan 2023 21:43:30 +0100
Subject: elab-vhdl_debug: disp process declarations

---
 src/synth/elab-vhdl_debug.adb | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'src/synth/elab-vhdl_debug.adb')

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);
-- 
cgit v1.2.3