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/MLRISC/block-placement/weighted-block-placement-fn.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/block-placement/weighted-block-placement-fn.sml

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

revision 1163, Fri Mar 22 15:32:30 2002 UTC revision 1164, Fri Mar 22 15:32:57 2002 UTC
# Line 209  Line 209 
209           * chains!           * chains!
210           *)           *)
211            val exitChain = let            val exitChain = let
212                  val ND{chain, mark, ...} = lookupNd(hd(#exits graph ()))                  val ND{chain, mark, ...} = lookupNd(CFG.exitId cfg)
213                  in                  in
214                    mark := true;                    mark := true;
215                    chain                    chain
216                  end                  end
217          (* start with the entry node *)          (* start with the entry node *)
218            val chains = dfs (lookupNd(hd(#entries graph ())), [])            val chains = dfs (lookupNd(CFG.entryId cfg), [])
219          (* place the rest of the nodes and add the exit node *)          (* place the rest of the nodes and add the exit node *)
220            val chains = List.foldl dfs chains chainNodes            val chains = List.foldl dfs chains chainNodes
221            val chains = exitChain :: chains            val chains = exitChain :: chains

Legend:
Removed from v.1163  
changed lines
  Added in v.1164

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