diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2009-06-05 13:39:59 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2009-06-05 13:39:59 +0000 |
commit | 615fb53c13f2407a0b6b470bbdf8e468fc4a1d78 (patch) | |
tree | ec5f45b6546e19519f59b1ee0f42955616ca1b98 /powerpc/Selectionproof.v | |
parent | d1cdc0496d7d52e3ab91554dbf53fcc0e7f244eb (diff) | |
download | compcert-615fb53c13f2407a0b6b470bbdf8e468fc4a1d78.tar.gz compcert-615fb53c13f2407a0b6b470bbdf8e468fc4a1d78.zip |
Adapted to work with Coq 8.2-1v1.4.1
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1076 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'powerpc/Selectionproof.v')
-rw-r--r-- | powerpc/Selectionproof.v | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/powerpc/Selectionproof.v b/powerpc/Selectionproof.v index 6ffffc18..8a02c997 100644 --- a/powerpc/Selectionproof.v +++ b/powerpc/Selectionproof.v @@ -1357,10 +1357,12 @@ Proof. econstructor. destruct k; simpl in H; simpl; auto. rewrite <- H0; reflexivity. constructor; auto. +(* (* assign *) exists (State (sel_function f) Sskip (sel_cont k) sp (PTree.set id v e) m); split. constructor. auto with evalexpr. constructor; auto. +*) (* store *) econstructor; split. eapply eval_store; eauto with evalexpr. |