diff options
author | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2020-11-26 11:39:16 +0100 |
---|---|---|
committer | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2020-11-26 11:39:16 +0100 |
commit | 0e439055e450d63ace2366653cd558de1a073bed (patch) | |
tree | 232c947434da9c6a372af487e47ce21c4f552656 /aarch64/Asmblockdeps.v | |
parent | 02a86fb0cd2dcb63b8346c48ca78056b30c7fef6 (diff) | |
download | compcert-kvx-0e439055e450d63ace2366653cd558de1a073bed.tar.gz compcert-kvx-0e439055e450d63ace2366653cd558de1a073bed.zip |
Fine tuning for Pfmovimm
- Functions to check a float logical immediate were translated from ocaml target printer in coq Asmblock
- Some proof are admitted for now (we'll see if it is a good idea after some tests)
Diffstat (limited to 'aarch64/Asmblockdeps.v')
-rw-r--r-- | aarch64/Asmblockdeps.v | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/aarch64/Asmblockdeps.v b/aarch64/Asmblockdeps.v index 4a40ed43..7bdc734e 100644 --- a/aarch64/Asmblockdeps.v +++ b/aarch64/Asmblockdeps.v @@ -1686,14 +1686,15 @@ Proof. - (* PArithP *) destruct i. 1,2,3: DIRN1 rd; Simpl sr. + all: admit. (* Special case for Pmovimms/Pmovimmd *) - all: DIRN1 rd; Simpl sr; + (* all: DIRN1 rd; Simpl sr; try (rewrite assign_diff; discriminate_ppos; reflexivity); try replace 24 with (#X16) by auto; try replace 7 with (#XSP) by auto; try (Simpl_update; intros rr; destruct_reg_neq r rr); try (Simpl_update; intros rr; destruct_reg_neq XSP rr); - try (Simpl_update; intros rr; destruct_reg_neq f0 rr). + try (Simpl_update; intros rr; destruct_reg_neq f0 rr). *) - (* PArithPP *) DIRN1 rs; DIRN1 rd; Simpl sr. - (* PArithPPP *) @@ -1753,7 +1754,8 @@ Proof. try erewrite Pregmap.gso; try erewrite assign_diff; try rewrite H0; try fold (ppos rd); try eapply ppos_discr; eauto ]. - (* Pfnmul *) simpl; destruct fsz; Simpl sr. -Qed. +(* Qed. *) +Admitted. Lemma sp_xsp: SP = XSP. |