[MLton-commit] r5775

Matthew Fluet fluet at mlton.org
Sat Jul 14 11:01:57 PDT 2007


Remove unused code
----------------------------------------------------------------------

U   mlton/trunk/mlton/ssa/simplify2.fun

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

Modified: mlton/trunk/mlton/ssa/simplify2.fun
===================================================================
--- mlton/trunk/mlton/ssa/simplify2.fun	2007-07-13 20:02:28 UTC (rev 5774)
+++ mlton/trunk/mlton/ssa/simplify2.fun	2007-07-14 18:01:57 UTC (rev 5775)
@@ -33,26 +33,6 @@
 (* structure Useless = Useless (S) *)
 structure Zone = Zone (S)
 
-(*
-fun inlineNonRecursive (product, small) p =
-   Ref.fluidLet
-   (Control.inline, 
-    Control.NonRecursive {product = product, small = small}, 
-    fn () => Inline.inline p)
-fun inlineLeaf size p =
-   Ref.fluidLet
-   (Control.inlineIntoMain, true, fn () =>
-    Ref.fluidLet
-    (Control.inline, Control.Leaf {size = SOME size}, 
-     fn () => Inline.inline p))
-fun inlineLeafNoLoop size p =
-   Ref.fluidLet
-   (Control.inlineIntoMain, true, fn () =>
-    Ref.fluidLet
-    (Control.inline, Control.LeafNoLoop {size = SOME size}, 
-     fn () => Inline.inline p))
-*)
-
 type pass = {name: string,
              doit: Program.t -> Program.t}
 
@@ -60,6 +40,7 @@
    {name = "deepFlatten", doit = DeepFlatten.flatten} ::
    {name = "refFlatten", doit = RefFlatten.flatten} ::
    {name = "removeUnused5", doit = RemoveUnused2.remove} ::
+   {name = "removeUnused5Shrink", doit = S.shrink} ::
    {name = "zone", doit = Zone.zone} ::
    nil
 




More information about the MLton-commit mailing list