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/link.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/link.sml

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

revision 359, Tue Jun 29 01:53:40 1999 UTC revision 360, Tue Jun 29 09:21:02 1999 UTC
# Line 55  Line 55 
55            { mod = mk mods, nomod = mk nomods }            { mod = mk mods, nomod = mk nomods }
56        end        end
57    
58          val warmup_hook = ref (NONE: E.dynenv option)
59    
60        (* Instantiate the persistent state functor; this includes        (* Instantiate the persistent state functor; this includes
61         * the binfile cache and the dynamic value cache *)         * the binfile cache and the dynamic value cache *)
62        structure FullPersstate =        structure FullPersstate =
63            FullPersstateFn (structure MachDepVC = HostMachDepVC)            FullPersstateFn (structure MachDepVC = HostMachDepVC
64                               val warmup_hook = warmup_hook)
65    
66        (* Create two arguments appropriate for being passed to        (* Create two arguments appropriate for being passed to
67         * CompileGenericFn. One instantiation of that functor         * CompileGenericFn. One instantiation of that functor
# Line 186  Line 189 
189        structure Stabilize =        structure Stabilize =
190            StabilizeFn (val bn2statenv = bn2statenv            StabilizeFn (val bn2statenv = bn2statenv
191                         val getPid = FullPersstate.pid_fetch_sml                         val getPid = FullPersstate.pid_fetch_sml
192                         fun warmup (i, p) = () (* FIXME *)                         val warmup = FullPersstate.new_bininfo
193                         val recomp = recomp_runner)                         val recomp = recomp_runner)
194    
195        (* Access to the stabilization mechanism is integrated into the        (* Access to the stabilization mechanism is integrated into the
# Line 228  Line 231 
231          structure BootstrapCompile =          structure BootstrapCompile =
232              BootstrapCompileFn (structure MachDepVC = HostMachDepVC              BootstrapCompileFn (structure MachDepVC = HostMachDepVC
233                                  val os = os)                                  val os = os)
234          fun make () =          val make' = BootstrapCompile.compile
235              BootstrapCompile.compile          fun make () = make' NONE
                 { dirbase = "xxx",  
                   pcmodespec = "pathconfig",  
                   initgspec = "init.cmi",  
                   maingspec = "root.cm" }  
236          fun setRetargetPervStatEnv x = ()          fun setRetargetPervStatEnv x = ()
237          fun wipeOut () = ()          fun wipeOut () = ()
         fun make' _ = ()  
238      end      end
239    end    end
240  end  end

Legend:
Removed from v.359  
changed lines
  Added in v.360

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