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

Parent Directory | Revision Log | Patch

	revision 335, Thu Jun 17 08:21:08 1999 UTC	revision 336, Thu Jun 17 09:23:20 1999 UTC
#	Line 15	Line 15
15	structure BE = GenericVC.BareEnvironment	structure BE = GenericVC.BareEnvironment
16	structure PS = GenericVC.PersStamps	structure PS = GenericVC.PersStamps
17	structure CoerceEnv = GenericVC.CoerceEnv	structure CoerceEnv = GenericVC.CoerceEnv
18		structure SSV = SpecificSymValFn (structure MachDepVC = MachDepVC
19		val os = os)
20
21	(* Since the bootstrap compiler never executes any of the code	(* Since the bootstrap compiler never executes any of the code
22	* it produces, we don't need any dynamic values.  Therefore,	* it produces, we don't need any dynamic values.  Therefore,
#	Line 95	Line 97
97	val param_nocore = { primconf = primconf,	val param_nocore = { primconf = primconf,
98	fnpolicy = fnpolicy,	fnpolicy = fnpolicy,
99	pcmode = pcmode,	pcmode = pcmode,
100		symenv = SSV.env,
101	keep_going = keep_going,	keep_going = keep_going,
102	pervasive = E.emptyEnv,	pervasive = E.emptyEnv,
103	corenv = BE.staticPart BE.emptyEnv,	corenv = BE.staticPart BE.emptyEnv,
#	Line 127	Line 130
130	val param_justcore = { primconf = primconf,	val param_justcore = { primconf = primconf,
131	fnpolicy = fnpolicy,	fnpolicy = fnpolicy,
132	pcmode = pcmode,	pcmode = pcmode,
133		symenv = SSV.env,
134	keep_going = keep_going,	keep_going = keep_going,
135	pervasive = E.emptyEnv,	pervasive = E.emptyEnv,
136	corenv = corenv,	corenv = corenv,
#	Line 154	Line 158
158	val param = { primconf = Primitive.configuration pspecs,	val param = { primconf = Primitive.configuration pspecs,
159	fnpolicy = fnpolicy,	fnpolicy = fnpolicy,
160	pcmode = pcmode,	pcmode = pcmode,
161		symenv = SSV.env,
162	keep_going = keep_going,	keep_going = keep_going,
163	pervasive = E.mkenv { static = #1 (#stat pervasive),	pervasive = E.mkenv { static = #1 (#stat pervasive),
164	symbolic = #1 (#sym pervasive),	symbolic = #1 (#sym pervasive),

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.335   changed lines   Added in v.336

---

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