From ea23f1260ff7d587b0db05090580efd8f56d617a Mon Sep 17 00:00:00 2001 From: xleroy Date: Sat, 31 May 2008 08:50:20 +0000 Subject: 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 --- cfrontend/Cshmgenproof2.v | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'cfrontend/Cshmgenproof2.v') diff --git a/cfrontend/Cshmgenproof2.v b/cfrontend/Cshmgenproof2.v index 2491e525..98d057a4 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 *) -- cgit