Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Tracker SCM

SCM Repository

[smlnj] Diff of /sml/trunk/src/cm/main/cm-boot.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/main/cm-boot.sml

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

revision 587, Thu Mar 30 09:01:52 2000 UTC revision 588, Fri Mar 31 09:00:02 2000 UTC
# Line 36  Line 36 
36        val emptydyn = E.dynamicPart E.emptyEnv        val emptydyn = E.dynamicPart E.emptyEnv
37        val system_values = ref (SrcPathMap.empty: E.dynenv SrcPathMap.map)        val system_values = ref (SrcPathMap.empty: E.dynenv SrcPathMap.map)
38    
39          structure StabModmap = StabModmapFn ()
40    
41        structure Compile =        structure Compile =
42            CompileFn (structure MachDepVC = HostMachDepVC            CompileFn (structure MachDepVC = HostMachDepVC
43                         structure StabModmap = StabModmap
44                       val compile_there = Servers.compile o SrcPath.descr)                       val compile_there = Servers.compile o SrcPath.descr)
45    
46        structure BFC =        structure BFC =
# Line 114  Line 117 
117        (* Instantiate the stabilization mechanism. *)        (* Instantiate the stabilization mechanism. *)
118        structure Stabilize =        structure Stabilize =
119            StabilizeFn (structure MachDepVC = HostMachDepVC            StabilizeFn (structure MachDepVC = HostMachDepVC
120                           structure StabModmap = StabModmap
121                         fun recomp gp g = let                         fun recomp gp g = let
122                             val { store, get } = BFC.new ()                             val { store, get } = BFC.new ()
123                             val _ = init_servers g                             val _ = init_servers g
# Line 130  Line 134 
134         * parser. I'm not sure if this is the cleanest way, but it works         * parser. I'm not sure if this is the cleanest way, but it works
135         * well enough. *)         * well enough. *)
136        structure Parse = ParseFn (structure Stabilize = Stabilize        structure Parse = ParseFn (structure Stabilize = Stabilize
137                                     structure StabModmap = StabModmap
138                                   fun evictStale () =                                   fun evictStale () =
139                                       (Compile.evictStale ();                                       (Compile.evictStale ();
140                                        Link.evictStale ())                                        Link.evictStale ())
# Line 296  Line 301 
301                 Link.reset ();                 Link.reset ();
302                 AutoLoad.reset ();                 AutoLoad.reset ();
303                 Parse.reset ();                 Parse.reset ();
304                 SmlInfo.reset ())                 SmlInfo.reset ();
305                   StabModmap.reset ())
306    
307            fun initTheValues (bootdir, de, er, autoload_postprocess) = let            fun initTheValues (bootdir, de, er, autoload_postprocess) = let
308                val _ = let                val _ = let

Legend:
Removed from v.587  
changed lines
  Added in v.588

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