From: simonmar <unknown>
Date: Tue, 28 Mar 2000 13:18:49 +0000 (+0000)
Subject: [project @ 2000-03-28 13:18:49 by simonmar]
X-Git-Tag: Approximately_9120_patches~4885
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c70eedc363e058a9b6f32e60db7c17a5cdaf42ef;p=ghc-hetmet.git

[project @ 2000-03-28 13:18:49 by simonmar]
Don't use "ccall" as a variable name; it confuses the interface file
parser in 4.06.  This bug has been fixed in 4.07.
---

diff --git a/ghc/compiler/prelude/PrimOp.lhs b/ghc/compiler/prelude/PrimOp.lhs
index a6dce94..3a12825 100644
--- a/ghc/compiler/prelude/PrimOp.lhs
+++ b/ghc/compiler/prelude/PrimOp.lhs
@@ -1943,7 +1943,7 @@ primOpOutOfLine op
 	  -- it is done out-of-line rather than require
 	  -- the NCG to implement it.
 
-	CCallOp ccall -> ccallMayGC ccall
+	CCallOp c_call -> ccallMayGC c_call
 
 	other -> False
 \end{code}
@@ -2368,7 +2368,7 @@ Output stuff:
 \begin{code}
 pprPrimOp  :: PrimOp -> SDoc
 
-pprPrimOp (CCallOp ccall) = pprCCallOp ccall
+pprPrimOp (CCallOp c_call) = pprCCallOp c_call
 pprPrimOp other_op
   = getPprStyle $ \ sty ->
     if ifaceStyle sty then	-- For interfaces Print it qualified with PrelGHC.