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

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

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

revision 744, Fri Dec 8 04:11:42 2000 UTC revision 958, Fri Oct 12 03:54:43 2001 UTC
# Line 47  Line 47 
47                          (_,[]) => (* defs but no use *)                          (_,[]) => (* defs but no use *)
48                                    ~1.0 - real deg                                    ~1.0 - real deg
49                        | ([d],[u]) => (* defs after use; don't use *)                        | ([d],[u]) => (* defs after use; don't use *)
50                             if d = u+1 orelse d = u+2 then don'tUse else cost()                           let fun plus({block,insn},n) = {block=block,insn=insn+n}
51                             in  if d = plus(u,1) orelse d = plus(u,2)
52                                 then don'tUse else cost()
53                             end
54                        | _ => cost()                        | _ => cost()
55                 in  if cost < lowestCost andalso not(hasBeenSpilled number)                 in  if cost < lowestCost andalso not(hasBeenSpilled number)
56                     then                     then

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

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