diff options
author | Cyril SIX <cyril.six@kalray.eu> | 2019-04-08 11:20:12 +0200 |
---|---|---|
committer | Cyril SIX <cyril.six@kalray.eu> | 2019-04-08 11:20:12 +0200 |
commit | 5cb91df0e3faaca529798e14edb9c39046b27767 (patch) | |
tree | c0f00ffd735f38fb9d2c79d6367fae2d07ec89dc /mppa_k1c/PostpassSchedulingproof.v | |
parent | 76af54d8ae77f843b7f6f15f9a0fc6124df47ebb (diff) | |
parent | fb8c244726595b0e7a4db8c0f8e6aa3f3549cc14 (diff) | |
download | compcert-kvx-5cb91df0e3faaca529798e14edb9c39046b27767.tar.gz compcert-kvx-5cb91df0e3faaca529798e14edb9c39046b27767.zip |
Merge remote-tracking branch 'origin/mppa-refactor-reviewed' into mppa-refactor
Conflicts:
mppa_k1c/Asmblock.v
mppa_k1c/Asmblockdeps.v
mppa_k1c/PostpassSchedulingproof.v
mppa_k1c/lib/Asmblockgenproof0.v
Diffstat (limited to 'mppa_k1c/PostpassSchedulingproof.v')
-rw-r--r-- | mppa_k1c/PostpassSchedulingproof.v | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/mppa_k1c/PostpassSchedulingproof.v b/mppa_k1c/PostpassSchedulingproof.v index a2dd2ec2..bc90dd4c 100644 --- a/mppa_k1c/PostpassSchedulingproof.v +++ b/mppa_k1c/PostpassSchedulingproof.v @@ -227,7 +227,7 @@ Proof. unfold exec_bblock. rewrite EXEB1. rewrite EXA. simpl. eauto. split. exploit exec_body_pc. eapply EXEB1. intros. rewrite <- H. auto. - unfold exec_bblock. unfold nextblock. rewrite regset_same_assign. erewrite exec_body_pc_var; eauto. + unfold exec_bblock. unfold nextblock, incrPC. rewrite regset_same_assign. erewrite exec_body_pc_var; eauto. rewrite <- H1. unfold nextblock in EXEB. rewrite regset_double_set_id. assert (size bb = size a + size b). { unfold size. rewrite H0. rewrite H1. rewrite app_length. rewrite EXA. simpl. rewrite Nat.add_0_r. @@ -235,8 +235,8 @@ Proof. clear EXA H0 H1. rewrite H in EXEB. assert (rs1 PC = rs0 PC). { apply exec_body_pc in EXEB2. auto. } rewrite H0. rewrite <- pc_set_add; auto. - exploit AB.size_positive. instantiate (1 := a). intro. omega. - exploit AB.size_positive. instantiate (1 := b). intro. omega. + exploit size_positive. instantiate (1 := a). intro. omega. + exploit size_positive. instantiate (1 := b). intro. omega. Qed. Lemma concat_all_exec_bblock (ge: Genv.t fundef unit) (f: function) : @@ -727,9 +727,9 @@ Proof. destruct bb as [h bdy ext H]; simpl. intros; subst. destruct i. generalize H. - rewrite <- AB.wf_bblock_refl in H. + rewrite <- wf_bblock_refl in H. destruct H as [H H0]. - unfold AB.builtin_alone in H0. erewrite H0; eauto. + unfold builtin_alone in H0. erewrite H0; eauto. Qed. Local Hint Resolve verified_schedule_nob_checks_alls_bundles. |