From fe06668f0de56635efe55310d7a64289a37c1d90 Mon Sep 17 00:00:00 2001
From: Yann Herklotz <git@yannherklotz.com>
Date: Thu, 14 Oct 2021 12:20:03 +0100
Subject: [sched] Fix passes with new predicates

---
 src/hls/HTLPargen.v | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/hls/HTLPargen.v')

diff --git a/src/hls/HTLPargen.v b/src/hls/HTLPargen.v
index 47e9467..64996c6 100644
--- a/src/hls/HTLPargen.v
+++ b/src/hls/HTLPargen.v
@@ -655,11 +655,12 @@ Definition add_control_instr_force (n : node) (st : stmnt) : mon unit :=
       (AssocMap.set n st s.(st_controllogic)))
    (add_control_instr_force_state_incr s n st).
 
-
 Fixpoint pred_expr (preg: reg) (p: pred_op) :=
   match p with
   | Pvar pred =>
     Vrange preg (Vlit (posToValue pred)) (Vlit (posToValue pred))
+  | Ptrue => Vlit (ZToValue 1)
+  | Pfalse => Vlit (ZToValue 0)
   | Pnot pred =>
     Vunop Vnot (pred_expr preg pred)
   | Pand p1 p2 =>
-- 
cgit