GaloisInc/macaw
1
1
Fork 0
mirror of https://github.com/GaloisInc/macaw.git synced 2024-11-27 12:52:52 +03:00
Code Issues Projects Releases Wiki Activity

Added support for floating point LT uf

Browse Source
This commit is contained in:
Ben Selfridge 2017-11-28 14:47:28 -08:00
parent ef5150e2e1
commit 3d1eb18289
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -536,6 +536,12 @@ floatingPointTH bvi fnName args =
"negate32" -> do
fpval <- addEltTH bvi a
liftQ [| G.addExpr (G.AppExpr (M.FPNeg M.SingleFloatRepr $(return fpval))) |]
"is_qnan32" -> do
fpval <- addEltTH bvi a
liftQ [| G.addExpr (G.AppExpr (M.FPIsQNaN M.SingleFloatRepr $(return fpval))) |]
"is_qnan64" -> do
fpval <- addEltTH bvi a
liftQ [| G.addExpr (G.AppExpr (M.FPIsQNaN M.DoubleFloatRepr $(return fpval))) |]
"is_snan32" -> do
fpval <- addEltTH bvi a
liftQ [| G.addExpr (G.AppExpr (M.FPIsSNaN M.SingleFloatRepr $(return fpval))) |]
@ -577,6 +583,11 @@ floatingPointTH bvi fnName args =
valA <- addEltTH bvi a
valB <- addEltTH bvi b
liftQ [| G.addExpr (G.AppExpr (M.FPDiv M.SingleFloatRepr $(return valA) $(return valB))) |]
"lt" -> do
valA <- addEltTH bvi a
valB <- addEltTH bvi b
-- All comparisons are done as 64-bit comparisons in PPC
liftQ [| G.addExpr (G.AppExpr (M.FPLt M.DoubleFloatRepr $(return valA) $(return valB))) |]
_ -> fail ("Unsupported binary floating point intrinsic: " ++ fnName)
[Some a, Some b, Some c] ->
case fnName of