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/block-placement.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/block-placement/block-placement.sml

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

revision 1156, Thu Mar 21 22:01:11 2002 UTC revision 1157, Thu Mar 21 22:33:35 2002 UTC
# Line 1  Line 1 
1    (* block-placement.sml
2     *
3     * COPYRIGHT (c) 2002 Bell Labs, Lucent Technologies
4     *)
5    
6  functor BlockPlacement  functor BlockPlacement
7     (structure CFG : CONTROL_FLOW_GRAPH     (structure CFG : CONTROL_FLOW_GRAPH
8      structure Props : INSN_PROPERTIES)      structure Props : INSN_PROPERTIES)
# Line 16  Line 21 
21    
22    val placementFlag = MLRiscControl.mkFlag    val placementFlag = MLRiscControl.mkFlag
23                            ("weighted-block-placement",                            ("weighted-block-placement",
24                             "whether MLRISC does weigted block placement")                             "whether MLRISC does weighted block placement")
25    
26    fun blockPlacement(cfg as Graph.GRAPH G) =    fun blockPlacement(cfg as Graph.GRAPH G) =
27    let val CFG.INFO{reorder, ...} = #graph_info G          if !placementFlag
   in  if !placementFlag orelse !reorder  
28        then WeightedPlacement.blockPlacement cfg        then WeightedPlacement.blockPlacement cfg
29        else DefaultPlacement.blockPlacement cfg        else DefaultPlacement.blockPlacement cfg
30    end  
31  end  end

Legend:
Removed from v.1156  
changed lines
  Added in v.1157

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