diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-09-07 14:20:34 +0200 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-09-07 14:20:34 +0200 |
| commit | 54846ce3ee63b8fff66ac5bf27d1c89ac701ed94 (patch) | |
| tree | 305a5d18e95f1513c4d160467786c5527cbb634c /riscV/Asmgenproof1.v | |
| parent | d84a003dc41c1ce572e86f399f5a610a78eda15f (diff) | |
| download | compcert-kvx-54846ce3ee63b8fff66ac5bf27d1c89ac701ed94.tar.gz compcert-kvx-54846ce3ee63b8fff66ac5bf27d1c89ac701ed94.zip | |
fix for Risc-V
Diffstat (limited to 'riscV/Asmgenproof1.v')
| -rw-r--r-- | riscV/Asmgenproof1.v | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/riscV/Asmgenproof1.v b/riscV/Asmgenproof1.v index 98d5bd33..175e484f 100644 --- a/riscV/Asmgenproof1.v +++ b/riscV/Asmgenproof1.v @@ -1318,8 +1318,8 @@ Proof. Qed. Lemma transl_load_correct: - forall chunk addr args dst k c (rs: regset) m a v, - transl_load chunk addr args dst k = OK c -> + forall trap chunk addr args dst k c (rs: regset) m a v, + transl_load trap chunk addr args dst k = OK c -> eval_addressing ge rs#SP addr (map rs (map preg_of args)) = Some a -> Mem.loadv chunk m a = Some v -> exists rs', @@ -1327,7 +1327,8 @@ Lemma transl_load_correct: /\ rs'#(preg_of dst) = v /\ forall r, r <> PC -> r <> X31 -> r <> preg_of dst -> rs'#r = rs#r. Proof. - intros until v; intros TR EV LOAD. + intros until v; intros TR EV LOAD. + destruct trap; try (simpl in *; discriminate). assert (A: exists mk_instr, transl_memory_access mk_instr addr args k = OK c /\ forall base ofs rs, |