From: ross <unknown>
Date: Tue, 26 Oct 2004 17:48:39 +0000 (+0000)
Subject: [project @ 2004-10-26 17:48:39 by ross]
X-Git-Tag: Initial_conversion_from_CVS_complete~1482
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=eb041e812156e9ac601b8c1f73fa43379fd0a2b4;p=ghc-hetmet.git

[project @ 2004-10-26 17:48:39 by ross]
bind acosDouble to acos(), rather than asin()
---

diff --git a/ghc/compiler/cmm/PprC.hs b/ghc/compiler/cmm/PprC.hs
index 44fe7ae..421b557 100644
--- a/ghc/compiler/cmm/PprC.hs
+++ b/ghc/compiler/cmm/PprC.hs
@@ -523,7 +523,7 @@ pprCallishMachOp_for_C mop
         MO_F64_Cosh -> ptext SLIT("cosh")
         MO_F64_Tanh -> ptext SLIT("tanh")
         MO_F64_Asin -> ptext SLIT("asin")
-        MO_F64_Acos -> ptext SLIT("asin")
+        MO_F64_Acos -> ptext SLIT("acos")
         MO_F64_Atan -> ptext SLIT("atan")
         MO_F64_Log  -> ptext SLIT("log")
         MO_F64_Exp  -> ptext SLIT("exp")