projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Mac OS X mangler: follow some minor gcc changes
[ghc-hetmet.git]
/
compiler
/
profiling
/
SCCfinal.lhs
diff --git
a/compiler/profiling/SCCfinal.lhs
b/compiler/profiling/SCCfinal.lhs
index
8e02892
..
d27a3a0
100644
(file)
--- a/
compiler/profiling/SCCfinal.lhs
+++ b/
compiler/profiling/SCCfinal.lhs
@@
-195,6
+195,10
@@
stgMassageForProfiling this_pkg mod_name us stg_binds
= do_let b e `thenMM` \ (b,e) ->
returnMM (StgLetNoEscape lvs1 lvs2 b e)
+ do_expr (StgTick m n expr)
+ = do_expr expr `thenMM` \ expr' ->
+ returnMM (StgTick m n expr')
+
#ifdef DEBUG
do_expr other = pprPanic "SCCfinal.do_expr" (ppr other)
#endif