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 255, Sun Aug 8 14:55:53 2010 UTC revision 256, Mon Aug 9 17:28:57 2010 UTC
# Line 12  Line 12 
12    
13    end = struct    end = struct
14    
15        structure HighPP = SSAPPFn (HighIL)
16    
17      fun err s = TextIO.output (TextIO.stdErr, s)      fun err s = TextIO.output (TextIO.stdErr, s)
18      fun err1 c =  TextIO.output1 (TextIO.stdErr, c)      fun err1 c =  TextIO.output1 (TextIO.stdErr, c)
19      fun errnl s = (err s; err1 #"\n")      fun errnl s = (err s; err1 #"\n")
# Line 38  Line 40 
40                    val _ = checkForErrors errStrm                    val _ = checkForErrors errStrm
41                    val _ = ASTPP.output (Log.logFile(), ast) (* DEBUG *)                    val _ = ASTPP.output (Log.logFile(), ast) (* DEBUG *)
42                    val simple = Simplify.transform ast                    val simple = Simplify.transform ast
43                    val _ = SimplePP.output (Log.logFile(), simple)                    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 *)
46                    in                    in
47                      ()                      ()
48                    end                    end

Legend:
Removed from v.255  
changed lines
  Added in v.256

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