From e51be08cd133e445df030cfe657b7c93c6b0f300 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Thu, 19 Jan 2023 06:36:15 +0100 Subject: elab-vhdl_debug: disp generate block declarations --- src/synth/elab-vhdl_debug.adb | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'src/synth') diff --git a/src/synth/elab-vhdl_debug.adb b/src/synth/elab-vhdl_debug.adb index 029e01e93..8981d2ffb 100644 --- a/src/synth/elab-vhdl_debug.adb +++ b/src/synth/elab-vhdl_debug.adb @@ -621,10 +621,10 @@ package body Elab.Vhdl_Debug is (Inst, Get_Generic_Chain (Ent), Cfg.Indent); Disp_Declaration_Objects (Inst, Get_Port_Chain (Ent), Cfg.Indent); - Put_Indent (Cfg.Indent); - Put_Line ("[architecture]"); Disp_Declaration_Objects (Inst, Get_Declaration_Chain (Ent), Cfg.Indent); + Put_Indent (Cfg.Indent); + Put_Line ("[architecture]"); Disp_Declaration_Objects (Inst, Get_Declaration_Chain (N), Cfg.Indent); end if; @@ -644,6 +644,8 @@ package body Elab.Vhdl_Debug is Put ("generate statement body"); -- TODO: disp label or index ? New_Line; + Disp_Declaration_Objects + (Inst, Get_Declaration_Chain (N), Cfg.Indent + 1); Disp_Hierarchy_Statements (Inst, Get_Concurrent_Statement_Chain (N), Cfg); when Iir_Kind_Block_Statement => -- cgit v1.2.3