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

SCM Repository

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

Diff of /branches/vis15/src/compiler/driver/main.sml

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

revision 3411, Thu Nov 12 03:42:25 2015 UTC revision 3417, Thu Nov 12 23:41:06 2015 UTC
# Line 50  Line 50 
50            val ast = (Typechecker.check errStrm parseTree)            val ast = (Typechecker.check errStrm parseTree)
51            val _ = PhaseTimer.stop Timers.timeTypechecker            val _ = PhaseTimer.stop Timers.timeTypechecker
52            val _ = checkForErrors errStrm            val _ = checkForErrors errStrm
53            val _ = ASTPP.output (Log.logFile(), ast) (* DEBUG *)  (* TODO: check AST for consistency *)
54              val _ = if Controls.get Ctl.dumpAST
55                        then ASTPP.output (Log.logFile(), ast)
56                        else ()
57          (***** SIMPLIFY *****)          (***** SIMPLIFY *****)
58  (* TODO *)  (* TODO *)
59            in            in
# Line 99  Line 102 
102                      usage (name, false);                      usage (name, false);
103                      OS.Process.exit OS.Process.failure)                      OS.Process.exit OS.Process.failure)
104            in            in
105                Ctl.resolve();
106              case help              case help
107               of SOME long => (usage (name, long); OS.Process.success)               of SOME long => (usage (name, long); OS.Process.success)
108                | NONE => if version                | NONE => if version

Legend:
Removed from v.3411  
changed lines
  Added in v.3417

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