diff options
| author | Jan Stolarek <jan.stolarek@p.lodz.pl> | 2013-09-16 15:15:59 +0100 |
|---|---|---|
| committer | Jan Stolarek <jan.stolarek@p.lodz.pl> | 2013-09-18 14:19:47 +0100 |
| commit | 4a9f2162380bc57842945f219e88cf9778c2c0df (patch) | |
| tree | b003129f3604498fc9c9685b7a3d01255d24faf0 /testsuite/tests/numeric | |
| parent | eca30442817caebab0adee66594cec5316538dd0 (diff) | |
| download | haskell-4a9f2162380bc57842945f219e88cf9778c2c0df.tar.gz | |
Follow changes in comparison primops (see #6135)
Diffstat (limited to 'testsuite/tests/numeric')
| -rw-r--r-- | testsuite/tests/numeric/should_run/arith016.hs | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/testsuite/tests/numeric/should_run/arith016.hs b/testsuite/tests/numeric/should_run/arith016.hs index 1437b8799d..a219b5575e 100644 --- a/testsuite/tests/numeric/should_run/arith016.hs +++ b/testsuite/tests/numeric/should_run/arith016.hs @@ -2,18 +2,19 @@ module Main where -import GHC.Exts ( Float(F#), - eqFloat#, neFloat#, ltFloat#, - leFloat#, gtFloat#, geFloat# +import GHC.Exts ( Float(F#), + eqFloat#, neFloat#, ltFloat#, + leFloat#, gtFloat#, geFloat#, + isTrue# ) fcmp_eq, fcmp_ne, fcmp_lt, fcmp_le, fcmp_gt, fcmp_ge :: (String, Float -> Float -> Bool) -fcmp_eq = ("==", \ (F# a) (F# b) -> a `eqFloat#` b) -fcmp_ne = ("/=", \ (F# a) (F# b) -> a `neFloat#` b) -fcmp_lt = ("< ", \ (F# a) (F# b) -> a `ltFloat#` b) -fcmp_le = ("<=", \ (F# a) (F# b) -> a `leFloat#` b) -fcmp_gt = ("> ", \ (F# a) (F# b) -> a `gtFloat#` b) -fcmp_ge = (">=", \ (F# a) (F# b) -> a `geFloat#` b) +fcmp_eq = ("==", \ (F# a) (F# b) -> isTrue# (a `eqFloat#` b)) +fcmp_ne = ("/=", \ (F# a) (F# b) -> isTrue# (a `neFloat#` b)) +fcmp_lt = ("< ", \ (F# a) (F# b) -> isTrue# (a `ltFloat#` b)) +fcmp_le = ("<=", \ (F# a) (F# b) -> isTrue# (a `leFloat#` b)) +fcmp_gt = ("> ", \ (F# a) (F# b) -> isTrue# (a `gtFloat#` b)) +fcmp_ge = (">=", \ (F# a) (F# b) -> isTrue# (a `geFloat#` b)) float_fns = [fcmp_eq, fcmp_ne, fcmp_lt, fcmp_le, fcmp_gt, fcmp_ge] |