From c5df00481cca6bd2e9c9279d97ac78152562f496 Mon Sep 17 00:00:00 2001 From: Ondrej Ille Date: Sat, 20 Mar 2021 15:55:10 +0100 Subject: src: Fix notes on pull-request. --- src/flags.ads | 2 +- src/options.adb | 15 +++++++-------- src/vhdl/translate/trans-chap9.adb | 2 +- 3 files changed, 9 insertions(+), 10 deletions(-) diff --git a/src/flags.ads b/src/flags.ads index af99e3fe7..1507aca9c 100644 --- a/src/flags.ads +++ b/src/flags.ads @@ -160,7 +160,7 @@ package Flags is -- If True, warning is printed for each uncovered PSL cover points at the -- end of simulation - Flag_Psl_Warn_Uncovered : Boolean := False; + Flag_Psl_Report_Uncovered : Boolean := False; type On_Off_Auto_Type is (On, Off, Auto); diff --git a/src/options.adb b/src/options.adb index 7aa31e253..9724b9f00 100644 --- a/src/options.adb +++ b/src/options.adb @@ -102,7 +102,7 @@ package body Options is -- Handles -Wpsl-uncovered if Opt = "psl-uncovered" then - Flag_Psl_Warn_Uncovered := True; + Flag_Psl_Report_Uncovered := True; return Option_Ok; end if; @@ -297,18 +297,17 @@ package body Options is P (" -Werror turns warnings into errors"); P (" -Wpsl-uncovered Prints warning after simulation for each"); P (" uncovered PSL cover point."); - P (" Only valid with '-fpsl'"); -- P ("Simulation option:"); -- P (" --assert-level=LEVEL set the level which stop the"); -- P (" simulation. LEVEL is note, warning, error,"); -- P (" failure or none"); P ("Extensions:"); - P (" -fexplicit give priority to explicitly declared operator"); - P (" -frelaxed-rules relax some LRM rules"); - P (" -C --mb-comments allow multi-bytes chars in a comment"); - P (" --bootstrap allow --work=std"); - P (" --syn-binding use synthesis default binding rule"); - P (" -fpsl parse psl in comments"); + P (" -fexplicit give priority to explicitly declared operator"); + P (" -frelaxed-rules relax some LRM rules"); + P (" -C --mb-comments allow multi-bytes chars in a comment"); + P (" --bootstrap allow --work=std"); + P (" --syn-binding use synthesis default binding rule"); + P (" -fpsl parse psl in comments"); P ("Compilation list:"); P (" -l[sca] after semantics, canon or annotation"); P (" --lall -lX options apply to all files"); diff --git a/src/vhdl/translate/trans-chap9.adb b/src/vhdl/translate/trans-chap9.adb index b68b588fd..8fe0673e5 100644 --- a/src/vhdl/translate/trans-chap9.adb +++ b/src/vhdl/translate/trans-chap9.adb @@ -489,7 +489,7 @@ package body Trans.Chap9 is Ghdl_Location_Ptr_Node)); New_Procedure_Call (Assocs); - if Flags.Flag_Psl_Warn_Uncovered then + if Flags.Flag_Psl_Report_Uncovered then New_Else_Stmt (Blk); Start_Association (Assocs, Ghdl_Psl_Cover_Failed); -- cgit v1.2.3