Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] View of /sml/trunk/src/MLRISC/block-placement/block-placement.sml
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log

Revision 1157 - (download) (annotate)
Thu Mar 21 22:33:35 2002 UTC (19 years, 1 month ago) by jhr
File size: 712 byte(s)
  New default block placement that respects edge kinds.
(* block-placement.sml
 * COPYRIGHT (c) 2002 Bell Labs, Lucent Technologies

functor BlockPlacement 
   (structure CFG : CONTROL_FLOW_GRAPH
    structure Props : INSN_PROPERTIES)


  structure CFG = CFG

  structure DefaultPlacement = DefaultBlockPlacement(CFG)

  structure WeightedPlacement = 
	  (structure CFG = CFG 
	   structure InsnProps = Props)

  val placementFlag = MLRiscControl.mkFlag
			   "whether MLRISC does weighted block placement")

  fun blockPlacement(cfg as Graph.GRAPH G) =
	if !placementFlag
	  then WeightedPlacement.blockPlacement cfg
	  else DefaultPlacement.blockPlacement cfg


ViewVC Help
Powered by ViewVC 1.0.0