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 /mppa_k1c/Asmblockgenproof1.v | |
| parent | 6fe707cbbb2e579992a428e4bba122a74df2d493 (diff) | |
| download | compcert-kvx-aea7e3d6a6b09727724edfa11358111c9a05cd1b.tar.gz compcert-kvx-aea7e3d6a6b09727724edfa11358111c9a05cd1b.zip | |
pass one proof
Diffstat (limited to 'mppa_k1c/Asmblockgenproof1.v')
| -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 |