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

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

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

revision 957, Thu Oct 11 15:47:53 2001 UTC revision 958, Fri Oct 12 03:54:43 2001 UTC
# Line 599  Line 599 
599                           (degree := !degree - 1; decDegree adj)                           (degree := !degree - 1; decDegree adj)
600                       | decDegree(_::adj) = decDegree adj                       | decDegree(_::adj) = decDegree adj
601                     fun elimUses([], _, uses, pri, cost) = (uses, pri)                     fun elimUses([], _, uses, pri, cost) = (uses, pri)
602                       | elimUses(pt::pts, pt' : int, uses, pri, cost) =                       | elimUses(pt::pts, pt':G.programPoint, uses, pri, cost) =
603                         if pt = pt' then elimUses(pts, pt', uses, pri-cost, cost)                         if pt = pt' then elimUses(pts, pt', uses, pri-cost, cost)
604                         else elimUses(pts, pt', pt::uses, pri, cost)                         else elimUses(pts, pt', pt::uses, pri, cost)
605                     val (uses', pri') = elimUses(!uses, pt, [], !pri, cost);                     val (uses', pri') = elimUses(!uses, pt, [], !pri, cost);

Legend:
Removed from v.957  
changed lines
  Added in v.958

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