diff options
| author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-07-01 15:59:12 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-07-01 15:59:12 +0000 |
| commit | 3d67364b52cac702ed3f2336d7d02f742aa0257a (patch) | |
| tree | 0c2b2b75f599834e0188821f2874f244eabae19e /powerpc/SelectOpproof.v | |
| parent | 4abaa3fa312fcbe7ee9665853f52a5d37e703864 (diff) | |
| download | compcert-kvx-3d67364b52cac702ed3f2336d7d02f742aa0257a.tar.gz compcert-kvx-3d67364b52cac702ed3f2336d7d02f742aa0257a.zip | |
Factor out the evaluation of the float constant in intuoffloat.
Probably redundant with CSE, but better safe than sorry.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1947 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'powerpc/SelectOpproof.v')
| -rw-r--r-- | powerpc/SelectOpproof.v | 25 |
1 files changed, 13 insertions, 12 deletions
diff --git a/powerpc/SelectOpproof.v b/powerpc/SelectOpproof.v index e4f981d1..fa6b5608 100644 --- a/powerpc/SelectOpproof.v +++ b/powerpc/SelectOpproof.v @@ -720,27 +720,28 @@ Proof. exists (Vint n); split; auto. unfold intuoffloat. set (im := Int.repr Int.half_modulus). set (fm := Float.floatofintu im). - assert (eval_expr ge sp e m (Vfloat f :: le) (Eletvar O) (Vfloat f)). - constructor. auto. + assert (eval_expr ge sp e m (Vfloat fm :: Vfloat f :: le) (Eletvar (S O)) (Vfloat f)). + constructor. auto. + assert (eval_expr ge sp e m (Vfloat fm :: Vfloat f :: le) (Eletvar O) (Vfloat fm)). + constructor. auto. econstructor. eauto. + econstructor. instantiate (1 := Vfloat fm). EvalOp. apply eval_Econdition with (v1 := Float.cmp Clt f fm). - econstructor. constructor. eauto. constructor. EvalOp. simpl; eauto. constructor. - simpl. auto. + econstructor. eauto with evalexpr. auto. destruct (Float.cmp Clt f fm) as []_eqn. exploit Float.intuoffloat_intoffloat_1; eauto. intro EQ. EvalOp. simpl. rewrite EQ; auto. - exploit Float.intuoffloat_intoffloat_2; eauto. intro EQ. - set (t1 := Eop (Ofloatconst (Float.floatofintu Float.ox8000_0000)) Enil). - set (t2 := subf (Eletvar 0) t1). + exploit Float.intuoffloat_intoffloat_2; eauto. + change Float.ox8000_0000 with im. fold fm. intro EQ. + set (t2 := subf (Eletvar (S O)) (Eletvar O)). set (t3 := intoffloat t2). - exploit (eval_subf (Vfloat f :: le) (Eletvar 0) (Vfloat f) t1). - auto. unfold t1; EvalOp. simpl; eauto. + exploit (eval_subf (Vfloat fm :: Vfloat f :: le) (Eletvar (S O)) (Vfloat f) (Eletvar O)); eauto. fold t2. intros [v2 [A2 B2]]. simpl in B2. inv B2. - exploit (eval_addimm Float.ox8000_0000 (Vfloat f :: le) t3). + exploit (eval_addimm Float.ox8000_0000 (Vfloat fm :: Vfloat f :: le) t3). unfold t3. unfold intoffloat. EvalOp. simpl. rewrite EQ. simpl. eauto. intros [v4 [A4 B4]]. simpl in B4. inv B4. rewrite Int.sub_add_opp in A4. rewrite Int.add_assoc in A4. - rewrite (Int.add_commut (Int.neg Float.ox8000_0000)) in A4. + rewrite (Int.add_commut (Int.neg im)) in A4. rewrite Int.add_neg_zero in A4. rewrite Int.add_zero in A4. auto. @@ -763,7 +764,7 @@ Proof. exploit (eval_subf le t2). unfold t2. EvalOp. constructor. EvalOp. simpl; eauto. constructor. eauto. constructor. unfold eval_operation. eauto. - instantiate (2 := t3). unfold t3. EvalOp. simpl; eauto. + instantiate (2 := t3). unfold t3. EvalOp. simpl; eauto. intros [v2 [A2 B2]]. simpl in B2. inv B2. rewrite Float.floatofint_from_words. auto. Qed. |