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 419, Sun Oct 17 02:23:43 2010 UTC revision 420, Sun Oct 17 02:23:55 2010 UTC
# Line 55  Line 55 
55                            then raise Fail "ERROR"                            then raise Fail "ERROR"
56                            else ())                            else ())
57                    val midIL = HighToMid.translate highIL                    val midIL = HighToMid.translate highIL
58                      val _ = ( (* DEBUG *)
59                            MidPP.output (Log.logFile(), "MidIL after translation", midIL);
60                            if CheckMidIL.check ("after translation", midIL)
61                              then raise Fail "ERROR"
62                              else ())
63                    val _ = MidPP.output (Log.logFile(), "MidIL after translation", midIL) (* DEBUG *)                    val _ = MidPP.output (Log.logFile(), "MidIL after translation", midIL) (* DEBUG *)
64                    in                    in
65                      ()                      ()

Legend:
Removed from v.419  
changed lines
  Added in v.420

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