Diff of /trunk/src/compiler/driver/main.sml

Parent Directory | Revision Log | 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

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

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