Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /trunk/src/compiler/driver/main.sml
ViewVC logotype

Diff of /trunk/src/compiler/driver/main.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 339, Mon Sep 13 14:55:51 2010 UTC revision 340, Mon Sep 13 15:34:36 2010 UTC
# Line 42  Line 42 
42                    val simple = Simplify.transform ast                    val simple = Simplify.transform ast
43                    val _ = SimplePP.output (Log.logFile(), simple) (* DEBUG *)                    val _ = SimplePP.output (Log.logFile(), simple) (* DEBUG *)
44                    val highIL = Translate.translate simple                    val highIL = Translate.translate simple
45                    val _ = HighPP.output (Log.logFile(), highIL) (* DEBUG *)                    val _ = HighPP.output (Log.logFile(), "HighIL after translation", highIL) (* DEBUG *)
46                    val highIL = HighOptimizer.optimize highIL                    val highIL = HighOptimizer.optimize highIL
47                    val _ = HighPP.output (Log.logFile(), highIL) (* DEBUG *)                    val _ = HighPP.output (Log.logFile(), "HighIL after optimization", highIL) (* DEBUG *)
48                    in                    in
49                      ()                      ()
50                    end                    end
# Line 57  Line 57 
57            val defs = ref []            val defs = ref []
58            fun doOpts [file] = {log = !log, defs = !defs, file = file}            fun doOpts [file] = {log = !log, defs = !defs, file = file}
59              | doOpts ("-log"::r) = (log := true; doOpts r)              | doOpts ("-log"::r) = (log := true; doOpts r)
60              | doOpts (opt::r) = (defs := opt :: !defs; doOpts r)              | doOpts (opt::r) =
61                    if Inputs.isCmdLineInput opt
62                      then (defs := opt :: !defs; doOpts r)
63                      else (
64                        err(concat["invalid command-line input \"", opt, "\"\n"]);
65                        quitWithError())
66            in            in
67              doOpts args              doOpts args
68            end            end

Legend:
Removed from v.339  
changed lines
  Added in v.340

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0