From 514ea1ae1fc8a2e40c6b45966419c27e1f6aaaa2 Mon Sep 17 00:00:00 2001 From: xleroy Date: Thu, 24 Oct 2013 09:55:46 +0000 Subject: Fine-tuning of the "andimm" case to generate a move rather than an andimm when possible. git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2348 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e --- powerpc/CombineOpproof.v | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'powerpc/CombineOpproof.v') diff --git a/powerpc/CombineOpproof.v b/powerpc/CombineOpproof.v index 8f4ae192..0e328dfd 100644 --- a/powerpc/CombineOpproof.v +++ b/powerpc/CombineOpproof.v @@ -147,9 +147,16 @@ Transparent Val.sub. destruct v; simpl; auto. repeat rewrite Int.sub_add_opp. rewrite Int.add_assoc. rewrite Int.neg_add_distr. decEq. decEq. decEq. apply Int.add_commut. (* andimm - andimm *) + generalize (Int.eq_spec p m0); rewrite H7; intros. + exploit get_sound; eauto. unfold equation_holds; simpl; intros. FuncInv. + rewrite <- H2. rewrite Val.and_assoc. simpl. fold p. rewrite H0. auto. exploit get_sound; eauto. unfold equation_holds; simpl; intros. FuncInv. rewrite <- H1. rewrite Val.and_assoc. auto. (* andimm - rolm *) + generalize (Int.eq_spec p m0); rewrite H7; intros. + exploit get_sound; eauto. unfold equation_holds; simpl; intros. FuncInv. + rewrite <- H2. destruct v; simpl; auto. unfold Int.rolm. + rewrite Int.and_assoc. fold p; rewrite H0. auto. exploit get_sound; eauto. unfold equation_holds; simpl; intros. FuncInv. rewrite <- H1. destruct v; simpl; auto. unfold Int.rolm. rewrite Int.and_assoc. auto. (* orimm *) -- cgit