From cf9323858362f2c7d4f1ecd99c7bf93d30cf5ea3 Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Tue, 2 Feb 2021 12:55:37 +0000 Subject: Add Vrange and predicates --- src/hls/RTLPargen.v | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'src/hls/RTLPargen.v') diff --git a/src/hls/RTLPargen.v b/src/hls/RTLPargen.v index 0b79d2d..8ff701f 100644 --- a/src/hls/RTLPargen.v +++ b/src/hls/RTLPargen.v @@ -148,7 +148,7 @@ Proof. generalize list_operation_eq; intro. generalize list_reg_eq; intro. generalize AST.ident_eq; intro. - decide equality. + repeat decide equality. Defined. Lemma cf_instr_eq: forall (x y : cf_instr), {x = y} + {x <> y}. @@ -569,12 +569,13 @@ Fixpoint list_translation (l : list reg) (f : forest) {struct l} : expression_li Definition update (f : forest) (i : instr) : forest := match i with | RBnop => f - | RBop op rl r => + | RBop p op rl r => f # (Reg r) <- (Eop op (list_translation rl f)) - | RBload chunk addr rl r => + | RBload p chunk addr rl r => f # (Reg r) <- (Eload chunk addr (list_translation rl f) (f # Mem)) - | RBstore chunk addr rl r => + | RBstore p chunk addr rl r => f # Mem <- (Estore (f # Mem) chunk addr (list_translation rl f) (f # (Reg r))) + | RBsetpred c addr p => f end. (*| -- cgit