From: simonm <unknown>
Date: Mon, 16 Dec 1996 16:40:43 +0000 (+0000)
Subject: [project @ 1996-12-16 16:40:43 by simonm]
X-Git-Tag: Approximately_1000_patches_recorded~875
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=45b96c6f8c8c6914a0bafcd2e1c0741ed3cfcbfb;p=ghc-hetmet.git

[project @ 1996-12-16 16:40:43 by simonm]
fix bug in latest commit
---

diff --git a/ghc/compiler/codeGen/CgTailCall.lhs b/ghc/compiler/codeGen/CgTailCall.lhs
index 702f647..4cc7b30 100644
--- a/ghc/compiler/codeGen/CgTailCall.lhs
+++ b/ghc/compiler/codeGen/CgTailCall.lhs
@@ -334,7 +334,7 @@ tailCallBusiness fun fun_amode lf_info arg_amodes live_vars pending_assts
 		([],
 		     mkAbstractCs [
 			CCallProfCtrMacro SLIT("ENT_VIA_NODE") [],
-			CJump (CMacroExpr CodePtrKind ENTRY_CODE [(CMacroExpr DataPtrKind INFO_PTR [CReg node])])
+			CJump (CMacroExpr CodePtrRep ENTRY_CODE [(CMacroExpr DataPtrRep INFO_PTR [CReg node])])
 		     ])
 	      StdEntry lbl Nothing	  -> ([], CJump (CLbl lbl CodePtrRep))
 	      StdEntry lbl (Just itbl)	  -> ([], CAssign (CReg infoptr) (CLbl itbl DataPtrRep)