Diff of /sml/trunk/src/compiler/FLINT/clos/cps-split.sml

Parent Directory | Revision Log | Patch

	revision 497, Tue Dec 7 15:44:50 1999 UTC	revision 498, Tue Dec 7 15:44:50 1999 UTC
#	Line 34	Line 34
34	structure C = CPS	structure C = CPS
35	structure SL = SortedList	structure SL = SortedList
36	structure A = LambdaVar	structure A = LambdaVar
37	structure M = IntBinaryMap	structure M = IntRedBlackMap
38
39	val add = SL.enter	val add = SL.enter
40	val del = SL.rmv	val del = SL.rmv
#	Line 90	Line 90
90	| live (C.ARITH (_, l, v, _, e)) = lv_calc (l, v, live e)	| live (C.ARITH (_, l, v, _, e)) = lv_calc (l, v, live e)
91	| live (C.PURE (_, l, v, _, e)) = lv_calc (l, v, live e)	| live (C.PURE (_, l, v, _, e)) = lv_calc (l, v, live e)
92
93	structure M = IntBinaryMap	structure M = IntRedBlackMap
94
95	(* scc stuff *)	(* scc stuff *)
96
#	Line 550	Line 550
550
551	(*	(*
552	* $Log: cps-split.sml,v $	* $Log: cps-split.sml,v $
553		* Revision 1.1.1.1  1999/07/15 17:52:42  george
554		*  Version 110.20
555		*
556	* Revision 1.1.1.1  1998/04/08 18:39:46  george	* Revision 1.1.1.1  1998/04/08 18:39:46  george
557	* Version 110.5	* Version 110.5
558	*	*

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.497   changed lines   Added in v.498

---

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