SCM Repository
Diff of /trunk/src/compiler/driver/main.sml
Parent Directory
| 
Revision Log
| 
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 |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
