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/compiler/FLINT/opt/fixfix.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/FLINT/opt/fixfix.sml

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

revision 728, Mon Nov 6 21:54:13 2000 UTC revision 729, Thu Nov 9 02:16:17 2000 UTC
# Line 47  Line 47 
47  val maxargs = CTRL.maxargs  val maxargs = CTRL.maxargs
48    
49  structure SccNode = struct  structure SccNode = struct
50      type node = LambdaVar.lvar      type ord_key = LambdaVar.lvar
51      val eq = (op =)      val compare = Int.compare
     val lt = (op <)  
52  end  end
53  structure SCC = SCCUtilFun (structure Node = SccNode)  structure SCC = GraphSCCFn (SccNode)
54    
55  datatype info = Fun of int ref  datatype info = Fun of int ref
56                | Arg of int * (int * int) ref                | Arg of int * (int * int) ref

Legend:
Removed from v.728  
changed lines
  Added in v.729

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