From ffa647ba054966f3d8dea4032ff225097fe5b3e6 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 6 Nov 2001 11:02:05 +0000
Subject: [PATCH] [project @ 2001-11-06 11:02:05 by simonmar] Change an ASSERT
 into an ASSERT2

---
 ghc/compiler/codeGen/CgClosure.lhs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/compiler/codeGen/CgClosure.lhs b/ghc/compiler/codeGen/CgClosure.lhs
index 48905e9..8aca152 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.51 2001/10/25 02:13:11 sof Exp $
+% $Id: CgClosure.lhs,v 1.52 2001/11/06 11:02:05 simonmar Exp $
 %
 \section[CgClosure]{Code generation for closures}
 
@@ -474,7 +474,7 @@ enterCostCentreCode closure_info ccs is_thunk is_box
   = if not opt_SccProfilingOn then
 	nopC
     else
-	ASSERT(not (noCCSAttached ccs))
+	ASSERT2(not (noCCSAttached ccs), ppr (closureName closure_info) <+> ppr ccs)
 
 	if isSubsumedCCS ccs then
 	    ASSERT(isToplevClosure closure_info)
-- 
1.7.10.4