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

Diff of /sml/trunk/src/cm/main/autoload.sml

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

revision 399, Thu Aug 26 09:55:09 1999 UTC revision 403, Tue Aug 31 07:44:29 1999 UTC
# Line 26  Line 26 
26  end  end
27    
28  functor AutoLoadFn (structure C : COMPILE  functor AutoLoadFn (structure C : COMPILE
29                      structure L : LINK) :> AUTOLOAD = struct                      structure L : LINK
30                        structure BFC : BFC
31                        sharing type C.bfc = L.bfc = BFC.bfc) :> AUTOLOAD = struct
32    
33      structure SE = GenericVC.StaticEnv      structure SE = GenericVC.StaticEnv
34    
# Line 52  Line 54 
54          (* getting rid of unneeded bindings... *)          (* getting rid of unneeded bindings... *)
55          val te' = BE.filterEnv (te, SymbolSet.listItems rss)          val te' = BE.filterEnv (te, SymbolSet.listItems rss)
56          (* make traversal states *)          (* make traversal states *)
57          val { exports = cTrav, ... } = C.newTraversal (L.evict, g)          val { store, get } = BFC.new ()
58          val { exports = lTrav, ... } = L.newTraversal g          val { exports = cTrav, ... } = C.newTraversal (L.evict, store, g)
59            val { exports = lTrav, ... } = L.newTraversal (g, get)
60          fun combine (ss, d) gp =          fun combine (ss, d) gp =
61              case ss gp of              case ss gp of
62                  SOME { stat, sym } =>                  SOME { stat, sym } =>
# Line 88  Line 91 
91                       end)                       end)
92          in          in
93              (* make sure that there are no stale value around... *)              (* make sure that there are no stale value around... *)
94              L.cleanup ();              L.cleanup gp;
95              SymbolMap.foldl one (SOME BE.emptyEnv) m              SymbolMap.foldl one (SOME BE.emptyEnv) m
96          end          end
97    

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

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