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 1164, Fri Mar 22 15:32:57 2002 UTC revision 1165, Fri Mar 22 16:31:37 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
40              val _ = (mark(#1 entry); mark(#1 exit))
41          (* return true if the edge must connect adjacent nodes *)          (* return true if the edge must connect adjacent nodes *)
42            fun adjEdge (_, _, CFG.EDGE{k=CFG.FALLSTHRU, ...}) = true            fun adjEdge (_, _, CFG.EDGE{k=CFG.FALLSTHRU, ...}) = true
43              | adjEdge (_, _, CFG.EDGE{k=CFG.BRANCH false, ...}) = true              | adjEdge (_, _, CFG.EDGE{k=CFG.BRANCH false, ...}) = true

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

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