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 399, Thu Aug 26 09:55:09 1999 UTC revision 400, Thu Aug 26 16:23:37 1999 UTC
# Line 33  Line 33 
33          StabilizeFn (val writeBFC = Compile.writeBFC          StabilizeFn (val writeBFC = Compile.writeBFC
34                       val sizeBFC = Compile.sizeBFC                       val sizeBFC = Compile.sizeBFC
35                       val getII = Compile.getII                       val getII = Compile.getII
36                       fun destroy_state _ = ()                       fun destroy_state _ _ = ()
37                       fun recomp gp g = let                       fun recomp gp g = let
38                           val { group, ... } =                           val { group, ... } =
39                               Compile.newTraversal (fn _ => (), g)                               Compile.newTraversal (fn _ => fn _ => (), g)
40                       in                       in
41                           isSome (group gp)                           isSome (group gp)
42                       end)                       end)
# Line 169  Line 169 
169              val ovldR = GenericVC.Control.overloadKW              val ovldR = GenericVC.Control.overloadKW
170              val savedOvld = !ovldR              val savedOvld = !ovldR
171              val _ = ovldR := true              val _ = ovldR := true
172              val sbnode = Compile.newSbnodeTraversal (fn _ => ())              val sbnode = Compile.newSbnodeTraversal ()
173    
174              (* here we build a new gp -- the one that uses the freshly              (* here we build a new gp -- the one that uses the freshly
175               * brewed pervasive env, core env, and primitives *)               * brewed pervasive env, core env, and primitives *)
# Line 230  Line 230 
230                  NONE => false                  NONE => false
231                | SOME (g, gp) => let                | SOME (g, gp) => let
232                      val { group = recomp, ... } =                      val { group = recomp, ... } =
233                          Compile.newTraversal (fn _ => (), g)                          Compile.newTraversal (fn _ => fn _ => (), g)
234                  in                  in
235                      if isSome (recomp gp) then let                      if isSome (recomp gp) then let
236                          val rtspid = PS.toHex (#statpid (#ii rts))                          val rtspid = PS.toHex (#statpid (#ii rts))

Legend:
Removed from v.399  
changed lines
  Added in v.400

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