GaloisInc/macaw
1
1
Fork 0
mirror of https://github.com/GaloisInc/macaw.git synced 2024-12-28 08:34:23 +03:00
Code Issues Projects Releases Wiki Activity

Added single_to_double for floating point operations

Browse Source
This commit is contained in:
Ben Selfridge 2017-11-15 18:00:19 -08:00
parent e4d3942094
commit e1963bcbf2
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
macaw-ppc/src/Data/Macaw/PPC/Semantics/TH.hs
View File

@ -518,6 +518,9 @@ floatingPointTH bvi fnName args =
"round_single" -> do
fpval <- addEltTH bvi a
liftQ [| addExpr (AppExpr (M.FPCvt M.DoubleFloatRepr $(return fpval) M.SingleFloatRepr)) |]
"single_to_double" -> do
fpval <- addEltTH bvi a
liftQ [| addExpr (AppExpr (M.FPCvt M.SingleFloatRepr $(return fpval) M.DoubleFloatRepr)) |]
"abs" -> do
-- Note that fabs is only defined for doubles; the operation is the
-- same for single and double precision on PPC, so there is only a