diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2021-10-24 19:59:22 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2021-10-24 19:59:22 +0100 |
| commit | d815eadb7027e11fb042cdef25c3952f3a947b64 (patch) | |
| tree | 5faf39a0231d313b8a9b87816a39b875fea2d00f /src/hls/HTLPargen.v | |
| parent | 934b137726cf0ef093db0a7bb8112326e29b256f (diff) | |
| download | vericert-d815eadb7027e11fb042cdef25c3952f3a947b64.tar.gz vericert-d815eadb7027e11fb042cdef25c3952f3a947b64.zip | |
Fix if-conversion and translation with Plit
Diffstat (limited to 'src/hls/HTLPargen.v')
| -rw-r--r-- | src/hls/HTLPargen.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/hls/HTLPargen.v b/src/hls/HTLPargen.v index e8b18dc..6058f62 100644 --- a/src/hls/HTLPargen.v +++ b/src/hls/HTLPargen.v @@ -658,7 +658,7 @@ Definition add_control_instr_force (n : node) (st : stmnt) : mon unit := Fixpoint pred_expr (preg: reg) (p: pred_op) := match p with - | Pvar (b, pred) => + | Plit (b, pred) => if b then Vrange preg (Vlit (posToValue pred)) (Vlit (posToValue pred)) else Vunop Vnot (Vrange preg (Vlit (posToValue pred)) (Vlit (posToValue pred))) @@ -696,7 +696,7 @@ Definition translate_inst a (fin rtrn stack preg : reg) (n : node) (i : instr) translate_predicate a preg p dst (Vvar src) | RBsetpred c args p => do cond <- translate_condition c args; - ret (a (pred_expr preg (Pvar (true, p))) cond) + ret (a (pred_expr preg (Plit (true, p))) cond) end. Lemma create_new_state_state_incr: |