From 6f9b68c8de22fe540bfe85c2fabec4b967c6a80d Mon Sep 17 00:00:00 2001 From: xleroy Date: Wed, 18 Aug 2010 09:58:24 +0000 Subject: Removed useless constraints on return type at Sreturn instructions git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1470 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e --- cfrontend/Cshmgenproof.v | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'cfrontend/Cshmgenproof.v') diff --git a/cfrontend/Cshmgenproof.v b/cfrontend/Cshmgenproof.v index 02fab6fe..4784e1ed 100644 --- a/cfrontend/Cshmgenproof.v +++ b/cfrontend/Cshmgenproof.v @@ -1691,7 +1691,7 @@ Proof. (* return none *) monadInv TR. inv MTR. econstructor; split. - apply plus_one. constructor. monadInv TRF. simpl. rewrite H. auto. + apply plus_one. constructor. eapply match_env_free_blocks; eauto. econstructor; eauto. eapply match_cont_call_cont. eauto. @@ -1699,9 +1699,11 @@ Proof. (* return some *) monadInv TR. inv MTR. econstructor; split. - apply plus_one. constructor. monadInv TRF. simpl. + apply plus_one. constructor. +(* monadInv TRF. simpl. unfold opttyp_of_type. destruct (Clight.fn_return f); try congruence. inv H0. inv H3. inv H3. +*) eapply make_cast_correct. eapply transl_expr_correct; eauto. eauto. eapply match_env_free_blocks; eauto. econstructor; eauto. -- cgit