From: panne <unknown>
Date: Fri, 30 Jun 2000 18:38:03 +0000 (+0000)
Subject: [project @ 2000-06-30 18:38:03 by panne]
X-Git-Tag: Approximately_9120_patches~4103
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a4b4ad24cb202ca4b76a82a40dc9a7f939dd4e49;p=ghc-hetmet.git

[project @ 2000-06-30 18:38:03 by panne]
Remove parentheses around C function/macros names. This is necessary
because cpp does *not* replace e.g.

   (eqForeignObj)(f1,f2)

with

  ((f1)==(f2))

(see PrimOps.h), heaven (or K&R) knows why. OK foreign importing
macros is a hack, but GHC seems to depend on it.
---

diff --git a/ghc/compiler/absCSyn/PprAbsC.lhs b/ghc/compiler/absCSyn/PprAbsC.lhs
index 667d1bb..c734871 100644
--- a/ghc/compiler/absCSyn/PprAbsC.lhs
+++ b/ghc/compiler/absCSyn/PprAbsC.lhs
@@ -838,7 +838,7 @@ pprCCall call@(CCall op_str is_asm may_gc cconv) args results vol_regs
 		if null non_void_results
 		  then empty
 		  else text "%r = ",
-		lparen, parens fun_name, lparen,
+		lparen, fun_name, lparen,
 		  hcat (punctuate comma ccall_fun_args),
 		text "));"
 	])