From 7a93bf69d4b677170677609a955452941ad35040 Mon Sep 17 00:00:00 2001 From: xleroy Date: Tue, 30 Apr 2013 09:15:57 +0000 Subject: Updated to new CminorSel git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2221 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e --- powerpc/SelectOp.vp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'powerpc/SelectOp.vp') 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. -- cgit