diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-05-01 09:22:49 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-05-01 09:22:49 +0000 |
commit | 7717d9e5f781a0b0d79f72c5439cf822f4ea78d0 (patch) | |
tree | d45945dd6c43a0a42ad34ff4a19461f51d238702 /backend/Allocproof.v | |
parent | eb3c0686c9e819aa906eda462fd1952a8063da6a (diff) | |
download | compcert-kvx-7717d9e5f781a0b0d79f72c5439cf822f4ea78d0.tar.gz compcert-kvx-7717d9e5f781a0b0d79f72c5439cf822f4ea78d0.zip |
Coq-defined equality functions for Allocation.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2225 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'backend/Allocproof.v')
-rw-r--r-- | backend/Allocproof.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/backend/Allocproof.v b/backend/Allocproof.v index 76e97444..a4aa8614 100644 --- a/backend/Allocproof.v +++ b/backend/Allocproof.v @@ -297,7 +297,7 @@ Proof. destruct b0. MonadInv; UseParsingLemmas. destruct i; MonadInv; UseParsingLemmas. - destruct (eq_chunk m Mint64). + destruct (chunk_eq m Mint64). MonadInv; UseParsingLemmas. destruct b; MonadInv; UseParsingLemmas. destruct i; MonadInv; UseParsingLemmas. eapply ebs_load2; eauto. @@ -308,7 +308,7 @@ Proof. inv H. eapply ebs_load_dead; eauto. (* store *) destruct b0; MonadInv. destruct i; MonadInv; UseParsingLemmas. - destruct (eq_chunk m Mint64). + destruct (chunk_eq m Mint64). MonadInv; UseParsingLemmas. destruct b; MonadInv. destruct i; MonadInv; UseParsingLemmas. eapply ebs_store2; eauto. |