Un-size trans

[snipe.git] / top / top.sml

diff --git a/top/top.sml b/top/top.sml
index 4b58d00cb08d8fbb9cab41e7ba2c6e0ec842f355..5263317ef2fdd4a8bad7e7e1429c23d8be9f61bb 100644 (file)
--- a/top/top.sml
+++ b/top/top.sml
@@ -29,12 +29,12 @@ struct
   exception EXIT
   
   val alloptimizations =
   exception EXIT
   
   val alloptimizations =

-    [ConstantFold.optimizer,
+    [(*ConstantFold.optimizer,

      StupidFunctionElim.optimizer,
      FeckfulnessAnalysis.optimizer,
      ConstantFold.optimizer,
      LabelCoalescing.optimizer,
      StupidFunctionElim.optimizer,
      FeckfulnessAnalysis.optimizer,
      ConstantFold.optimizer,
      LabelCoalescing.optimizer,

-     Peephole.optimizer]
+     Peephole.optimizer*)]

   
   val uniqopts =
     foldr
   
   val uniqopts =
     foldr