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/ra/cluster-partitioner.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/ra/cluster-partitioner.sml

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

revision 744, Fri Dec 8 04:11:42 2000 UTC revision 901, Tue Aug 14 19:21:17 2001 UTC
# Line 48  Line 48 
48          *)          *)
49         val _ = Liveness.liveness{blocks=blocks,         val _ = Liveness.liveness{blocks=blocks,
50                                   defUse=InsnProps.defUse cellkind,                                   defUse=InsnProps.defUse cellkind,
51                                   getCell=C.CellSet.get cellkind,                                   getCell=C.getCellsByKind cellkind,
52                                   updateCell=C.CellSet.update cellkind                                   updateCell=C.updateCellsByKind cellkind
53                                  }                                  }
54    
55         val F.ENTRY{succ=entrySucc, ...} = entry         val F.ENTRY{succ=entrySucc, ...} = entry
# Line 180  Line 180 
180                         (* To save space, clear liveIn and                         (* To save space, clear liveIn and
181                          * liveOut information (if it is not an exit)                          * liveOut information (if it is not an exit)
182                          *)                          *)
183                         liveIn := C.CellSet.empty;                         liveIn := CellsBasis.CellSet.empty;
184                         if exit then () else liveOut := C.CellSet.empty;                         if exit then () else liveOut := CellsBasis.CellSet.empty;
185                         processNodes(nodes, trail)                         processNodes(nodes, trail)
186                     end                     end
187                   | processNodes _ = error "processNodes"                   | processNodes _ = error "processNodes"

Legend:
Removed from v.744  
changed lines
  Added in v.901

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