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

Diff of /MLRISC/releases/release-110.79/ra/ra-core.sml

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

revision 647, Tue May 16 02:53:02 2000 UTC revision 648, Thu May 25 21:28:21 2000 UTC
# Line 1193  Line 1193 
1193                       if !degree >= K (* can't be frozen yet? *)                       if !degree >= K (* can't be frozen yet? *)
1194                       then                       then
1195                          ((*if tally then bad_freeze := !bad_freeze+1 else ();*)                          ((*if tally then bad_freeze := !bad_freeze+1 else ();*)
1196                           loop(fz, newFz, stack))                           loop(fz, FZ.add(node,newFz), stack))
1197                       else (* freeze node *)                       else (* freeze node *)
1198                       let val _ =                       let val _ =
1199                              if debug then print("Freezing "^show node^"\n")                              if debug then print("Freezing "^show node^"\n")

Legend:
Removed from v.647  
changed lines
  Added in v.648

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