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

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

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

revision 1052, Wed Feb 6 04:04:48 2002 UTC revision 1053, Wed Feb 6 19:11:13 2002 UTC
# Line 109  Line 109 
109             (* blocks indexed by block id *)             (* blocks indexed by block id *)
110         val blockTable = A.array(N, (#new_id graph (), dummyBlock))         val blockTable = A.array(N, (#new_id graph (), dummyBlock))
111    
112         fun fillBlockTable [] = ()         (* fill block table *)
113           | fillBlockTable((b as (nid, _))::blocks) =         val _ = List.app (fn b as (nid, _) => Array.update(blockTable, nid, b)) blocks
              (UA.update(blockTable, nid, b); fillBlockTable blocks)  
        val _ = fillBlockTable blocks  
114    
115         val EXIT = (case #exits graph () of [e] => e | _ => error "EXIT")         val EXIT = (case #exits graph () of [e] => e | _ => error "EXIT")
116    

Legend:
Removed from v.1052  
changed lines
  Added in v.1053

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