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

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 328, Thu Jun 10 22:31:41 1999 UTC revision 329, Fri Jun 11 09:53:10 1999 UTC
# Line 124  Line 124 
124    
125          fun run sflag f s = let          fun run sflag f s = let
126              val c = AbsPath.cwdContext ()              val c = AbsPath.cwdContext ()
127              val p = AbsPath.native { context = AbsPath.cwdContext (),              val p = AbsPath.native { context = c, spec = s }
                                      spec = s }  
128              val { mod = basis, nomod = perv } = split (#get ER.pervasive ())              val { mod = basis, nomod = perv } = split (#get ER.pervasive ())
129              val corenv = #get ER.core ()              val corenv = #get ER.core ()
130              val bpspec = let              val bpspec = let
# Line 143  Line 142 
142              val fnpolicy =              val fnpolicy =
143                  FilenamePolicy.colocate { os = SMLofNJ.SysInfo.getOSKind (),                  FilenamePolicy.colocate { os = SMLofNJ.SysInfo.getOSKind (),
144                                            arch = HostMachDepVC.architecture }                                            arch = HostMachDepVC.architecture }
145                val keep_going = EnvConfig.getSet StdConfig.keep_going NONE
146              val param = { primconf = primconf,              val param = { primconf = primconf,
147                            fnpolicy = fnpolicy,                            fnpolicy = fnpolicy,
148                            pcmode = pcmode,                            pcmode = pcmode,
149                            keep_going = true,                            keep_going = keep_going,
150                            pervasive = perv,                            pervasive = perv,
151                            corenv = corenv,                            corenv = corenv,
152                            pervcorepids = PidSet.empty }                            pervcorepids = PidSet.empty }
# Line 163  Line 163 
163    
164      structure CMB = struct      structure CMB = struct
165          structure BootstrapCompile =          structure BootstrapCompile =
166              BootstrapCompileFn (structure MachDepVC = HostMachDepVC)              BootstrapCompileFn (structure MachDepVC = HostMachDepVC
167                                    val os = SMLofNJ.SysInfo.getOSKind ())
168            fun make () =
169                BootstrapCompile.compile
170                  { binroot = "xxx.bin.xxx",
171                    pcmodespec = "pathconfig",
172                    initgspec = "Init/spec.cmi",
173                    maingspec = "Libs/main.cm" }
174          fun setRetargetPervStatEnv x = ()          fun setRetargetPervStatEnv x = ()
175          fun wipeOut () = ()          fun wipeOut () = ()
176          fun make' _ = ()          fun make' _ = ()

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

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