Diff of /sml/trunk/src/cm/compile/link.sml

Parent Directory | Revision Log | Patch

	revision 400, Thu Aug 26 16:23:37 1999 UTC	revision 401, Fri Aug 27 02:43:47 1999 UTC
#	Line 220	Line 220
220	end	end
221	in	in
222	case StableMap.find (!stablemap, i) of	case StableMap.find (!stablemap, i) of
223	SOME (B (f, i, l)) => (f, SOME (i, l))	SOME (B (f, i, [])) =>
224		(case BinInfo.sh_mode i of
225		Sharing.DONTSHARE => (f, SOME (i, []))
226		| _ => (f, NONE))
227		| SOME (B (f, i, l)) => (f, SOME (i, l))
228	| NONE =>	| NONE =>
229	(case StableMap.find (!localmap, i) of	(case StableMap.find (!localmap, i) of
230	SOME x => x	SOME x => x

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.400   changed lines   Added in v.401

---

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