projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'ghc-generics' of http://darcs.haskell.org/ghc into ghc-generics
[ghc-hetmet.git]
/
compiler
/
codeGen
/
CgClosure.lhs
diff --git
a/compiler/codeGen/CgClosure.lhs
b/compiler/codeGen/CgClosure.lhs
index
60ba7f8
..
d158bf7
100644
(file)
--- a/
compiler/codeGen/CgClosure.lhs
+++ b/
compiler/codeGen/CgClosure.lhs
@@
-31,8
+31,8
@@
import CgCallConv
import CgUtils
import ClosureInfo
import SMRep
import CgUtils
import ClosureInfo
import SMRep
-import Cmm
-import CmmUtils
+import OldCmm
+import OldCmmUtils
import CLabel
import StgSyn
import CostCentre
import CLabel
import StgSyn
import CostCentre
@@
-250,7
+250,6
@@
closureCodeBody _binder_info cl_info cc [{- No args i.e. thunk -}] body = do
-- in update frame CAF/DICT functions will be
-- subsumed by this enclosing cc
{ enterCostCentre cl_info cc body
-- in update frame CAF/DICT functions will be
-- subsumed by this enclosing cc
{ enterCostCentre cl_info cc body
- ; stmtsC [CmmComment $ mkFastString $ showSDoc $ ppr body]
; cgExpr body }
}
; cgExpr body }
}