diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2008-09-27 08:57:55 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2008-09-27 08:57:55 +0000 |
commit | ec6d00d94bcb1a0adc5c698367634b5e2f370c6e (patch) | |
tree | 2e66a3c9211e2952cdfb50374c76baea6fa68eec /cfrontend/Cshmgenproof1.v | |
parent | 2cf153d684a48ed7ab910c77d9d98b4c9da3fe2e (diff) | |
download | compcert-ec6d00d94bcb1a0adc5c698367634b5e2f370c6e.tar.gz compcert-ec6d00d94bcb1a0adc5c698367634b5e2f370c6e.zip |
Clight: ajout Econdition, suppression Eindex.
caml/PrintCsyntax.ml: afficher les formes a[b] et a->fld.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@789 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'cfrontend/Cshmgenproof1.v')
-rw-r--r-- | cfrontend/Cshmgenproof1.v | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/cfrontend/Cshmgenproof1.v b/cfrontend/Cshmgenproof1.v index 87cdb21d..2c010cb4 100644 --- a/cfrontend/Cshmgenproof1.v +++ b/cfrontend/Cshmgenproof1.v @@ -197,9 +197,7 @@ Proof. intros. inversion H; subst; clear H; simpl in H0. left; exists id; auto. left; exists id; auto. - monadInv H0. right. exists x; split; auto. - simpl. monadInv H0. right. exists x1; split; auto. - simpl. rewrite EQ; rewrite EQ1. simpl. auto. + monadInv H0. right. exists x; split; auto. rewrite H4 in H0. monadInv H0. right. exists (Ebinop Oadd x (make_intconst (Int.repr x0))). split; auto. simpl. rewrite H4. rewrite EQ. rewrite EQ1. auto. |