diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-05-27 09:56:56 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-05-27 09:56:56 +0200 |
| commit | 59f8a3d59f23bd787c95d5ba3258e3a0384dd61c (patch) | |
| tree | 3152dc854c9f4e1002d3a44afef53be1de26078f /src/synth/elab-vhdl_debug.adb | |
| parent | ad82dc96d97f0728c8b8f6ab7efa0ab9aa51f469 (diff) | |
| download | ghdl-59f8a3d59f23bd787c95d5ba3258e3a0384dd61c.tar.gz ghdl-59f8a3d59f23bd787c95d5ba3258e3a0384dd61c.tar.bz2 ghdl-59f8a3d59f23bd787c95d5ba3258e3a0384dd61c.zip | |
synth: handle suspend state declaration and statement
Diffstat (limited to 'src/synth/elab-vhdl_debug.adb')
| -rw-r--r-- | src/synth/elab-vhdl_debug.adb | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/synth/elab-vhdl_debug.adb b/src/synth/elab-vhdl_debug.adb index 0f28b42d6..f15b63156 100644 --- a/src/synth/elab-vhdl_debug.adb +++ b/src/synth/elab-vhdl_debug.adb @@ -324,6 +324,15 @@ package body Elab.Vhdl_Debug is | Iir_Kind_Procedure_Body | Iir_Kind_Component_Declaration => null; + when Iir_Kind_Suspend_State_Declaration => + declare + Val : constant Valtyp := Get_Value (Instance, Decl); + begin + Put_Indent (Indent); + Put ("STATE: "); + Put_Int32 (Int32 (Read_I32 (Val.Val.Mem))); + New_Line; + end; when others => Vhdl.Errors.Error_Kind ("disp_declaration_object", Decl); end case; |