[MLton-commit] r5818

[Matthew Fluet]

Hadn't meant to add early introduceLoops pass just yet
----------------------------------------------------------------------

U   mlton/trunk/mlton/ssa/simplify.fun

----------------------------------------------------------------------

Modified: mlton/trunk/mlton/ssa/simplify.fun
===================================================================
--- mlton/trunk/mlton/ssa/simplify.fun	2007-08-03 16:37:40 UTC (rev 5817)
+++ mlton/trunk/mlton/ssa/simplify.fun	2007-08-04 00:17:06 UTC (rev 5818)
@@ -36,7 +36,6 @@
 
 val ssaPassesDefault =
    {name = "removeUnused1", doit = RemoveUnused.remove} ::
-   {name = "introduceLoops1", doit = IntroduceLoops.introduceLoops} ::
    {name = "inlineLeaf", doit = fn p => 
     Inline.inlineLeaf (p, {loops = !Control.inlineLeafLoops,
                            repeat = !Control.inlineLeafRepeat,
@@ -62,7 +61,7 @@
    {name = "localFlatten2", doit = LocalFlatten.flatten} ::
    {name = "removeUnused3", doit = RemoveUnused.remove} ::
    {name = "contify3", doit = Contify.contify} ::
-   {name = "introduceLoops2", doit = IntroduceLoops.introduceLoops} ::
+   {name = "introduceLoops", doit = IntroduceLoops.introduceLoops} ::
    {name = "loopInvariant", doit = LoopInvariant.loopInvariant} ::
    {name = "localRef", doit = LocalRef.eliminate} ::
    {name = "flatten", doit = Flatten.flatten} ::