[commit: ghc] master: mkSlowEntryCode: enterLocalIdLabel should be enterIdLabel (#5357) (4464c92)
Simon Marlow
marlowsd at gmail.com
Wed Jan 4 16:10:59 CET 2012
Repository : ssh://darcs.haskell.org//srv/darcs/ghc
On branch : master
http://hackage.haskell.org/trac/ghc/changeset/4464c92badaedc45ce53d6349f6790f6d2298103
>---------------------------------------------------------------
commit 4464c92badaedc45ce53d6349f6790f6d2298103
Author: Simon Marlow <marlowsd at gmail.com>
Date: Wed Jan 4 13:59:06 2012 +0000
mkSlowEntryCode: enterLocalIdLabel should be enterIdLabel (#5357)
>---------------------------------------------------------------
compiler/codeGen/CgClosure.lhs | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/compiler/codeGen/CgClosure.lhs b/compiler/codeGen/CgClosure.lhs
index 7bad851..1ebe22e 100644
--- a/compiler/codeGen/CgClosure.lhs
+++ b/compiler/codeGen/CgClosure.lhs
@@ -374,7 +374,7 @@ mkSlowEntryCode cl_info reg_args
stk_adj_pop = CmmAssign spReg (cmmRegOffW spReg final_stk_offset)
stk_adj_push = CmmAssign spReg (cmmRegOffW spReg (- final_stk_offset))
- jump_to_entry = CmmJump (mkLblExpr (enterLocalIdLabel name has_caf_refs)) []
+ jump_to_entry = CmmJump (mkLblExpr (enterIdLabel name has_caf_refs)) []
\end{code}
More information about the Cvs-ghc
mailing list