diff options
-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 73b7c55b..b92e045e 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 c96ecc1d..8f4ae192 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: |