X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fcmm%2FPprC.hs;fp=compiler%2Fcmm%2FPprC.hs;h=10f4e8bacfbff2bcab6d71b760f56e09d6c6d67e;hp=d363cef50b19b8b34cb296fd240be319aa79f8fe;hb=470bedbbe60db2b9cc85dccafb6e06d9a841419d;hpb=d1bffa693adfa48ef65240bb3c097f5f5f77868e

diff --git a/compiler/cmm/PprC.hs b/compiler/cmm/PprC.hs
index d363cef..10f4e8b 100644
--- a/compiler/cmm/PprC.hs
+++ b/compiler/cmm/PprC.hs
@@ -248,7 +248,7 @@ pprStmt stmt = case stmt of
                 | CmmNeverReturns <- ret ->
                     let myCall = pprCall (pprCLabel lbl) cconv results args safety
                     in (real_fun_proto lbl, myCall)
-                | not (isMathFun lbl || isCas lbl) ->
+                | not (isMathFun lbl) ->
                     let myCall = braces (
                                      pprCFunType (char '*' <> text "ghcFunPtr") cconv results args <> semi
                                   $$ text "ghcFunPtr" <+> equals <+> cast_fn <> semi