Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/cm/bootstrap/btcompile.sml
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 329, Fri Jun 11 09:53:10 1999 UTC revision 330, Sat Jun 12 07:45:52 1999 UTC
# Line 116  Line 116 
116               * brewed pervasive env, core env, and primitives *)               * brewed pervasive env, core env, and primitives *)
117              val core = valOf (RT.snode ginfo_nocore core)              val core = valOf (RT.snode ginfo_nocore core)
118              val corenv =  CoerceEnv.es2bs (#1 (#stat core))              val corenv =  CoerceEnv.es2bs (#1 (#stat core))
119              val pervcorepids = PidSet.singleton (#2 (#stat core))              (* even though we have a pid for the core, we can't use it
120                 * (otherwise we would invalidate earlier compilation results) *)
121                val pervcorepids = PidSet.empty
122    
123              (* The following is a bit of a hack (but corenv is a hack anyway):              (* The following is a bit of a hack (but corenv is a hack anyway):
124               * As soon as we have core available, we have to patch the               * As soon as we have core available, we have to patch the
# Line 172  Line 174 
174                                   map (fn x => (x, NONE)) filepaths @                                   map (fn x => (x, NONE)) filepaths @
175                                   MkBootList.group g }                                   MkBootList.group g }
176                      else NONE                      else NONE
177          end handle Option => NONE (* to catch valOf failures in "rt" *)          end handle Option => (RT.clearFailures (); NONE)
178                       (* to catch valOf failures in "rt" *)
179      in      in
180          case BuildInitDG.build ginfo_nocore initgspec of          case BuildInitDG.build ginfo_nocore initgspec of
181              SOME x => main_compile x              SOME x => main_compile x

Legend:
Removed from v.329  
changed lines
  Added in v.330

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