vhdl-canon: add Canon_Add_Suspend_State

1 files changed, 6 insertions, 0 deletions

diff --git a/src/vhdl/vhdl-annotations.adb b/src/vhdl/vhdl-annotations.adb
index 8a6a6ffce..07ada1735 100644
--- a/src/vhdl/vhdl-annotations.adb
+++ b/src/vhdl/vhdl-annotations.adb
@@ -846,6 +846,9 @@ package body Vhdl.Annotations is
          when Iir_Kind_Psl_Default_Clock =>
             null;
 
+         when Iir_Kind_Suspend_State_Declaration =>
+            Create_Object_Info (Block_Info, Decl);
+
          when others =>
             Error_Kind ("annotate_declaration", Decl);
       end case;
@@ -968,6 +971,9 @@ package body Vhdl.Annotations is
                Annotate_Sequential_Statement_Chain
                  (Block_Info, Get_Sequential_Statement_Chain (Stmt));
 
+            when Iir_Kind_Suspend_State_Statement =>
+               null;
+
             when others =>
                Error_Kind ("annotate_sequential_statement_chain", Stmt);
          end case;