[use inlinability to choose loopbreakers in a smarter way
John Meacham <john@repetae.net>**20060211030209] hunk ./E/SSimplify.hs 96
-            (lb,ds'') = findLoopBreakers (\ (t,(e,_,_)) -> loopFunc e) (const True) gr'
+            (lb,ds'') = findLoopBreakers (\ (t,(e,_,_)) -> loopFunc t e) (const True) gr'
hunk ./E/SSimplify.hs 120
-loopFunc (EPrim (APrim (PrimPrim s) _) _ _) | "Place" `isPrefixOf` s = -100
+--loopFunc t (EPrim (APrim (PrimPrim s) _) _ _) | "Place" `isPrefixOf` s = -100
+loopFunc t _ | getProperty prop_PLACEHOLDER t = -100  -- we must not choose the placeholder as the loopbreaker
+loopFunc t e = negate (baseInlinability t e)
+{-
hunk ./E/SSimplify.hs 131
-
+-}