Commit 06944f8b authored by simonpj's avatar simonpj
Browse files

[project @ 2002-03-01 16:53:14 by simonpj]

Minor bug in float-out
parent 43f0ef0d
......@@ -283,9 +283,12 @@ floatExpr lvl (Note note@(SCC cc) expr)
floatExpr lvl (Note InlineMe expr) -- Other than SCCs
= case floatExpr InlineCtxt expr of { (fs, floating_defns, expr') ->
WARN( not (null floating_defns),
ppr expr $$ ppr floating_defns ) -- We do no floating out of Inlines
(fs, [], Note InlineMe expr') } -- See notes in SetLevels
-- There can be some floating_defns, arising from
-- ordinary lets that were there all the time. It seems
-- more efficient to test once here than to avoid putting
-- them into floating_defns (which would mean testing for
-- inlineCtxt at every let)
(fs, [], Note InlineMe (install floating_defns expr')) } -- See notes in SetLevels
floatExpr lvl (Note note expr) -- Other than SCCs
= case (floatExpr lvl expr) of { (fs, floating_defns, expr') ->
......
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