diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-08-07 05:59:50 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-08-08 04:33:32 +0200 |
commit | 97d3a89195c8aeb981a7f4171b939c48ec4bdfaa (patch) | |
tree | d7f4c9d6124a0a408be5d1e1003f44e33e14b5eb /src/vhdl/vhdl-sem_stmts.adb | |
parent | 4e3f3f744ede1b4d6ad419383015dd6c78be1009 (diff) | |
download | ghdl-97d3a89195c8aeb981a7f4171b939c48ec4bdfaa.tar.gz ghdl-97d3a89195c8aeb981a7f4171b939c48ec4bdfaa.tar.bz2 ghdl-97d3a89195c8aeb981a7f4171b939c48ec4bdfaa.zip |
vhdl: remove severity from cover, report and severity from assume.
Diffstat (limited to 'src/vhdl/vhdl-sem_stmts.adb')
-rw-r--r-- | src/vhdl/vhdl-sem_stmts.adb | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/src/vhdl/vhdl-sem_stmts.adb b/src/vhdl/vhdl-sem_stmts.adb index 545a543c7..848baeeb2 100644 --- a/src/vhdl/vhdl-sem_stmts.adb +++ b/src/vhdl/vhdl-sem_stmts.adb @@ -925,8 +925,7 @@ package body Vhdl.Sem_Stmts is end if; end Sem_Return_Statement; - -- Sem for concurrent and sequential assertion statements. - procedure Sem_Report_Statement (Stmt : Iir) + procedure Sem_Report_Expression (Stmt : Iir) is Expr : Iir; begin @@ -937,6 +936,14 @@ package body Vhdl.Sem_Stmts is Expr := Eval_Expr_If_Static (Expr); Set_Report_Expression (Stmt, Expr); end if; + end Sem_Report_Expression; + + -- Sem for concurrent and sequential assertion statements. + procedure Sem_Report_Statement (Stmt : Iir) + is + Expr : Iir; + begin + Sem_Report_Expression (Stmt); Expr := Get_Severity_Expression (Stmt); if Expr /= Null_Iir then |