diff options
| author | Ondrej Ille <ondrej.ille@gmail.com> | 2021-03-20 11:35:48 +0100 |
|---|---|---|
| committer | tgingold <tgingold@users.noreply.github.com> | 2021-03-22 08:26:02 +0100 |
| commit | 9029a876c92a6469536585c64737e8ed1a8c9cac (patch) | |
| tree | 25158132c321e3c64311e56c2335925946fdf17c /src/vhdl | |
| parent | a3b788fa4f5cf8f5e39d07cbfc427c2f4f521cdc (diff) | |
| download | ghdl-9029a876c92a6469536585c64737e8ed1a8c9cac.tar.gz ghdl-9029a876c92a6469536585c64737e8ed1a8c9cac.tar.bz2 ghdl-9029a876c92a6469536585c64737e8ed1a8c9cac.zip | |
src: Add -Wpsl-uncovered option to optionally warn about uncovered PSL sequences at the end of simulation.
Diffstat (limited to 'src/vhdl')
| -rw-r--r-- | src/vhdl/translate/trans-chap9.adb | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/src/vhdl/translate/trans-chap9.adb b/src/vhdl/translate/trans-chap9.adb index 60b19d222..70ee8fa16 100644 --- a/src/vhdl/translate/trans-chap9.adb +++ b/src/vhdl/translate/trans-chap9.adb @@ -489,15 +489,17 @@ package body Trans.Chap9 is Ghdl_Location_Ptr_Node)); New_Procedure_Call (Assocs); - New_Else_Stmt (Blk); - - Start_Association (Assocs, Ghdl_Psl_Cover_Failed); - New_Association (Assocs, New_Obj_Value (Msg_Var)); - New_Association (Assocs, New_Lit (Get_Ortho_Literal - (Severity_Level_Error))); - New_Association (Assocs, New_Address (New_Obj (Loc), - Ghdl_Location_Ptr_Node)); - New_Procedure_Call (Assocs); + if Flags.Flag_Psl_Warn_Uncovered = True then + New_Else_Stmt (Blk); + + Start_Association (Assocs, Ghdl_Psl_Cover_Failed); + New_Association (Assocs, New_Obj_Value (Msg_Var)); + New_Association (Assocs, New_Lit (Get_Ortho_Literal + (Severity_Level_Warning))); + New_Association (Assocs, New_Address (New_Obj (Loc), + Ghdl_Location_Ptr_Node)); + New_Procedure_Call (Assocs); + end if; Finish_If_Stmt (Blk); |