diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2009-06-05 13:39:59 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2009-06-05 13:39:59 +0000 |
| commit | 615fb53c13f2407a0b6b470bbdf8e468fc4a1d78 (patch) | |
| tree | ec5f45b6546e19519f59b1ee0f42955616ca1b98 /backend/Allocproof.v | |
| parent | d1cdc0496d7d52e3ab91554dbf53fcc0e7f244eb (diff) | |
Adapted to work with Coq 8.2-1
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1076 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'backend/Allocproof.v')
| -rw-r--r-- | backend/Allocproof.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/backend/Allocproof.v b/backend/Allocproof.v index 3971fb6..e2387b5 100644 --- a/backend/Allocproof.v +++ b/backend/Allocproof.v @@ -167,7 +167,7 @@ Proof. eapply DS.fixpoint_solution. unfold analyze in H; eauto. auto. auto. auto. auto. unfold transfer. rewrite H3. - red; intros. elim (Regset.empty_1 _ H4). + red; intros. elim (Regset.empty_1 H4). unfold RTL.successors in H0; rewrite H2 in H0; elim H0. Qed. @@ -581,7 +581,7 @@ Proof. rewrite H. simpl. caseEq (Regset.mem res live!!pc); intro LV; rewrite LV in AG. - generalize (Regset.mem_2 _ _ LV). intro LV'. + generalize (Regset.mem_2 LV). intro LV'. generalize (regalloc_correct_1 f env live _ _ _ _ ASG H). unfold correct_alloc_instr, is_redundant_move. caseEq (is_move_operation op args). |