Diff of /sml/trunk/src/compiler/FLINT/cpsopt/contract.sml

Parent Directory | Revision Log | Patch

	revision 148, Wed Sep 23 21:47:29 1998 UTC	revision 149, Sun Oct 11 17:44:55 1998 UTC
#	Line 1032	Line 1032
1032	cpssize := Intmap.elems m;	cpssize := Intmap.elems m;
1033	let val cexp' = reduce cexp	let val cexp' = reduce cexp
1034	in  debugprint "\n";	in  debugprint "\n";
1035	if debug andalso !CG.misc4=16	if debug
1036	then (debugprint "After contract: \n";	then (debugprint "After contract: \n";
1037	PPCps.prcps cexp')	PPCps.prcps cexp')
1038	else ();	else ();

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.148   changed lines   Added in v.149

---

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