Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] View of /sml/trunk/src/system/smlnj/internal/boot-env.sml
ViewVC logotype

View of /sml/trunk/src/system/smlnj/internal/boot-env.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 879 - (download) (annotate)
Thu Jul 19 18:59:38 2001 UTC (19 years ago) by blume
File size: 698 byte(s)
extensive organizational changes
(* Copyright 1998 by Lucent Technologies *)
(* boot-env.sml *)

(* Run the BootEnvF functor which builds the boot environments.
 *   It is important that this functor is done executing by the time
 *   the code for the InteractiveSystem runs.  Otherwise we would never
 *   be able to get rid of CM/CMB from an interactive heap image.
 *  -M.Blume (6/1998)
 *)
structure BootEnv =
    BootEnvF (datatype envrequest = datatype CM0.envrequest
	      val architecture = Backend.architecture
	      val cminit = CM0.init
	      fun cmbmake (nbd, light) =
		  (if light then #set (CMB.symval "LIGHT") (SOME 1) else ();
		   #set (CMB.symval "CMB_REBUILD") (SOME 1);
		   ignore (CMB.make' (SOME nbd))))

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