From: simonmar <unknown>
Date: Tue, 13 Mar 2001 14:18:47 +0000 (+0000)
Subject: [project @ 2001-03-13 14:18:47 by simonmar]
X-Git-Tag: Approximately_9120_patches~2436
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6a44ce76861d73d59badc8f8c17ffbd52eff17ba;p=ghc-hetmet.git

[project @ 2001-03-13 14:18:47 by simonmar]
re-instate an ASSERT that was temporarily commented out.
---

diff --git a/ghc/compiler/codeGen/CodeGen.lhs b/ghc/compiler/codeGen/CodeGen.lhs
index 5db06d0..f9ee5b7 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 =