diff options
| author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2008-07-27 07:34:38 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2008-07-27 07:34:38 +0000 |
| commit | cab28a5331400fee1a0dd1c5fa7d0366fa888f5f (patch) | |
| tree | 907fff89969cd913604b11e134d3b83f6145db5c /backend/Tunnelingproof.v | |
| parent | b5325808cb1d36d4ff500d2fb754fe7a424e8329 (diff) | |
| download | compcert-cab28a5331400fee1a0dd1c5fa7d0366fa888f5f.tar.gz compcert-cab28a5331400fee1a0dd1c5fa7d0366fa888f5f.zip | |
MAJ documentation
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@702 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'backend/Tunnelingproof.v')
| -rw-r--r-- | backend/Tunnelingproof.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/backend/Tunnelingproof.v b/backend/Tunnelingproof.v index cefad10b..7ad75bae 100644 --- a/backend/Tunnelingproof.v +++ b/backend/Tunnelingproof.v @@ -299,7 +299,7 @@ Proof. econstructor; eauto. (* Lalloc *) rewrite (branch_target_identity f pc); [idtac | rewrite H; auto]. - left; exists (State ts (tunnel_function f) sp (branch_target f pc') (Locmap.set res (Vptr b Integers.Int.zero) (postcall_regs rs)) m'); split. + left; exists (State ts (tunnel_function f) sp (branch_target f pc') (Locmap.set res (Vptr b Integers.Int.zero) (postcall_locs rs)) m'); split. eapply exec_Lalloc; eauto. rewrite (tunnel_function_lookup _ _ _ H); simpl; auto. econstructor; eauto. |