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
/
CgLetNoEscape.lhs
diff --git
a/compiler/codeGen/CgLetNoEscape.lhs
b/compiler/codeGen/CgLetNoEscape.lhs
index
f501be5
..
ed21833
100644
(file)
--- a/
compiler/codeGen/CgLetNoEscape.lhs
+++ b/
compiler/codeGen/CgLetNoEscape.lhs
@@
-24,13
+24,12
@@
import CgCon
import CgHeapery
import CgInfoTbls
import CgStackery
import CgHeapery
import CgInfoTbls
import CgStackery
-import Cmm
-import CmmUtils
+import OldCmm
+import OldCmmUtils
import CLabel
import ClosureInfo
import CostCentre
import Id
import CLabel
import ClosureInfo
import CostCentre
import Id
-import Var
import SMRep
import BasicTypes
\end{code}
import SMRep
import BasicTypes
\end{code}
@@
-168,7
+167,7
@@
cgLetNoEscapeClosure
-- Ignore the label that comes back from
-- mkRetDirectTarget. It must be conjured up elswhere
-- Ignore the label that comes back from
-- mkRetDirectTarget. It must be conjured up elswhere
- ; emitReturnTarget (idName bndr) abs_c
+ ; _ <- emitReturnTarget (idName bndr) abs_c
; return () })
; returnFC (bndr, letNoEscapeIdInfo bndr vSp lf_info) }
; return () })
; returnFC (bndr, letNoEscapeIdInfo bndr vSp lf_info) }