From: simonpj <unknown>
Date: Fri, 25 Feb 2005 12:50:48 +0000 (+0000)
Subject: [project @ 2005-02-25 12:50:48 by simonpj]
X-Git-Tag: Initial_conversion_from_CVS_complete~1021
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d9fd6a665237f0e2ab769915db873b9d72bd1c0a;p=ghc-hetmet.git

[project @ 2005-02-25 12:50:48 by simonpj]
Profiling addition
---

diff --git a/ghc/compiler/simplCore/SimplCore.lhs b/ghc/compiler/simplCore/SimplCore.lhs
index 7593adb..32c6978 100644
--- a/ghc/compiler/simplCore/SimplCore.lhs
+++ b/ghc/compiler/simplCore/SimplCore.lhs
@@ -476,7 +476,7 @@ simplifyPgm mode switches hsc_env us rule_base guts
 		-- 	case t of {(_,counts') -> if counts'=0 then ... }
 		-- So the conditional didn't force counts', because the
 		-- selection got duplicated.  Sigh!
-	   case initSmpl dflags us1 (simplTopBinds simpl_env tagged_binds) of {
+	   case initSmpl dflags us1 (_scc_ "SimplTopBinds" simplTopBinds simpl_env tagged_binds) of {
 	  	(binds', counts') -> do {
 
 	   let	{ guts'      = guts { mg_binds = binds' }