From d502cd03812e1c6452927d40e31e81c0594e899e Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Fri, 11 Jul 2008 15:27:03 +0000 Subject: [PATCH] FIX #2322: add exceptions for more functions in math.h --- compiler/cmm/CLabel.hs | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) 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 -- ----------------------------------------------------------------------------- -- 1.7.10.4