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/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 459, Fri Oct 29 06:22:25 1999 UTC revision 460, Wed Nov 3 02:23:44 1999 UTC
# Line 398  Line 398 
398                         * traversal, it will fail. *)                         * traversal, it will fail. *)
399                        val sbnode = Compile.newSbnodeTraversal ()                        val sbnode = Compile.newSbnodeTraversal ()
400                        fun get n = let                        fun get n = let
401                            val { ii, ctxt } = valOf (sbnode ginfo n)                            val { statpid, statenv, symenv, sympid } =
402                            val { statpid, statenv, symenv, sympid } = ii                                valOf (sbnode ginfo n)
403                            (* We have not implemented the "sbnode" part                            (* We have not implemented the "sbnode" part
404                             * in the Link module.                             * in the Link module.
405                             * But at boot time any relevant value should be                             * But at boot time any relevant value should be
# Line 416  Line 416 
416                            val env = E.mkenv { static = statenv (),                            val env = E.mkenv { static = statenv (),
417                                                symbolic = symenv (),                                                symbolic = symenv (),
418                                                dynamic = d }                                                dynamic = d }
419                            val pidInfo = { statpid = statpid,                            val pidInfo = { statpid = statpid, sympid = sympid }
                                           sympid = sympid,  
                                           ctxt = ctxt }  
420                        in                        in
421                            (env, pidInfo)                            (env, pidInfo)
422                        end                        end

Legend:
Removed from v.459  
changed lines
  Added in v.460

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