GaloisInc/macaw
1
1
Fork 0
mirror of https://github.com/GaloisInc/macaw.git synced 2024-12-24 22:53:43 +03:00
Code Issues Projects Releases Wiki Activity

Add cases for FP operation translation

Browse Source
This commit is contained in:
Tristan Ravitch 2017-10-18 08:49:09 -07:00
parent 13def38f25
commit 49545299d9
1 changed files with 48 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -375,6 +375,54 @@ evalNonceAppTH bvi nonceApp =
--
-- At the top level (after cases 1 and 2), we need to call 'extractValue' *once*.
case fnName of
"fp_add64" ->
case FC.toListFC Some args of
[Some lhs, Some rhs] -> do
[| AppExpr <$> (M.FPAdd M.DoubleFloatRepr <$> $(addEltTH bvi lhs) <*> $(addEltTH bvi rhs)) |]
"fp_add32" ->
case FC.toListFC Some args of
[Some lhs, Some rhs] -> do
[| AppExpr <$> (M.FPAdd M.SingleFloatRepr <$> $(addEltTH bvi lhs) <*> $(addEltTH bvi rhs)) |]
"fp_sub64" ->
case FC.toListFC Some args of
[Some lhs, Some rhs] -> do
[| AppExpr <$> (M.FPSub M.DoubleFloatRepr <$> $(addEltTH bvi lhs) <*> $(addEltTH bvi rhs)) |]
"fp_sub32" ->
case FC.toListFC Some args of
[Some lhs, Some rhs] -> do
[| AppExpr <$> (M.FPSub M.SingleFloatRepr <$> $(addEltTH bvi lhs) <*> $(addEltTH bvi rhs)) |]
"fp_mul64" ->
case FC.toListFC Some args of
[Some lhs, Some rhs] -> do
[| AppExpr <$> (M.FPMul M.DoubleFloatRepr <$> $(addEltTH bvi lhs) <*> $(addEltTH bvi rhs)) |]
"fp_mul32" ->
case FC.toListFC Some args of
[Some lhs, Some rhs] -> do
[| AppExpr <$> (M.FPMul M.SingleFloatRepr <$> $(addEltTH bvi lhs) <*> $(addEltTH bvi rhs)) |]
"fp_div64" ->
case FC.toListFC Some args of
[Some lhs, Some rhs] -> do
[| AppExpr <$> (M.FPDiv M.DoubleFloatRepr <$> $(addEltTH bvi lhs) <*> $(addEltTH bvi rhs)) |]
"fp_div32" ->
case FC.toListFC Some args of
[Some lhs, Some rhs] -> do
[| AppExpr <$> (M.FPDiv M.SingleFloatRepr <$> $(addEltTH bvi lhs) <*> $(addEltTH bvi rhs)) |]
"fp_muladd64" ->
case FC.toListFC Some args of
[Some a, Some b, Some c] ->
-- a * c + b
[| do prod <- AppExpr <$> (M.FPMul M.DoubleFloatRepr <$> $(addEltTH bvi a) <*> $(addEltTH bvi c))
prodE <- addExpr prod
AppExpr <$> (M.FPAdd M.DoubleFloatRepr <$> pure prodE <*> $(addEltTH bvi b))
|]
"fp_muladd32" ->
case FC.toListFC Some args of
[Some a, Some b, Some c] ->
-- a * c + b
[| do prod <- AppExpr <$> (M.FPMul M.SingleFloatRepr <$> $(addEltTH bvi a) <*> $(addEltTH bvi c))
prodE <- addExpr prod
AppExpr <$> (M.FPAdd M.SingleFloatRepr <$> pure prodE <*> $(addEltTH bvi b))
|]
"ppc_is_r0" -> do
case FC.toListFC Some args of
[Some operand] -> do