[MLton-commit] r5792
Matthew Fluet
fluet at mlton.org
Wed Jul 25 21:01:04 PDT 2007
Alphabetizing controls
----------------------------------------------------------------------
U mlton/trunk/mlton/control/control-flags.sig
U mlton/trunk/mlton/control/control-flags.sml
----------------------------------------------------------------------
Modified: mlton/trunk/mlton/control/control-flags.sig
===================================================================
--- mlton/trunk/mlton/control/control-flags.sig 2007-07-26 03:46:30 UTC (rev 5791)
+++ mlton/trunk/mlton/control/control-flags.sig 2007-07-26 04:01:03 UTC (rev 5792)
@@ -153,12 +153,12 @@
val inline: int ref
+ val inlineIntoMain: bool ref
+
val inlineLeafSize: int option ref
val inlineLeafLoops: bool ref
val inlineLeafRepeat: bool ref
- val inlineIntoMain: bool ref
-
(* The input file on the command line, minus path and extension. *)
val inputFile: File.t ref
Modified: mlton/trunk/mlton/control/control-flags.sml
===================================================================
--- mlton/trunk/mlton/control/control-flags.sml 2007-07-26 03:46:30 UTC (rev 5791)
+++ mlton/trunk/mlton/control/control-flags.sml 2007-07-26 04:01:03 UTC (rev 5792)
@@ -657,6 +657,10 @@
default = 60,
toString = Int.toString}
+val inlineIntoMain = control {name = "inlineIntoMain",
+ default = true,
+ toString = Bool.toString}
+
val inlineLeafLoops = control {name = "inlineLeafLoops",
default = true,
toString = Bool.toString}
@@ -669,10 +673,6 @@
default = SOME 20,
toString = Option.toString Int.toString}
-val inlineIntoMain = control {name = "inlineIntoMain",
- default = true,
- toString = Bool.toString}
-
val inputFile = control {name = "input file",
default = "<bogus>",
toString = File.toString}
More information about the MLton-commit
mailing list