diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-04-30 09:15:57 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-04-30 09:15:57 +0000 |
commit | 7a93bf69d4b677170677609a955452941ad35040 (patch) | |
tree | f1e2ca8e92480aa07f1a73021a99f38d1de0f996 /powerpc | |
parent | bbfa0098dc5d77075b8544d844c885fe6e49bf27 (diff) | |
download | compcert-7a93bf69d4b677170677609a955452941ad35040.tar.gz compcert-7a93bf69d4b677170677609a955452941ad35040.zip |
Updated to new CminorSel
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2221 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'powerpc')
-rw-r--r-- | powerpc/SelectOp.vp | 2 | ||||
-rw-r--r-- | powerpc/SelectOpproof.v | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/powerpc/SelectOp.vp b/powerpc/SelectOp.vp index a0118477..7b15ccc8 100644 --- a/powerpc/SelectOp.vp +++ b/powerpc/SelectOp.vp @@ -432,7 +432,7 @@ Definition intoffloat (e: expr) := Eop Ointoffloat (e ::: Enil). Definition intuoffloat (e: expr) := Elet e (Elet (Eop (Ofloatconst (Float.floatofintu Float.ox8000_0000)) Enil) - (Econdition (Ccompf Clt) (Eletvar 1 ::: Eletvar 0 ::: Enil) + (Econdition (CEcond (Ccompf Clt) (Eletvar 1 ::: Eletvar 0 ::: Enil)) (intoffloat (Eletvar 1)) (addimm Float.ox8000_0000 (intoffloat (subf (Eletvar 1) (Eletvar 0))))))%nat. diff --git a/powerpc/SelectOpproof.v b/powerpc/SelectOpproof.v index f7513140..5a0a9031 100644 --- a/powerpc/SelectOpproof.v +++ b/powerpc/SelectOpproof.v @@ -782,8 +782,8 @@ Proof. constructor. auto. econstructor. eauto. econstructor. instantiate (1 := Vfloat fm). EvalOp. - eapply eval_Econdition with (vb := Float.cmp Clt f fm). - eauto with evalexpr. auto. + eapply eval_Econdition with (va := Float.cmp Clt f fm). + eauto with evalexpr. destruct (Float.cmp Clt f fm) eqn:?. exploit Float.intuoffloat_intoffloat_1; eauto. intro EQ. EvalOp. simpl. rewrite EQ; auto. |