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

SCM Repository

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

Annotation of /sml/trunk/system/smlnj/internal/boot-env.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2609 - (view) (download)

1 : blume 573 (* Copyright 1998 by Lucent Technologies *)
2 :     (* boot-env.sml *)
3 :    
4 :     (* Run the BootEnvF functor which builds the boot environments.
5 :     * It is important that this functor is done executing by the time
6 :     * the code for the InteractiveSystem runs. Otherwise we would never
7 :     * be able to get rid of CM/CMB from an interactive heap image.
8 :     * -M.Blume (6/1998)
9 :     *)
10 :     structure BootEnv =
11 :     BootEnvF (datatype envrequest = datatype CM0.envrequest
12 : blume 879 val architecture = Backend.architecture
13 : blume 573 val cminit = CM0.init
14 : blume 645 fun cmbmake (nbd, light) =
15 :     (if light then #set (CMB.symval "LIGHT") (SOME 1) else ();
16 : blume 2609 #set (CMB.symval "CMB_REBUILD_MODE") (SOME 1);
17 :     #set (CMB.symval "NO_PLUGINS") (SOME 1);
18 : blume 645 ignore (CMB.make' (SOME nbd))))

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