[project @ 2001-12-11 17:51:33 by simonpj]

[ghc-hetmet.git] / ghc / compiler / simplCore / FloatOut.lhs

diff --git a/ghc/compiler/simplCore/FloatOut.lhs b/ghc/compiler/simplCore/FloatOut.lhs
index 6552bdd..d81c3b9 100644 (file)
--- a/ghc/compiler/simplCore/FloatOut.lhs
+++ b/ghc/compiler/simplCore/FloatOut.lhs
@@ -256,7 +256,8 @@ floatExpr env lvl (Note note@(SCC cc) expr)
 
 floatExpr env lvl (Note InlineMe expr) -- Other than SCCs
   = case floatExpr env InlineCtxt expr of { (fs, floating_defns, expr') ->
-    ASSERT( null floating_defns )      -- We do no floating out of Inlines
+    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
 
 floatExpr env lvl (Note note expr)     -- Other than SCCs