Commit d9fd6a66 authored by simonpj's avatar simonpj
Browse files

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

Profiling addition
parent 5dfcae0c
...@@ -476,7 +476,7 @@ simplifyPgm mode switches hsc_env us rule_base guts ...@@ -476,7 +476,7 @@ simplifyPgm mode switches hsc_env us rule_base guts
-- case t of {(_,counts') -> if counts'=0 then ... } -- case t of {(_,counts') -> if counts'=0 then ... }
-- So the conditional didn't force counts', because the -- So the conditional didn't force counts', because the
-- selection got duplicated. Sigh! -- 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 { (binds', counts') -> do {
let { guts' = guts { mg_binds = binds' } let { guts' = guts { mg_binds = binds' }
......
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