Diff of /branches/pure-cfg/src/compiler/codegen/tree-il-pp.sml

Parent Directory | Revision Log | Patch

	revision 602, Fri Mar 11 17:41:50 2011 UTC	revision 603, Fri Mar 11 18:47:41 2011 UTC
#	Line 8	Line 8
8
9	structure TreeILPP : sig	structure TreeILPP : sig
10
11		val statement : TextIO.outstream * TreeIL.stm -> unit
12
13	val block : TextIO.outstream * TreeIL.block -> unit	val block : TextIO.outstream * TreeIL.block -> unit
14
15	val program : TextIO.outstream * TreeIL.program -> unit	val program : TextIO.outstream * TreeIL.program -> unit
#	Line 146	Line 148
148	pr (out, " else ");	pr (out, " else ");
149	ppBlock (out, blk2);	ppBlock (out, blk2);
150	pr (out, "\n"))	pr (out, "\n"))
151	| IL.S_Exit es => prln (out, [argsToString("exit", es), ";"])	| IL.S_Exit es => prln (out, [argsToString("exit", es), ";\n"])
152	(* return functions for methods *)	(* return functions for methods *)
153	| IL.S_Active es => prln (out, [argsToString("active", es), ";"])	| IL.S_Active es => prln (out, [argsToString("active", es), ";\n"])
154	| IL.S_Stabilize es => prln (out, [argsToString("stabilize", es), ";"])	| IL.S_Stabilize es => prln (out, [argsToString("stabilize", es), ";\n"])
155	| IL.S_Die => prln (out, ["die;\n"])	| IL.S_Die => prln (out, ["die;\n"])
156	(* end case *))	(* end case *))
157
158		fun statement (outS, stm) = ppStm((outS, 0), stm)
159
160	fun block (outS, blk) = (ppBlock ((outS, 0), blk); pr ((outS, 0), "\n"))	fun block (outS, blk) = (ppBlock ((outS, 0), blk); pr ((outS, 0), "\n"))
161
162	fun program (outS, IL.Program{globals, globalInit, strands}) = let	fun program (outS, IL.Program{globals, globalInit, strands}) = let

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.602   changed lines   Added in v.603

---

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