diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2010-08-18 09:58:24 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2010-08-18 09:58:24 +0000 |
| commit | 6f9b68c8de22fe540bfe85c2fabec4b967c6a80d (patch) | |
| tree | bcdc970a7cd51c9edc74cfe2d428b7d2f7205b61 /cfrontend/Cshmgenproof.v | |
| parent | dcaf93a7432304b3479ed191607aa4cd2966baf3 (diff) | |
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
Diffstat (limited to 'cfrontend/Cshmgenproof.v')
| -rw-r--r-- | cfrontend/Cshmgenproof.v | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/cfrontend/Cshmgenproof.v b/cfrontend/Cshmgenproof.v index 02fab6f..4784e1e 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. |