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/SelectOp.vp | |
parent | 4abaa3fa312fcbe7ee9665853f52a5d37e703864 (diff) | |
download | compcert-3d67364b52cac702ed3f2336d7d02f742aa0257a.tar.gz compcert-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/SelectOp.vp')
-rw-r--r-- | powerpc/SelectOp.vp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/powerpc/SelectOp.vp b/powerpc/SelectOp.vp index 6c83ab76..a1457dfa 100644 --- a/powerpc/SelectOp.vp +++ b/powerpc/SelectOp.vp @@ -417,11 +417,11 @@ Definition cast16signed (e: expr) := Eop Ocast16signed (e ::: Enil). Definition intoffloat (e: expr) := Eop Ointoffloat (e ::: Enil). Definition intuoffloat (e: expr) := - let f := Eop (Ofloatconst (Float.floatofintu Float.ox8000_0000)) Enil in Elet e - (Econdition (CEcond (Ccompf Clt) (Eletvar O ::: f ::: Enil)) - (intoffloat (Eletvar O)) - (addimm Float.ox8000_0000 (intoffloat (subf (Eletvar O) f)))). + (Elet (Eop (Ofloatconst (Float.floatofintu Float.ox8000_0000)) Enil) + (Econdition (CEcond (Ccompf Clt) (Eletvar 1 ::: Eletvar 0 ::: Enil)) + (intoffloat (Eletvar 1)) + (addimm Float.ox8000_0000 (intoffloat (subf (Eletvar 1) (Eletvar 0))))))%nat. Definition floatofintu (e: expr) := subf (Eop Ofloatofwords (Eop (Ointconst Float.ox4330_0000) Enil ::: e ::: Enil)) |