diff options
| author | simonm <unknown> | 1999-04-23 09:51:26 +0000 |
|---|---|---|
| committer | simonm <unknown> | 1999-04-23 09:51:26 +0000 |
| commit | d01e768b927a536f36f8727f634a5e6e48e914e3 (patch) | |
| tree | d39657faff9702f3aa7ef9d205e672546325da8c /ghc/compiler/codeGen | |
| parent | cb1ce9cd75baa5e640ec795c1518eb537b1caa28 (diff) | |
| download | haskell-d01e768b927a536f36f8727f634a5e6e48e914e3.tar.gz | |
[project @ 1999-04-23 09:51:24 by simonm]
Remove hack to force setting the CCCS when we enter a function closure
defined inside a lambda. We use a more general solution now.
Diffstat (limited to 'ghc/compiler/codeGen')
| -rw-r--r-- | ghc/compiler/codeGen/CgClosure.lhs | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/ghc/compiler/codeGen/CgClosure.lhs b/ghc/compiler/codeGen/CgClosure.lhs index 6b5ad7bc3f..0348f8f282 100644 --- a/ghc/compiler/codeGen/CgClosure.lhs +++ b/ghc/compiler/codeGen/CgClosure.lhs @@ -1,7 +1,7 @@ % % (c) The GRASP/AQUA Project, Glasgow University, 1992-1998 % -% $Id: CgClosure.lhs,v 1.27 1999/04/08 15:46:15 simonm Exp $ +% $Id: CgClosure.lhs,v 1.28 1999/04/23 09:51:24 simonm Exp $ % \section[CgClosure]{Code generation for closures} @@ -459,11 +459,6 @@ enterCostCentreCode closure_info ccs is_thunk is_box ASSERT(is_thunk == IsFunction) costCentresC SLIT("ENTER_CCS_FSUB") [] - else if isSetCurrentCCS ccs then - ASSERT(not (isToplevClosure closure_info)) - ASSERT(is_thunk == IsFunction) - costCentresC SLIT("ENTER_CCS_TCL") [CReg node] - else if isCurrentCCS ccs then if re_entrant && not is_box then costCentresC SLIT("ENTER_CCS_FCL") [CReg node] |