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/default-block-placement.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/block-placement/default-block-placement.sml

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

revision 1168, Fri Mar 22 19:19:32 2002 UTC revision 1169, Fri Mar 22 19:22:15 2002 UTC
# Line 37  Line 37 
37            fun getBlk id = (id, #node_info graph id)            fun getBlk id = (id, #node_info graph id)
38            val entry = CFG.entry cfg            val entry = CFG.entry cfg
39            val exit = CFG.exit cfg            val exit = CFG.exit cfg
           val _ = (mark(#1 entry); mark(#1 exit))  
40          (* return true if the edge must connect adjacent nodes *)          (* return true if the edge must connect adjacent nodes *)
41            fun adjEdge (_, _, CFG.EDGE{k=CFG.FALLSTHRU, ...}) = true            fun adjEdge (_, _, CFG.EDGE{k=CFG.FALLSTHRU, ...}) = true
42              | adjEdge (_, _, CFG.EDGE{k=CFG.BRANCH false, ...}) = true              | adjEdge (_, _, CFG.EDGE{k=CFG.BRANCH false, ...}) = true
# Line 79  Line 78 
78                                      placeNodes (getBlk dst::r1, nd1::l))                                      placeNodes (getBlk dst::r1, nd1::l))
79                              (* end case *))                              (* end case *))
80                      (* end case *))                      (* end case *))
81            val blocks = placeNodes (#nodes graph (), [entry])            val blocks = placeNodes (entry :: #nodes graph (), [])
82            in            in
83              if !dumpBlocks              if !dumpBlocks
84                then let                then let

Legend:
Removed from v.1168  
changed lines
  Added in v.1169

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