diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2010-06-29 08:27:14 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2010-06-29 08:27:14 +0000 |
commit | 9c7c84cc40eaacc1e2c13091165785cddecba5ad (patch) | |
tree | 65eafe51ad284d88fd5a949e1b2a54cd272f9f91 /cfrontend/Cshmgenproof1.v | |
parent | f4b416882955d9d91bca60f3eb35b95f4124a5be (diff) | |
download | compcert-9c7c84cc40eaacc1e2c13091165785cddecba5ad.tar.gz compcert-9c7c84cc40eaacc1e2c13091165785cddecba5ad.zip |
Support for inlined built-ins.
AST: add ef_inline flag to external functions.
Selection: recognize calls to inlined built-ins and inline them as Sbuiltin.
CminorSel to Asm: added Sbuiltin/Ibuiltin instruction.
PrintAsm: adapted expansion of builtins.
C2Clight: adapted detection of builtins.
Conventions: refactored in a machine-independent part (backend/Conventions)
and a machine-dependent part (ARCH/SYS/Conventions1).
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1356 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'cfrontend/Cshmgenproof1.v')
-rw-r--r-- | cfrontend/Cshmgenproof1.v | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/cfrontend/Cshmgenproof1.v b/cfrontend/Cshmgenproof1.v index ebc188e8..73a38246 100644 --- a/cfrontend/Cshmgenproof1.v +++ b/cfrontend/Cshmgenproof1.v @@ -55,27 +55,30 @@ Proof. Qed. Lemma transl_fundef_sig1: - forall f tf args res, + forall tenv f tf args res, + wt_fundef tenv f -> transl_fundef f = OK tf -> classify_fun (type_of_fundef f) = fun_case_f args res -> funsig tf = signature_of_type args res. Proof. - intros. destruct f; monadInv H. + intros. inv H; monadInv H0. monadInv EQ. simpl. - simpl in H0. inversion H0. + simpl in H1. inversion H1. unfold fn_sig; simpl. unfold signature_of_type. f_equal. apply transl_params_types; auto. - simpl. simpl in H0. congruence. + simpl. simpl in H1. inv H1. destruct (ef_sig ef); simpl in *. + unfold signature_of_type. congruence. Qed. Lemma transl_fundef_sig2: - forall f tf args res, + forall tenv f tf args res, + wt_fundef tenv f -> transl_fundef f = OK tf -> type_of_fundef f = Tfunction args res -> funsig tf = signature_of_type args res. Proof. intros. eapply transl_fundef_sig1; eauto. - rewrite H0; reflexivity. + rewrite H1; reflexivity. Qed. Lemma var_kind_by_value: |