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/RTLtyping.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/RTLtyping.v')
-rw-r--r-- | backend/RTLtyping.v | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/backend/RTLtyping.v b/backend/RTLtyping.v index 57fc8b86..dec1b988 100644 --- a/backend/RTLtyping.v +++ b/backend/RTLtyping.v @@ -693,10 +693,8 @@ Proof. rewrite A; simpl; rewrite C; simpl. rewrite H2; rewrite dec_eq_true. replace (tailcall_is_possible sig) with true; auto. - revert H3. unfold tailcall_possible, tailcall_is_possible. generalize (loc_arguments sig). - induction l; simpl; intros. auto. - exploit (H3 a); auto. intros. destruct a; try contradiction. apply IHl. - intros; apply H3; auto. + symmetry. unfold tailcall_is_possible. apply forallb_forall. + intros. apply H3 in H4. destruct x; intuition auto. - (* builtin *) exploit type_builtin_args_complete; eauto. instantiate (1 := args). intros [e1 [A B]]. exploit type_builtin_res_complete; eauto. instantiate (1 := res). intros [e2 [C D]]. |