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 366, Thu Sep 30 13:01:12 2010 UTC revision 367, Thu Sep 30 21:20:13 2010 UTC
# Line 13  Line 13 
13    end = struct    end = struct
14    
15      structure HighPP = SSAPPFn (HighIL)      structure HighPP = SSAPPFn (HighIL)
16        structure MidPP = SSAPPFn (MidIL)
17    
18      fun err s = TextIO.output (TextIO.stdErr, s)      fun err s = TextIO.output (TextIO.stdErr, s)
19      fun err1 c =  TextIO.output1 (TextIO.stdErr, c)      fun err1 c =  TextIO.output1 (TextIO.stdErr, c)
# Line 45  Line 46 
46                    val _ = HighPP.output (Log.logFile(), "HighIL after translation", highIL) (* DEBUG *)                    val _ = HighPP.output (Log.logFile(), "HighIL after translation", highIL) (* DEBUG *)
47                    val highIL = HighOptimizer.optimize highIL                    val highIL = HighOptimizer.optimize highIL
48                    val _ = HighPP.output (Log.logFile(), "HighIL after optimization", highIL) (* DEBUG *)                    val _ = HighPP.output (Log.logFile(), "HighIL after optimization", highIL) (* DEBUG *)
49                      val midIL = HighToMid.translate highIL
50                      val _ = MidPP.output (Log.logFile(), "MidIL after translation", midIL) (* DEBUG *)
51                    in                    in
52                      ()                      ()
53                    end                    end

Legend:
Removed from v.366  
changed lines
  Added in v.367

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