[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