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 1136, Tue Mar 12 19:44:02 2002 UTC revision 1137, Tue Mar 12 22:28:55 2002 UTC
# Line 173  Line 173 
173              val { pervasive = perv_n, others, src } = arg              val { pervasive = perv_n, others, src } = arg
174    
175              fun recompInitGroup () = let              fun recompInitGroup () = let
                 val _ = UniquePid.reset ()  
176                  val ovldR = Control.overloadKW                  val ovldR = Control.overloadKW
177                  val savedOvld = !ovldR                  val savedOvld = !ovldR
178                  val _ = ovldR := true                  val _ = ovldR := true
# Line 217  Line 216 
216                             (* hack: sources never used for this group *)                             (* hack: sources never used for this group *)
217                             sources = SrcPathMap.empty,                             sources = SrcPathMap.empty,
218                             sublibs = [] }                             sublibs = [] }
219                  before (ovldR := savedOvld; UniquePid.sync ginfo)                  before ovldR := savedOvld
220              end              end
221    
222              (* just go and load the stable init group or signal failure *)              (* just go and load the stable init group or signal failure *)

Legend:
Removed from v.1136  
changed lines
  Added in v.1137

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