diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-04-21 16:18:14 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-04-21 16:18:14 +0000 |
| commit | 5029c5231cf840b84e60ccd1dd71fd32012e6251 (patch) | |
| tree | 041406229df356cf78aadd462196349f527dcc3d /powerpc | |
| parent | 9b2190b382036354e4ff7026d2cd8f3f4fe8337d (diff) | |
Deactivate combination Aindexed 0 / Oadd, as it causes problems with chunk = Mint64.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2210 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'powerpc')
| -rw-r--r-- | powerpc/CombineOp.v | 1 | ||||
| -rw-r--r-- | powerpc/CombineOpproof.v | 3 |
2 files changed, 0 insertions, 4 deletions
diff --git a/powerpc/CombineOp.v b/powerpc/CombineOp.v index 73b7c55..b92e045 100644 --- a/powerpc/CombineOp.v +++ b/powerpc/CombineOp.v @@ -81,7 +81,6 @@ Function combine_addr (addr: addressing) (args: list valnum) : option(addressing | Aindexed n, x::nil => match get x with | Some(Op (Oaddimm m) ys) => Some(Aindexed (Int.add m n), ys) - | Some(Op Oadd ys) => if Int.eq_dec n Int.zero then Some(Aindexed2, ys) else None | _ => None end | _, _ => None diff --git a/powerpc/CombineOpproof.v b/powerpc/CombineOpproof.v index c96ecc1..8f4ae19 100644 --- a/powerpc/CombineOpproof.v +++ b/powerpc/CombineOpproof.v @@ -124,9 +124,6 @@ Proof. (* indexed - addimm *) exploit get_sound; eauto. unfold equation_holds; simpl; intro EQ. FuncInv. rewrite <- H0. rewrite Val.add_assoc. auto. - (* indexed 0 - add *) - exploit get_sound; eauto. unfold equation_holds; simpl; intro EQ. FuncInv. - rewrite <- H0. destruct v; destruct v0; simpl; auto; rewrite Int.add_zero; auto. Qed. Theorem combine_op_sound: |