From 615fb53c13f2407a0b6b470bbdf8e468fc4a1d78 Mon Sep 17 00:00:00 2001 From: xleroy Date: Fri, 5 Jun 2009 13:39:59 +0000 Subject: 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 --- backend/Tunnelingproof.v | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'backend/Tunnelingproof.v') diff --git a/backend/Tunnelingproof.v b/backend/Tunnelingproof.v index 49bf8942..08f5f6cc 100644 --- a/backend/Tunnelingproof.v +++ b/backend/Tunnelingproof.v @@ -268,16 +268,18 @@ Proof. (* Lload *) rewrite (branch_target_identity f pc); [idtac | rewrite H; auto]. left; econstructor; split. - eapply exec_Lload; eauto. + eapply exec_Lload with (a := a). rewrite (tunnel_function_lookup _ _ _ H); simpl; auto. rewrite <- H0. apply eval_addressing_preserved. exact symbols_preserved. + eauto. econstructor; eauto. (* Lstore *) rewrite (branch_target_identity f pc); [idtac | rewrite H; auto]. left; econstructor; split. - eapply exec_Lstore; eauto. + eapply exec_Lstore with (a := a). rewrite (tunnel_function_lookup _ _ _ H); simpl; auto. rewrite <- H0. apply eval_addressing_preserved. exact symbols_preserved. + eauto. econstructor; eauto. (* Lcall *) left; econstructor; split. -- cgit