aboutsummaryrefslogtreecommitdiffstats
path: root/mppa_k1c/PostpassSchedulingproof.v
diff options
context:
space:
mode:
authorCyril SIX <cyril.six@kalray.eu>2019-04-08 11:20:12 +0200
committerCyril SIX <cyril.six@kalray.eu>2019-04-08 11:20:12 +0200
commit5cb91df0e3faaca529798e14edb9c39046b27767 (patch)
treec0f00ffd735f38fb9d2c79d6367fae2d07ec89dc /mppa_k1c/PostpassSchedulingproof.v
parent76af54d8ae77f843b7f6f15f9a0fc6124df47ebb (diff)
parentfb8c244726595b0e7a4db8c0f8e6aa3f3549cc14 (diff)
downloadcompcert-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.v10
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.