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 /MLRISC/trunk/ra/chaitin-spillheur.sml
ViewVC logotype

Diff of /MLRISC/trunk/ra/chaitin-spillheur.sml

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

revision 958, Fri Oct 12 03:54:43 2001 UTC revision 1125, Thu Mar 7 21:04:13 2002 UTC
# Line 41  Line 41 
41               (case chase node of               (case chase node of
42                 node as NODE{number, pri, defs, uses,                 node as NODE{number, pri, defs, uses,
43                              degree=ref deg, color=ref PSEUDO,...} =>                              degree=ref deg, color=ref PSEUDO,...} =>
44                 let fun cost() = real(!pri) / real deg                 let fun cost() = !pri / real deg
45                     val cost =                     val cost =
46                        case (!defs, !uses) of                        case (!defs, !uses) of
47                          (_,[]) => (* defs but no use *)                          (_,[]) => (* defs but no use *)

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

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