diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2008-12-21 13:32:24 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2008-12-21 13:32:24 +0000 |
| commit | dc4bed2cf06f46687225275131f411c86c773598 (patch) | |
| tree | 9d99e759d906d061b6f213e0b20cb4bd53580ea6 /backend/Parallelmove.v | |
| parent | ec6d00d94bcb1a0adc5c698367634b5e2f370c6e (diff) | |
Revised back-end so that only 2 integer registers are reserved for reloading.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@925 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'backend/Parallelmove.v')
| -rw-r--r-- | backend/Parallelmove.v | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/backend/Parallelmove.v b/backend/Parallelmove.v index baab207..44eb399 100644 --- a/backend/Parallelmove.v +++ b/backend/Parallelmove.v @@ -336,7 +336,6 @@ Lemma effect_parmove: forall e e', effect_seqmove (parmove srcs dsts) e e' -> List.map e' dsts = List.map e srcs /\ - e' (R IT3) = e (R IT3) /\ forall l, Loc.notin l dsts -> Loc.notin l temporaries -> e' l = e l. Proof. set (mu := parmove srcs dsts). intros. @@ -350,15 +349,6 @@ Proof. apply H1. apply dests_no_overlap_dests; auto. apply NO_DSTS_TEMP; auto; simpl; tauto. apply NO_DSTS_TEMP; auto; simpl; tauto. - (* e' IT3 = e IT3 *) - split. - assert (Loc.notin (R IT3) dsts). - apply Loc.disjoint_notin with temporaries. - apply Loc.disjoint_sym; auto. simpl; tauto. - transitivity (exec_seq mu e (R IT3)). - symmetry. apply H1. apply notin_dests_no_overlap_dests. auto. - simpl; congruence. simpl; congruence. - apply B. apply Loc.notin_not_in; auto. congruence. congruence. (* other locations *) intros. transitivity (exec_seq mu e l). symmetry. apply H1. apply notin_dests_no_overlap_dests; auto. |