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/chow-hennessy-spillheur2.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/ra/chow-hennessy-spillheur2.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 83  Line 83 
83                          (_, []) =>  (* one def no use *)                          (_, []) =>  (* one def no use *)
84                            loop(rest, (node, ~1.0 - real(deg))::L, false)                            loop(rest, (node, ~1.0 - real(deg))::L, false)
85                        | ([d], [u]) => (* defs after use; don't use *)                        | ([d], [u]) => (* defs after use; don't use *)
86                            if d = u+1 orelse d = u+2 then                          let fun plus({block,insn},n) = {block=block,insn=insn+n}
87                            in  if d = plus(u,1) orelse d = plus(u,2) then
88                               loop(rest, L, false)                               loop(rest, L, false)
89                            else                            else
90                               newnode()                               newnode()
91                            end
92                        | _ => newnode()                        | _ => newnode()
93                    end                    end
94                  | _ => loop(rest, L, pruned) (* discard node *)                  | _ => loop(rest, L, pruned) (* discard node *)

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