Diff of /branches/charisee/src/compiler/mid-to-low/mid-to-low.sml

Parent Directory | Revision Log | Patch

	revision 3267, Wed Oct 7 19:26:16 2015 UTC	revision 3268, Fri Oct 9 00:50:13 2015 UTC
#	Line 144	Line 144
144	val (code,cnt)=getSet(code, [],tbl0,0)	val (code,cnt)=getSet(code, [],tbl0,0)
145
146
147	val _ = if (cnt> 0) then	val _ = if (cnt> 500) then
148	(String.concat["\n",DstIL.Var.toString(y),"=",P.printerE e,"\n\t previous: ",Int.toString(length(code))," replaced: ", Int.toString cnt])	(String.concat["\n",DstIL.Var.toString(y),"=",P.printerE e,"\n\t previous: ",Int.toString(length(code))," replaced: ", Int.toString cnt])
149	else  ""	else  ""
150
#	Line 192	Line 192
192	end)	end)
193
194	fun translate prog = let	fun translate prog = let
	val _= print" pre prog"
195	val prog = Trans.translate prog	val prog = Trans.translate prog
	val _= print"post prog"
196	in	in
197	LowILCensus.init prog;	LowILCensus.init prog;
198	prog	prog

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.3267   changed lines   Added in v.3268

---

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