diff options
| author | Tristan Gingold <tgingold@free.fr> | 2023-01-19 06:36:15 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2023-01-20 21:54:37 +0100 |
| commit | e51be08cd133e445df030cfe657b7c93c6b0f300 (patch) | |
| tree | ff830a11ac8c88061c1324d55a9b631d9bca3d8b /src | |
| parent | 5472590a57942979080f3222fb08f3ad398bdf63 (diff) | |
| download | ghdl-e51be08cd133e445df030cfe657b7c93c6b0f300.tar.gz ghdl-e51be08cd133e445df030cfe657b7c93c6b0f300.tar.bz2 ghdl-e51be08cd133e445df030cfe657b7c93c6b0f300.zip | |
elab-vhdl_debug: disp generate block declarations
Diffstat (limited to 'src')
| -rw-r--r-- | src/synth/elab-vhdl_debug.adb | 6 |
1 files changed, 4 insertions, 2 deletions
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 => |