From a8c744000247af207b489d3cdd4e3d3cf60f72e1 Mon Sep 17 00:00:00 2001 From: blazy Date: Fri, 8 Jan 2010 07:53:02 +0000 Subject: ajout branche allocation de registres git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1220 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e --- backend/Allocproof.v | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'backend/Allocproof.v') diff --git a/backend/Allocproof.v b/backend/Allocproof.v index 10eaa5b1..c01b80c3 100644 --- a/backend/Allocproof.v +++ b/backend/Allocproof.v @@ -711,7 +711,9 @@ Proof. simpl. econstructor; eauto. change (transfer f (RTL.fn_entrypoint f) live !! (RTL.fn_entrypoint f)) with (live0 f live). - eapply agree_parameters; eauto. + eapply agree_parameters; eauto. + unfold regalloc. eauto. + unfold regalloc. congruence. (* external function *) injection H7; intro EQ; inv EQ. -- cgit