diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-05-02 15:04:26 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-05-02 15:04:26 +0000 |
| commit | bc24cf49659f91245d8f42ca06fbe7d21a5c06cd (patch) | |
| tree | 111556a9abc92dd8285e14f92b16731374b501aa /backend/CSEproof.v | |
| parent | 850524f31aef255418db8fa2b0f25050b0535b82 (diff) | |
Extend CSE of loads following stores to chunks Mint64 and Mfloat64al32.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2231 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'backend/CSEproof.v')
| -rw-r--r-- | backend/CSEproof.v | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/backend/CSEproof.v b/backend/CSEproof.v index 1e269f8..65f67ad 100644 --- a/backend/CSEproof.v +++ b/backend/CSEproof.v @@ -696,6 +696,8 @@ Proof. destruct chunk; auto; apply N3. simpl in H3. destruct (rs#src); auto || contradiction. simpl in H3. destruct (rs#src); auto || contradiction. + simpl in H3. destruct (rs#src); auto || contradiction. + simpl in H3. destruct (rs#src); auto || contradiction. Qed. (** Correctness of [reg_valnum]: if it returns a register [r], |