Diff of /branches/vis15/src/compiler/cfg-ir/ssa-pp-fn.sml

Parent Directory | Revision Log | Patch

	revision 3535, Thu Dec 24 15:45:26 2015 UTC	revision 3536, Fri Dec 25 18:51:48 2015 UTC
#	Line 136	Line 136
136	goto (out, !succ))	goto (out, !succ))
137	| IR.COND{cond, trueBranch, falseBranch, ...} => (	| IR.COND{cond, trueBranch, falseBranch, ...} => (
138	prln (out1, [	prln (out1, [
139	"if ", Var.toString cond,	"if ", Var.toString (!cond),
140	" then goto ", IR.Node.toString(!trueBranch),	" then goto ", IR.Node.toString(!trueBranch),
141	" else goto ", IR.Node.toString(!falseBranch), "\n"	" else goto ", IR.Node.toString(!falseBranch), "\n"
142	]);	]);
#	Line 144	Line 144
144	ppNd (out, false, !falseBranch))	ppNd (out, false, !falseBranch))
145	| IR.FOREACH{phis, var, src, bodyEntry, succ, ...} => (	| IR.FOREACH{phis, var, src, bodyEntry, succ, ...} => (
146	prln (out1, [	prln (out1, [
147	"foreach (", Var.toString var, " in ", Var.toString src, ")",	"foreach (", Var.toString var, " in ", Var.toString (!src), ")",
148	" on exit goto ", IR.Node.toString(!succ), "\n"	" on exit goto ", IR.Node.toString(!succ), "\n"
149	]);	]);
150	List.app (prPhi (incIndent out1)) (!phis);	List.app (prPhi (incIndent out1)) (!phis);

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.3535   changed lines   Added in v.3536

---

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