From c59ca34a1d9b2d810d8335a77ecbd8b5e78f550a Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 30 Jan 2023 18:47:45 +0100
Subject: elab-vhdl_debug: avoid a crash for lh

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

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