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 1167, Fri Mar 22 17:14:46 2002 UTC revision 1168, Fri Mar 22 19:19:32 2002 UTC
# Line 50  Line 50 
50              | placeNodes ((nd1 as (id1, b1))::r1, l) = if isMarked id1              | placeNodes ((nd1 as (id1, b1))::r1, l) = if isMarked id1
51                  then placeNodes (r1, l)                  then placeNodes (r1, l)
52                  else (                  else (
                   mark id1;  
53                    case r1                    case r1
54                     of [] => List.rev (exit::nd1::l)                     of [] => List.rev (exit::nd1::l)
55                      | (nd2 as (id2, b2))::r2 => if isMarked id2                      | (nd2 as (id2, b2))::r2 => if isMarked id2
56                            then placeNodes(nd1::r1, l)                            then placeNodes(nd1::r2, l)
57                            else (                            else (
58                            (* Here we know that both nd1 and nd2 have not been                            (* Here we know that both nd1 and nd2 have not been
59                             * placed.  We need to check for placement constraints                             * placed.  We need to check for placement constraints
60                             * in nd1's out edges and nd2's in edges.                             * in nd1's out edges and nd2's in edges.
61                             *)                             *)
62                                mark id1;
63                              case findAdjEdge (#out_edges graph id1)                              case findAdjEdge (#out_edges graph id1)
64                               of NONE => let                               of NONE => let
65                                    fun pushPredChain (nd as (id, _), r) = (                                    fun pushPredChain (nd as (id, _), r) = (

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

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