projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
0f95e0d
)
[project @ 2001-11-27 11:23:44 by simonmar]
author
simonmar
<unknown>
Tue, 27 Nov 2001 11:23:44 +0000
(11:23 +0000)
committer
simonmar
<unknown>
Tue, 27 Nov 2001 11:23:44 +0000
(11:23 +0000)
Add a DEBUG catch-all case in do_expr.
ghc/compiler/profiling/SCCfinal.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/profiling/SCCfinal.lhs
b/ghc/compiler/profiling/SCCfinal.lhs
index
8ed34ab
..
2cd96d4
100644
(file)
--- a/
ghc/compiler/profiling/SCCfinal.lhs
+++ b/
ghc/compiler/profiling/SCCfinal.lhs
@@
-213,6
+213,10
@@
stgMassageForProfiling mod_name us stg_binds
= do_let b e `thenMM` \ (b,e) ->
returnMM (StgLetNoEscape lvs1 lvs2 b e)
+#ifdef DEBUG
+ do_expr other = pprPanic "SCCfinal.do_expr" (ppr other)
+#endif
+
----------------------------------
do_let (StgNonRec srt b rhs) e