[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