Diff of /sml/trunk/src/cm/bootstrap/btcompile.sml

Parent Directory | Revision Log | Patch

	revision 351, Wed Jun 23 06:44:27 1999 UTC	revision 352, Wed Jun 23 09:27:27 1999 UTC
#	Line 46	Line 46
46
47	val ctxt = AbsPath.cwdContext ()	val ctxt = AbsPath.cwdContext ()
48
	val initgspec = AbsPath.native { context = ctxt, spec = initgspec }
	val maingspec = AbsPath.native { context = ctxt, spec = maingspec }
49	val pcmodespec = AbsPath.native { context = ctxt, spec = pcmodespec }	val pcmodespec = AbsPath.native { context = ctxt, spec = pcmodespec }
50	val binroot = AbsPath.native { context = ctxt, spec = binroot }	val binroot = AbsPath.native { context = ctxt, spec = binroot }
51	val pidfile = AbsPath.joinDirFile { dir = binroot, file = "RTPID" }	val pidfile = AbsPath.joinDirFile { dir = binroot, file = "RTPID" }
#	Line 75	Line 73
73	cleanup = fn () => () }	cleanup = fn () => () }
74	end	end
75
76		fun stdpath s = AbsPath.standard pcmode { context = ctxt, spec = s }
77
78		val initgspec = stdpath initgspec
79		val maingspec = stdpath maingspec
80
81	val fnpolicy =	val fnpolicy =
82	FilenamePolicy.separate { root = binroot,	FilenamePolicy.separate binroot
	parentArc = "DOTDOT",
	absArc = "ABSOLUTE" }
83	{ arch = MachDepVC.architecture, os = os }	{ arch = MachDepVC.architecture, os = os }
84
85	fun mkParam { primconf, pervasive, pervcorepids } { corenv } =	fun mkParam { primconf, pervasive, pervcorepids } { corenv } =

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.351   changed lines   Added in v.352

---

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