diff options
| author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2006-10-22 16:54:24 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2006-10-22 16:54:24 +0000 |
| commit | 210352d90e5972aabfb253f7c8a38349f53917b3 (patch) | |
| tree | 93ccbf36e6840118abe84ee940252a7a1fbc7720 /backend/Alloctyping.v | |
| parent | ee41c6eae5af0703605780e0b3d8f5c3937f3276 (diff) | |
| download | compcert-210352d90e5972aabfb253f7c8a38349f53917b3.tar.gz compcert-210352d90e5972aabfb253f7c8a38349f53917b3.zip | |
Lever la restriction sur les fonctions externes, restriction qui exigeait que tous les arguments resident en registres
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@125 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'backend/Alloctyping.v')
| -rw-r--r-- | backend/Alloctyping.v | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/backend/Alloctyping.v b/backend/Alloctyping.v index e4f9f964..4c4c4f76 100644 --- a/backend/Alloctyping.v +++ b/backend/Alloctyping.v @@ -420,7 +420,7 @@ Proof. assert (sig = tf.(fn_sig)). unfold sig. assert (transf_fundef (Internal f) = Some (Internal tf)). - unfold transf_fundef; rewrite TRANSL; auto. + unfold transf_fundef, transf_partial_fundef. rewrite TRANSL; auto. generalize (Allocproof.sig_function_translated _ _ H). simpl; auto. assert (locs_read_ok (loc_parameters sig)). red; unfold loc_parameters. intros. @@ -542,9 +542,7 @@ Proof. caseEq (transf_function f). intros g TF EQ. inversion EQ. constructor. eapply wt_transf_function; eauto. congruence. - caseEq (type_external_function e); intros. - inversion H0. constructor. apply type_external_function_correct. auto. - congruence. + intros. inversion H. constructor. Qed. Lemma program_typing_preserved: |