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/SimplExprproof.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/SimplExprproof.v')
-rw-r--r-- | cfrontend/SimplExprproof.v | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/cfrontend/SimplExprproof.v b/cfrontend/SimplExprproof.v index 603e273..cff182d 100644 --- a/cfrontend/SimplExprproof.v +++ b/cfrontend/SimplExprproof.v @@ -1699,12 +1699,11 @@ Proof. econstructor; eauto. constructor; auto. (* return none *) - inv H8. econstructor; split. + inv H7. econstructor; split. left. apply plus_one. econstructor; eauto. - rewrite <- H. apply function_return_preserved; auto. constructor. apply match_cont_call; auto. (* return some 1 *) - inv H7. inv H1. econstructor; split. + inv H6. inv H0. econstructor; split. left; eapply plus_left. constructor. apply push_seq. traceEq. econstructor; eauto. constructor. auto. (* return some 2 *) |