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 641, Thu May 11 01:16:45 2000 UTC revision 642, Thu May 11 07:30:29 2000 UTC
# Line 31  Line 31 
31    
32      val arch = MachDepVC.architecture      val arch = MachDepVC.architecture
33      val osname = FilenamePolicy.kind2name os      val osname = FilenamePolicy.kind2name os
34    
35      val archos = concat [arch, "-", osname]      val archos = concat [arch, "-", osname]
36    
37      fun init_servers (GG.GROUP { grouppath, ... }) =      fun init_servers (GG.GROUP { grouppath, ... }) =
# Line 209  Line 210 
210                                  version = NONE },                                  version = NONE },
211                             required = StringSet.singleton "primitive",                             required = StringSet.singleton "primitive",
212                             grouppath = initgspec,                             grouppath = initgspec,
213                               (* hack: sources never used for this group *)
214                               sources = SrcPathMap.empty,
215                             sublibs = [] }                             sublibs = [] }
216                  before (ovldR := savedOvld)                  before (ovldR := savedOvld)
217              end              end

Legend:
Removed from v.641  
changed lines
  Added in v.642

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