From 5029c5231cf840b84e60ccd1dd71fd32012e6251 Mon Sep 17 00:00:00 2001 From: xleroy Date: Sun, 21 Apr 2013 16:18:14 +0000 Subject: 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 --- powerpc/CombineOp.v | 1 - powerpc/CombineOpproof.v | 3 --- 2 files changed, 4 deletions(-) (limited to 'powerpc') 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: -- cgit v1.2.3