diff options
| author | Tristan Gingold <tgingold@free.fr> | 2023-01-18 21:43:30 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2023-01-20 21:54:36 +0100 |
| commit | 5472590a57942979080f3222fb08f3ad398bdf63 (patch) | |
| tree | a87e8bc0f9fde6967e906a9b1f733b5f36774d76 /src | |
| parent | 418800b56e3296eec94e56707ebad7dcd1d1c6ee (diff) | |
| download | ghdl-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.adb | 10 |
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); |