diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2008-07-11 15:27:03 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2008-07-11 15:27:03 +0000 |
| commit | d502cd03812e1c6452927d40e31e81c0594e899e (patch) | |
| tree | fe0825207b9275e0508beee35e8f68696849f8f6 /compiler/cmm/CLabel.hs | |
| parent | 7968190992cc1a148524360967afba8e29edf1f0 (diff) | |
| download | haskell-d502cd03812e1c6452927d40e31e81c0594e899e.tar.gz | |
FIX #2322: add exceptions for more functions in math.h
Diffstat (limited to 'compiler/cmm/CLabel.hs')
| -rw-r--r-- | compiler/cmm/CLabel.hs | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/compiler/cmm/CLabel.hs b/compiler/cmm/CLabel.hs index d18f133b9e..8989276b73 100644 --- a/compiler/cmm/CLabel.hs +++ b/compiler/cmm/CLabel.hs @@ -500,8 +500,16 @@ isMathFun (ForeignLabel fs _ _) = fs `elem` math_funs (fsLit "cosf"), (fsLit "tanf"), (fsLit "sinhf"), (fsLit "coshf"), (fsLit "tanhf"), (fsLit "asinf"), (fsLit "acosf"), (fsLit "atanf"), (fsLit "logf"), - (fsLit "expf"), (fsLit "sqrtf") - ] + (fsLit "expf"), (fsLit "sqrtf"), (fsLit "frexp"), + (fsLit "modf"), (fsLit "ilogb"), (fsLit "copysign"), + (fsLit "remainder"), (fsLit "nextafter"), (fsLit "logb"), + (fsLit "cbrt"), (fsLit "atanh"), (fsLit "asinh"), + (fsLit "acosh"), (fsLit "lgamma"),(fsLit "hypot"), + (fsLit "erfc"), (fsLit "erf"), (fsLit "trunc"), + (fsLit "round"), (fsLit "fmod"), (fsLit "floor"), + (fsLit "fabs"), (fsLit "ceil"), (fsLit "log10"), + (fsLit "ldexp"), (fsLit "atan2"), (fsLit "rint") + ] isMathFun _ = False -- ----------------------------------------------------------------------------- |