aboutsummaryrefslogtreecommitdiffstats
path: root/src/vhdl/vhdl-sem_stmts.adb
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2019-08-07 05:59:50 +0200
committerTristan Gingold <tgingold@free.fr>2019-08-08 04:33:32 +0200
commit97d3a89195c8aeb981a7f4171b939c48ec4bdfaa (patch)
treed7f4c9d6124a0a408be5d1e1003f44e33e14b5eb /src/vhdl/vhdl-sem_stmts.adb
parent4e3f3f744ede1b4d6ad419383015dd6c78be1009 (diff)
downloadghdl-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.adb11
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