From 26b0d55583c1454ad32d17d262d2b4577d0bf6c5 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Thu, 5 Jan 2023 07:59:28 +0100 Subject: elab-debugger: fix crash on backtrace in concurrent statement --- src/synth/elab-debugger.adb | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/synth/elab-debugger.adb b/src/synth/elab-debugger.adb index 8e19f79e1..c82e854a8 100644 --- a/src/synth/elab-debugger.adb +++ b/src/synth/elab-debugger.adb @@ -314,7 +314,8 @@ package body Elab.Debugger is Decl := Get_Subprogram_Specification (Decl); exit; when Iir_Kind_Process_Statement - | Iir_Kind_Sensitized_Process_Statement => + | Iir_Kind_Sensitized_Process_Statement + | Iir_Kind_Architecture_Body => Put_Line ("processes have no parameters"); return; when Iir_Kind_While_Loop_Statement @@ -344,7 +345,8 @@ package body Elab.Debugger is | Iir_Kind_Function_Body | Iir_Kind_Process_Statement | Iir_Kind_Sensitized_Process_Statement - | Iir_Kind_Generate_Statement_Body => + | Iir_Kind_Generate_Statement_Body + | Iir_Kind_Architecture_Body => Decls := Get_Declaration_Chain (Decl); exit; when Iir_Kind_While_Loop_Statement -- cgit v1.2.3