diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2008-05-31 08:50:20 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2008-05-31 08:50:20 +0000 |
commit | ea23f1260ff7d587b0db05090580efd8f56d617a (patch) | |
tree | 7579c05bc09c678776342cf8d1d9ef17d3d79188 /cfrontend/Cshmgenproof2.v | |
parent | 72c5d592af9c9c0b417becc6abe5c2364d81639a (diff) |
Utilisation de intoffloatu. Ajout du cas int + ptr.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@652 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'cfrontend/Cshmgenproof2.v')
-rw-r--r-- | cfrontend/Cshmgenproof2.v | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/cfrontend/Cshmgenproof2.v b/cfrontend/Cshmgenproof2.v index 2491e52..98d057a 100644 --- a/cfrontend/Cshmgenproof2.v +++ b/cfrontend/Cshmgenproof2.v @@ -206,6 +206,10 @@ Proof. eapply eval_Ebinop. eauto. eapply eval_Ebinop. eauto with cshm. eauto. simpl. reflexivity. reflexivity. + inversion H7. + eapply eval_Ebinop. eauto. + eapply eval_Ebinop. eauto with cshm. eauto. + simpl. reflexivity. simpl. reflexivity. Qed. Lemma make_sub_correct: binary_constructor_correct make_sub sem_sub. @@ -369,7 +373,7 @@ Proof. (* cast_int_int *) destruct sz2; destruct si2; repeat econstructor; eauto with cshm. (* cast_float_int *) - destruct sz2; destruct si2; repeat econstructor; eauto with cshm; simpl; auto. + destruct sz2; destruct si2; unfold make_intoffloat; repeat econstructor; eauto with cshm; simpl; auto. (* cast_int_float *) destruct sz2; destruct si1; unfold make_floatofint; repeat econstructor; eauto with cshm; simpl; auto. (* cast_float_float *) |