diff options
| author | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2020-11-26 23:43:37 +0100 |
|---|---|---|
| committer | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2020-11-26 23:43:37 +0100 |
| commit | c7f3bd8555c1cae001cc93d21398b52b19d58df0 (patch) | |
| tree | b3f4be3225187579f75816ed2d739a7a801833f3 /aarch64/Asmgenproof.v | |
| parent | 0e439055e450d63ace2366653cd558de1a073bed (diff) | |
| download | compcert-kvx-c7f3bd8555c1cae001cc93d21398b52b19d58df0.tar.gz compcert-kvx-c7f3bd8555c1cae001cc93d21398b52b19d58df0.zip | |
Proof of Pfmovimm fine tuned OK, moving float checks in Asm
Also some simplifications in Asmblockdeps
Diffstat (limited to 'aarch64/Asmgenproof.v')
| -rw-r--r-- | aarch64/Asmgenproof.v | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/aarch64/Asmgenproof.v b/aarch64/Asmgenproof.v index 9077a292..ba785b48 100644 --- a/aarch64/Asmgenproof.v +++ b/aarch64/Asmgenproof.v @@ -786,9 +786,9 @@ Lemma exec_arith_instr_dont_move_PC ai rs rs': forall Proof. destruct ai; simpl; intros; try (rewrite <- BASIC; rewrite Pregmap.gso; auto; discriminate). - - admit. (* destruct i; simpl in BASIC; - unfold compare_long in BASIC; rewrite <- BASIC; - repeat rewrite Pregmap.gso; try discriminate; reflexivity. *) + - destruct i; simpl in BASIC; + try destruct (negb _); rewrite <- BASIC; + repeat rewrite Pregmap.gso; try discriminate; reflexivity. - destruct i; simpl in BASIC. 1,2: rewrite <- BASIC; repeat rewrite Pregmap.gso; try discriminate; reflexivity. destruct sz; @@ -805,8 +805,7 @@ Proof. try (rewrite <- BASIC; repeat rewrite Pregmap.gso; try (discriminate || reflexivity)). - destruct fsz; rewrite <- BASIC; rewrite Pregmap.gso; try (discriminate || reflexivity). - destruct fsz; rewrite <- BASIC; rewrite Pregmap.gso; try (discriminate || reflexivity). -(* Qed. *) -Admitted. +Qed. Lemma exec_basic_dont_move_PC bi rs m rs' m': forall (BASIC: exec_basic lk ge bi rs m = Next rs' m'), @@ -1165,17 +1164,18 @@ Proof. try (exploit next_inst_preserved; eauto); try (repeat destruct_reg_size); try (destruct_ir0_reg). - all: admit. - (* 1,2: (* Special case for Pfmovimmd / Pfmovimms *) + 1,2: (* Special case for Pfmovimmd / Pfmovimms *) try (monadInv TRANSBI); try (destruct_reg_inv); try (inv_matchi); inversion BASIC; clear BASIC; subst; + try (destruct (is_immediate_float64 _)); + try (destruct (is_immediate_float32 _)); eexists; eexists; split; eauto; repeat (eapply match_internal_nextinstr_set_parallel; try congruence); try (econstructor; eauto); try (eapply nextinstr_agree_but_pc; eauto); - try (eapply ptrofs_nextinstr_agree; eauto). *) + try (eapply ptrofs_nextinstr_agree; eauto). } 1,2,3,4,5: (* PArithP, PArithPP, PArithPPP, PArithRR0R, PArithRR0, PArithARRRR0 *) destruct i; @@ -1300,8 +1300,7 @@ Proof. try (exploit next_inst_preserved; eauto); rewrite symbol_addresses_preserved; eauto; try (find_rwrt_ag). -(* Qed. *) -Admitted. +Qed. Lemma find_basic_instructions b ofs f bb tc: forall (FINDF: Genv.find_funct_ptr ge b = Some (Internal f)) |