diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2021-02-02 12:55:37 +0000 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2021-02-02 12:55:37 +0000 |
| commit | cf9323858362f2c7d4f1ecd99c7bf93d30cf5ea3 (patch) | |
| tree | 4809a93cbeedeed48d062efa1c434da458c6d7e3 /src/hls/RTLPargen.v | |
| parent | 3b77ad9c0f3c52ba1cc02f954ee5bc2b63f51366 (diff) | |
| download | vericert-cf9323858362f2c7d4f1ecd99c7bf93d30cf5ea3.tar.gz vericert-cf9323858362f2c7d4f1ecd99c7bf93d30cf5ea3.zip | |
Add Vrange and predicates
Diffstat (limited to 'src/hls/RTLPargen.v')
| -rw-r--r-- | src/hls/RTLPargen.v | 9 |
1 files changed, 5 insertions, 4 deletions
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. (*| |