diff options
| author | simonmar <unknown> | 2001-03-13 14:18:47 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2001-03-13 14:18:47 +0000 |
| commit | 6a44ce76861d73d59badc8f8c17ffbd52eff17ba (patch) | |
| tree | 9a81f24b63d7e6176853e9273dca668c90d2e7ec | |
| parent | 17e8f5c279e5d23cfd44d25298646426d39342c8 (diff) | |
| download | haskell-6a44ce76861d73d59badc8f8c17ffbd52eff17ba.tar.gz | |
[project @ 2001-03-13 14:18:47 by simonmar]
re-instate an ASSERT that was temporarily commented out.
| -rw-r--r-- | ghc/compiler/codeGen/CodeGen.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/codeGen/CodeGen.lhs b/ghc/compiler/codeGen/CodeGen.lhs index 5db06d0bb4..f9ee5b7969 100644 --- a/ghc/compiler/codeGen/CodeGen.lhs +++ b/ghc/compiler/codeGen/CodeGen.lhs @@ -267,7 +267,7 @@ cgTopRhs bndr (StgRhsClosure cc bi fvs upd_flag args body) srt = -- There should be no free variables ASSERT(null fvs) -- If the closure is a thunk, then the binder must be recorded as such. --- ASSERT2(not (isUpdatable upd_flag) || mayHaveCafRefs (idCafInfo bndr), ppr bndr) + ASSERT2(not (isUpdatable upd_flag) || mayHaveCafRefs (idCafInfo bndr), ppr bndr) getSRTLabel `thenFC` \srt_label -> let lf_info = |