From 7d034fc52f6b15e743ca91e7b1a4314bf31623b9 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Fri, 16 Aug 2019 22:31:06 +0200 Subject: vhdl: parse verification unit (WIP). --- src/vhdl/vhdl-sem_psl.ads | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'src/vhdl/vhdl-sem_psl.ads') diff --git a/src/vhdl/vhdl-sem_psl.ads b/src/vhdl/vhdl-sem_psl.ads index 1cd02796e..f0f239778 100644 --- a/src/vhdl/vhdl-sem_psl.ads +++ b/src/vhdl/vhdl-sem_psl.ads @@ -22,12 +22,16 @@ package Vhdl.Sem_Psl is procedure Sem_Psl_Declaration (Stmt : Iir); procedure Sem_Psl_Endpoint_Declaration (Stmt : Iir); - -- May return a non-psl concurrent assertion statement. - function Sem_Psl_Assert_Directive (Stmt : Iir) return Iir; + -- May return a non-psl concurrent assertion statement iff CAN_REWRITE is + -- true. + function Sem_Psl_Assert_Directive + (Stmt : Iir; Can_Rewrite : Boolean) return Iir; procedure Sem_Psl_Assume_Directive (Stmt : Iir); procedure Sem_Psl_Cover_Directive (Stmt : Iir); procedure Sem_Psl_Restrict_Directive (Stmt : Iir); procedure Sem_Psl_Default_Clock (Stmt : Iir); function Sem_Psl_Name (Name : Iir) return Iir; + + procedure Sem_Psl_Verification_Unit (Unit : Iir); end Vhdl.Sem_Psl; -- cgit v1.2.3