diff options
| author | Tristan Gingold <tgingold@free.fr> | 2023-01-30 18:47:45 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2023-01-30 19:17:26 +0100 |
| commit | c59ca34a1d9b2d810d8335a77ecbd8b5e78f550a (patch) | |
| tree | 7194ea8fb8525fccf6939fcc0dac409c72c660f3 /src/synth | |
| parent | 0b096832e3e65dae2aead4deeee3709720cf6209 (diff) | |
| download | ghdl-c59ca34a1d9b2d810d8335a77ecbd8b5e78f550a.tar.gz ghdl-c59ca34a1d9b2d810d8335a77ecbd8b5e78f550a.tar.bz2 ghdl-c59ca34a1d9b2d810d8335a77ecbd8b5e78f550a.zip | |
elab-vhdl_debug: avoid a crash for lh
Diffstat (limited to 'src/synth')
| -rw-r--r-- | src/synth/elab-vhdl_debug.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/synth/elab-vhdl_debug.adb b/src/synth/elab-vhdl_debug.adb index 90751e8f6..44f642d1e 100644 --- a/src/synth/elab-vhdl_debug.adb +++ b/src/synth/elab-vhdl_debug.adb @@ -656,6 +656,9 @@ package body Elab.Vhdl_Debug is New_Line; Disp_Hierarchy_Statements (Inst, Get_Concurrent_Statement_Chain (N), Cfg); + when Iir_Kind_Process_Statement + | Iir_Kind_Sensitized_Process_Statement => + Disp_Hierarchy_Statement (Inst, N, Cfg); when others => Vhdl.Errors.Error_Kind ("disp_hierarchy", N); end case; |