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

Diff of /sml/trunk/src/cm/bootstrap/btcompile.sml

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

revision 368, Sat Jul 3 13:05:59 1999 UTC revision 369, Sun Jul 4 12:55:20 1999 UTC
# Line 46  Line 46 
46      (* instantiate Stabilize... *)      (* instantiate Stabilize... *)
47      structure Stabilize =      structure Stabilize =
48          StabilizeFn (fun bn2statenv gp i = #1 (#stat (valOf (RT.bnode gp i)))          StabilizeFn (fun bn2statenv gp i = #1 (#stat (valOf (RT.bnode gp i)))
                      val getPid = RecompPersstate.pid_fetch_sml  
49                       fun warmup (i, p) = ()                       fun warmup (i, p) = ()
50                       val recomp = recomp                       val recomp = recomp
51                       val transfer_state = RecompPersstate.transfer_state)                       val transfer_state = RecompPersstate.transfer_state)
# Line 198  Line 197 
197              val pervasive = rt pervasive              val pervasive = rt pervasive
198    
199              fun sn2pspec (name, n) = let              fun sn2pspec (name, n) = let
200                  val { stat = (s, sp), sym = (sy, syp), ctxt } = rt n                  val { stat = (s, sp), sym = (sy, syp), ctxt, bfc } = rt n
201                  val env =                  val env =
202                      E.mkenv { static = s, symbolic = sy, dynamic = emptydyn }                      E.mkenv { static = s, symbolic = sy, dynamic = emptydyn }
203                  val pidInfo = { statpid = sp, sympid = syp, ctxt = ctxt }                  val pidInfo = { statpid = sp, sympid = syp, ctxt = ctxt }

Legend:
Removed from v.368  
changed lines
  Added in v.369

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