[MLton-commit] r6060

[Matthew Fluet]

Slightly better performance doing polyvariance before and after cps transform
----------------------------------------------------------------------

U   mlton/trunk/mlton/xml/sxml-simplify.fun

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

Modified: mlton/trunk/mlton/xml/sxml-simplify.fun
===================================================================
--- mlton/trunk/mlton/xml/sxml-simplify.fun	2007-09-29 19:03:42 UTC (rev 6059)
+++ mlton/trunk/mlton/xml/sxml-simplify.fun	2007-10-02 22:21:27 UTC (rev 6060)
@@ -44,12 +44,18 @@
    {name = "sxmlShrink4", 
     enable = fn () => true, doit = S.shrink} ::
 *)
+   {name = "polyvariance", 
+    enable = fn () => true, doit = Polyvariance.duplicate} ::
+   {name = "sxmlShrink4", 
+    enable = fn () => true, doit = S.shrink} ::
    {name = "cpsTransform", 
     enable = fn () => !Control.cpsTransform, doit = CPSTransform.doit} ::
-   {name = "sxmlShrink4", 
+   {name = "cpsSxmlShrink5", 
     enable = fn () => !Control.cpsTransform, doit = S.shrink} ::
-   {name = "polyvariance", 
-    enable = fn () => true, doit = Polyvariance.duplicate} ::
+   {name = "cpsPolyvariance", 
+    enable = fn () => !Control.cpsTransform, doit = Polyvariance.duplicate} ::
+   {name = "cpsSxmlShrink6", 
+    enable = fn () => !Control.cpsTransform, doit = S.shrink} ::
    nil
 
 val sxmlPassesMinimal =