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/scheduling/clusterBBScheduler.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/scheduling/clusterBBScheduler.sml

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

revision 695, Mon Aug 7 23:57:38 2000 UTC revision 775, Fri Jan 12 01:17:51 2001 UTC
# Line 14  Line 14 
14    
15     val name = "Basic Block Scheduling"     val name = "Basic Block Scheduling"
16    
17     fun run(cluster as F.CLUSTER{blocks, regmap, annotations, ...}) =     fun run(cluster as F.CLUSTER{blocks, annotations, ...}) =
18     if #contains MLRiscAnnotations.NO_OPTIMIZATION (!annotations)     if #contains MLRiscAnnotations.NO_OPTIMIZATION (!annotations)
19     then cluster     then cluster
20     else     else
21     let val regmap = F.I.C.lookup regmap     let val schedule = BBSched.schedule {cpu= !cpu}
        val schedule = BBSched.schedule {regmap=regmap, cpu= !cpu}  
22         fun sched(F.BBLOCK{annotations, insns, ...}) =         fun sched(F.BBLOCK{annotations, insns, ...}) =
23              if #contains MLRiscAnnotations.NO_OPTIMIZATION (!annotations)              if #contains MLRiscAnnotations.NO_OPTIMIZATION (!annotations)
24              then ()              then ()

Legend:
Removed from v.695  
changed lines
  Added in v.775

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