diff options
| author | Xavier Leroy <xavierleroy@users.noreply.github.com> | 2016-05-27 09:03:30 +0200 |
|---|---|---|
| committer | Xavier Leroy <xavierleroy@users.noreply.github.com> | 2016-05-27 09:03:30 +0200 |
| commit | 5087ec788016b719b4038be08cd55bccc22b3619 (patch) | |
| tree | 58f0a26f4b02364c0823ba64a2de2df1a073e0a4 /backend/Tunnelingproof.v | |
| parent | b45cdb9dce7df376fd3cb27a32863af90b847b78 (diff) | |
| parent | 8d3dbd3636fbb6a056f5506be8ee2d8839c1aea2 (diff) | |
| download | compcert-5087ec788016b719b4038be08cd55bccc22b3619.tar.gz compcert-5087ec788016b719b4038be08cd55bccc22b3619.zip | |
Merge pull request #99 from AbsInt/register-pairs
Introduce register pairs to describe calling conventions more precisely
Diffstat (limited to 'backend/Tunnelingproof.v')
| -rw-r--r-- | backend/Tunnelingproof.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/backend/Tunnelingproof.v b/backend/Tunnelingproof.v index 4f1f8143..4f3ba5cb 100644 --- a/backend/Tunnelingproof.v +++ b/backend/Tunnelingproof.v @@ -367,7 +367,7 @@ Proof. (* external function *) left; simpl; econstructor; split. eapply exec_function_external; eauto. - eapply external_call_symbols_preserved'; eauto. apply senv_preserved. + eapply external_call_symbols_preserved; eauto. apply senv_preserved. simpl. econstructor; eauto. (* return *) inv H3. inv H1. @@ -395,7 +395,7 @@ Lemma transf_final_states: forall st1 st2 r, match_states st1 st2 -> final_state st1 r -> final_state st2 r. Proof. - intros. inv H0. inv H. inv H6. econstructor; eauto. + intros. inv H0. inv H. inv H5. econstructor; eauto. Qed. Theorem transf_program_correct: |