From ba126785e1ce562f242b1a104ada9cfb554f62e8 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Thu, 26 May 2022 13:37:28 +0200 Subject: vhdl-canon: add Canon_Add_Suspend_State --- src/vhdl/vhdl-annotations.adb | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'src/vhdl/vhdl-annotations.adb') 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; -- cgit v1.2.3