From: simonmar <unknown>
Date: Fri, 7 Jul 2000 10:35:32 +0000 (+0000)
Subject: [project @ 2000-07-07 10:35:32 by simonmar]
X-Git-Tag: Approximately_9120_patches~4062
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=219fbeccb52d15bacc54f88d422b172866dbd154;p=ghc-hetmet.git

[project @ 2000-07-07 10:35:32 by simonmar]
Remove the cast from CMacroExprs - it doesn't appear to be needed.
This fixes the recently introduced bug when compiling CCS_HDR macros
in profiling code.
---

diff --git a/ghc/compiler/absCSyn/PprAbsC.lhs b/ghc/compiler/absCSyn/PprAbsC.lhs
index ab2aa34..ed066f1 100644
--- a/ghc/compiler/absCSyn/PprAbsC.lhs
+++ b/ghc/compiler/absCSyn/PprAbsC.lhs
@@ -1148,8 +1148,7 @@ ppr_amode (CJoinPoint _)
   = panic "ppr_amode: CJoinPoint"
 
 ppr_amode (CMacroExpr pk macro as)
-  = parens (pprPrimKind pk) <> 
-    parens (ptext (cExprMacroText macro) <> 
+  = parens (ptext (cExprMacroText macro) <> 
 	    parens (hcat (punctuate comma (map pprAmode as))))
 \end{code}