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 627, Tue Apr 25 20:40:35 2000 UTC revision 628, Tue Apr 25 21:03:34 2000 UTC
# Line 39  Line 39 
39    
40     fun isOn(flag,mask) = Word.andb(flag,mask) <> 0w0     fun isOn(flag,mask) = Word.andb(flag,mask) <> 0w0
41    
42       val dump_size = MLRiscControl.getFlag "ra-dump-size"
43    
44     type flowgraph = F.cluster (* flowgraph is a cluster *)     type flowgraph = F.cluster (* flowgraph is a cluster *)
45    
46     fun error msg = MLRiscErrorMsg.error("ClusterRA", msg)     fun error msg = MLRiscErrorMsg.error("ClusterRA", msg)
# Line 368  Line 370 
370         (*         (*
371          * Build the interference graph initially.          * Build the interference graph initially.
372          *)          *)
373         fun build(G, cellkind) = buildIt(cellkind, C.lookup regmap, G)         fun build(G, cellkind) =
374           let val moves = buildIt(cellkind, C.lookup regmap, G)
375           in  if !dump_size then
376                  let val GRAPH{nodes, bitMatrix,...} = G
377                      val insns =
378                          foldr (fn (F.BBLOCK{insns,...},n) => length(!insns) + n
379                                  | (_,n) => n) 0 blocks
380                  in  TextIO.output(!MLRiscControl.debug_stream,
381                            "RA #blocks="^Int.toString N^
382                            " #insns="^Int.toString insns^
383                            " #nodes="^Int.toString(Intmap.elems nodes)^
384                            " #edges="^Int.toString(Core.BM.size(!bitMatrix))^"\n")
385                  end
386               else ();
387               moves
388           end
389    
390         (*         (*
391          * Rebuild the interference graph;          * Rebuild the interference graph;

Legend:
Removed from v.627  
changed lines
  Added in v.628

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