From 6f2290abd601ab96ab934a8503ed96e8312dd728 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 30 Dec 2019 15:16:52 +0100 Subject: ams-vhdl: analyze, canon and print simultaneous procedural statements. --- src/vhdl/vhdl-canon.adb | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'src/vhdl/vhdl-canon.adb') diff --git a/src/vhdl/vhdl-canon.adb b/src/vhdl/vhdl-canon.adb index 95fe700d4..98d69901c 100644 --- a/src/vhdl/vhdl-canon.adb +++ b/src/vhdl/vhdl-canon.adb @@ -2278,6 +2278,17 @@ package body Vhdl.Canon is Clause := Get_Else_Clause (Clause); end loop; end; + when Iir_Kind_Simultaneous_Procedural_Statement => + Canon_Declarations (Top, Stmt, Null_Iir); + if Canon_Flag_Sequentials_Stmts then + declare + Stmts : Iir; + begin + Stmts := Get_Sequential_Statement_Chain (Stmt); + Stmts := Canon_Sequential_Stmts (Stmts); + Set_Sequential_Statement_Chain (Stmt, Stmts); + end; + end if; when others => Error_Kind ("canon_concurrent_statement", Stmt); -- cgit v1.2.3