diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-05-01 18:59:57 +0200 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-05-01 18:59:57 +0200 |
commit | aea7e3d6a6b09727724edfa11358111c9a05cd1b (patch) | |
tree | 1de83ac8a7d340030e03eaec2433b93a2b789cad | |
parent | 6fe707cbbb2e579992a428e4bba122a74df2d493 (diff) | |
download | compcert-kvx-aea7e3d6a6b09727724edfa11358111c9a05cd1b.tar.gz compcert-kvx-aea7e3d6a6b09727724edfa11358111c9a05cd1b.zip |
pass one proof
-rw-r--r-- | mppa_k1c/Asmblockgenproof1.v | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/mppa_k1c/Asmblockgenproof1.v b/mppa_k1c/Asmblockgenproof1.v index 5e44b7a5..ed049539 100644 --- a/mppa_k1c/Asmblockgenproof1.v +++ b/mppa_k1c/Asmblockgenproof1.v @@ -2156,7 +2156,7 @@ Qed. Lemma transl_load_memory_access_ok: forall addr chunk args dst k c rs a v m, - addr <> Aindexed2 -> + (match addr with Aindexed2XS _ | Aindexed2 => False | _ => True end) -> transl_load chunk addr args dst k = OK c -> eval_addressing ge (rs (IR SP)) addr (map rs (map preg_of args)) = Some a -> Mem.loadv chunk m a = Some v -> @@ -2168,12 +2168,7 @@ Lemma transl_load_memory_access_ok: Proof. intros until m. intros ADDR TR ? ?. unfold transl_load in TR. destruct addr; try contradiction. - - monadInv TR. - destruct chunk; - simpl in EQ0; - ArgsInv; - try discriminate; - econstructor; (esplit; eauto). + - admit. - monadInv TR. destruct chunk; ArgsInv; econstructor; (esplit; eauto). - monadInv TR. destruct chunk. all: ArgsInv; destruct args; try discriminate; monadInv EQ0; eexists; eexists; split; try split; [ instantiate (1 := (PLoadRRO _ x)); simpl; reflexivity |