From: Simon Marlow Date: Fri, 11 Jul 2008 15:27:03 +0000 (+0000) Subject: FIX #2322: add exceptions for more functions in math.h X-Git-Tag: Before_cabalised-GHC~6 X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=d502cd03812e1c6452927d40e31e81c0594e899e FIX #2322: add exceptions for more functions in math.h --- diff --git a/compiler/cmm/CLabel.hs b/compiler/cmm/CLabel.hs index d18f133..8989276 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 -- -----------------------------------------------------------------------------