projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
476eadf
)
[project @ 1996-12-16 16:40:43 by simonm]
author
simonm
<unknown>
Mon, 16 Dec 1996 16:40:43 +0000
(16:40 +0000)
committer
simonm
<unknown>
Mon, 16 Dec 1996 16:40:43 +0000
(16:40 +0000)
fix bug in latest commit
ghc/compiler/codeGen/CgTailCall.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/codeGen/CgTailCall.lhs
b/ghc/compiler/codeGen/CgTailCall.lhs
index
702f647
..
4cc7b30
100644
(file)
--- 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") [],
([],
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)
])
StdEntry lbl Nothing -> ([], CJump (CLbl lbl CodePtrRep))
StdEntry lbl (Just itbl) -> ([], CAssign (CReg infoptr) (CLbl itbl DataPtrRep)