[MLton-commit] r5650

[Matthew Fluet]

Move processing of '-show {anns,path-map}' after validating options; in particular, after setting target sizes
----------------------------------------------------------------------

U   mlton/branches/on-20050822-x86_64-branch/mlton/main/main.fun

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

Modified: mlton/branches/on-20050822-x86_64-branch/mlton/main/main.fun
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/mlton/main/main.fun	2007-06-19 14:43:39 UTC (rev 5649)
+++ mlton/branches/on-20050822-x86_64-branch/mlton/main/main.fun	2007-06-19 15:27:20 UTC (rev 5650)
@@ -653,25 +653,6 @@
                                 else CCodegen
                       | SOME c => c)
       val () = MLton.Rusage.measureGC (!verbosity <> Silent)
-      val () =
-         case !show of
-            NONE => ()
-          | SOME info =>
-            (case info of
-                Show.Anns =>
-                Layout.outputl (Control.Elaborate.document {expert = !expert},
-                                Out.standard)
-              | Show.PathMap =>
-                let
-                   open Layout
-                in
-                   outputl (align
-                            (List.map (Control.mlbPathMap (),
-                                       fn {var, path, ...} =>
-                                       str (concat [var, " ", path]))),
-                            Out.standard)
-                end
-             ; let open OS.Process in exit success end)
       val () = if !profileTimeSet
                   then (case !codegen of
                            x86Codegen => profile := ProfileTimeLabel
@@ -825,6 +806,25 @@
                else ()
       fun printVersion (out: Out.t): unit =
          Out.output (out, concat [version, " ", build, "\n"])
+      val () =
+         case !show of
+            NONE => ()
+          | SOME info =>
+            (case info of
+                Show.Anns =>
+                Layout.outputl (Control.Elaborate.document {expert = !expert},
+                                Out.standard)
+              | Show.PathMap =>
+                let
+                   open Layout
+                in
+                   outputl (align
+                            (List.map (Control.mlbPathMap (),
+                                       fn {var, path, ...} =>
+                                       str (concat [var, " ", path]))),
+                            Out.standard)
+                end
+             ; let open OS.Process in exit success end)
    in
       case result of
       Result.No msg => usage msg