diff options
| author | simonpj@microsoft.com <unknown> | 2008-01-18 17:17:54 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2008-01-18 17:17:54 +0000 |
| commit | 194eb4bbf6a96d08fee652e244dfc31685abf10e (patch) | |
| tree | 36fdadbe5d2dcb286b19a2addacd3995af4540df /compiler/simplCore/FloatOut.lhs | |
| parent | f3399c446c7507d46d6cc550aa2fe7027dbc1b5b (diff) | |
| download | haskell-194eb4bbf6a96d08fee652e244dfc31685abf10e.tar.gz | |
Wibble to SetLevels.abstractVars
I've gotten this wrong more than once. Hopefully this has it nailed.
The issue is that in float-out we must abstract over the correct
variables.
Diffstat (limited to 'compiler/simplCore/FloatOut.lhs')
| -rw-r--r-- | compiler/simplCore/FloatOut.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/simplCore/FloatOut.lhs b/compiler/simplCore/FloatOut.lhs index 7cac08db8a..e6e8b7a015 100644 --- a/compiler/simplCore/FloatOut.lhs +++ b/compiler/simplCore/FloatOut.lhs @@ -322,7 +322,7 @@ floatExpr lvl (Note InlineMe expr) -- Other than SCCs -- them into floating_defns (which would mean testing for -- inlineCtxt at every let) (fs, [], Note InlineMe (install floating_defns expr')) } - -- See Note [FloatOut inside INLINE] + -- See Note [FloatOut inside INLINE] in SetLevels -- I'm guessing that floating_dens should be empty floatExpr lvl (Note note expr) -- Other than SCCs |