Commit ffa647ba authored by simonmar's avatar simonmar
Browse files

[project @ 2001-11-06 11:02:05 by simonmar]

Change an ASSERT into an ASSERT2
parent 16e19488
%
% (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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment