diff options
Diffstat (limited to 'src/synth')
| -rw-r--r-- | src/synth/synth-flags.ads | 4 | ||||
| -rw-r--r-- | src/synth/synth-stmts.adb | 15 |
2 files changed, 13 insertions, 6 deletions
diff --git a/src/synth/synth-flags.ads b/src/synth/synth-flags.ads index f218f76fb..803e0d99d 100644 --- a/src/synth/synth-flags.ads +++ b/src/synth/synth-flags.ads @@ -72,5 +72,9 @@ package Synth.Flags is -- Synthesize PSL and assertions. Flag_Formal : Boolean := True; + -- If true, automatically add a cover on PSL asserts to know if the + -- asserted has been started. + Flag_Assert_Cover : Boolean := True; + Flag_Verbose : Boolean := False; end Synth.Flags; diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb index 1dc25d67c..c89cc7ca9 100644 --- a/src/synth/synth-stmts.adb +++ b/src/synth/synth-stmts.adb @@ -3339,14 +3339,17 @@ package body Synth.Stmts is -- Note: for synthesis, we assume the next state will be correct. -- (If we assert on States, then the first cycle is ignored). Synth_Psl_Dff (Syn_Inst, Stmt, Next_States); - if Next_States /= No_Net then - Lab := Synth_Label (Syn_Inst, Stmt); + if Next_States = No_Net then + return; + end if; + Lab := Synth_Label (Syn_Inst, Stmt); - Inst := Build_Assert - (Ctxt, Lab, - Synth_Psl_Not_Final (Syn_Inst, Stmt, Next_States)); - Set_Location (Inst, Get_Location (Stmt)); + Inst := Build_Assert + (Ctxt, Lab, Synth_Psl_Not_Final (Syn_Inst, Stmt, Next_States)); + Set_Location (Inst, Get_Location (Stmt)); + -- Also add a cover gate to cover assertion activation. + if Flags.Flag_Assert_Cover then Active := Get_Active_State (NFA); if Active /= No_State then if Lab /= No_Sname then |