Diff of /sml/trunk/src/compiler/FLINT/opt/collect.sml

Parent Directory | Revision Log | Patch

	revision 203, Sat Dec 19 20:51:39 1998 UTC	revision 204, Sun Dec 20 11:23:30 1998 UTC
#	Line 202	Line 202
202	| [] => None	| [] => None
203	end	end
204
205	fun impurePO (po:F.primop) = not(PO.purePrimop (#2 po))	fun impurePO (po:F.primop) = PO.effect (#2 po)
206
207	val census = let	val census = let
208	(* val use = if inc then use else unuse *)	(* val use = if inc then use else unuse *)

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.203   changed lines   Added in v.204

---

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