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/clos/cps-split.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/FLINT/clos/cps-split.sml

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

revision 497, Tue Dec 7 15:44:50 1999 UTC revision 498, Tue Dec 7 15:44:50 1999 UTC
# Line 34  Line 34 
34      structure C = CPS      structure C = CPS
35      structure SL = SortedList      structure SL = SortedList
36      structure A = LambdaVar      structure A = LambdaVar
37      structure M = IntBinaryMap      structure M = IntRedBlackMap
38    
39      val add = SL.enter      val add = SL.enter
40      val del = SL.rmv      val del = SL.rmv
# Line 90  Line 90 
90        | live (C.ARITH (_, l, v, _, e)) = lv_calc (l, v, live e)        | live (C.ARITH (_, l, v, _, e)) = lv_calc (l, v, live e)
91        | live (C.PURE (_, l, v, _, e)) = lv_calc (l, v, live e)        | live (C.PURE (_, l, v, _, e)) = lv_calc (l, v, live e)
92    
93      structure M = IntBinaryMap      structure M = IntRedBlackMap
94    
95      (* scc stuff *)      (* scc stuff *)
96    
# Line 550  Line 550 
550    
551  (*  (*
552   * $Log: cps-split.sml,v $   * $Log: cps-split.sml,v $
553     * Revision 1.1.1.1  1999/07/15 17:52:42  george
554     *  Version 110.20
555     *
556   * Revision 1.1.1.1  1998/04/08 18:39:46  george   * Revision 1.1.1.1  1998/04/08 18:39:46  george
557   * Version 110.5   * Version 110.5
558   *   *

Legend:
Removed from v.497  
changed lines
  Added in v.498

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