diff options
| author | Tristan Gingold <tgingold@free.fr> | 2023-01-05 07:59:28 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2023-01-05 22:19:09 +0100 |
| commit | 26b0d55583c1454ad32d17d262d2b4577d0bf6c5 (patch) | |
| tree | fc94bac7d9044f61db16af4aef3bf36b4b08de29 /src | |
| parent | 7d9eb240cf987b16ff01beb92f4408b37a297c0d (diff) | |
| download | ghdl-26b0d55583c1454ad32d17d262d2b4577d0bf6c5.tar.gz ghdl-26b0d55583c1454ad32d17d262d2b4577d0bf6c5.tar.bz2 ghdl-26b0d55583c1454ad32d17d262d2b4577d0bf6c5.zip | |
elab-debugger: fix crash on backtrace in concurrent statement
Diffstat (limited to 'src')
| -rw-r--r-- | src/synth/elab-debugger.adb | 6 |
1 files changed, 4 insertions, 2 deletions
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 |