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/main/literals.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/FLINT/main/literals.sml

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

revision 477, Wed Nov 10 23:04:21 1999 UTC revision 504, Tue Dec 7 18:31:05 1999 UTC
# Line 17  Line 17 
17  structure W8V = Word8Vector  structure W8V = Word8Vector
18    
19  local structure LV = LambdaVar  local structure LV = LambdaVar
20          structure Intset = struct
21            type intset = IntRedBlackSet.set ref
22            fun new() = ref IntRedBlackSet.empty
23            fun add set i = set := IntRedBlackSet.add(!set, i)
24            fun mem set i =  IntRedBlackSet.member(!set, i)
25            fun rmv set i = set := IntRedBlackSet.delete(!set, i)
26          end
27        open CPS        open CPS
28  in  in
29    
# Line 190  Line 197 
197  fun rlitcmp (RLIT(s1,i1), RLIT(s2,i2)) =  fun rlitcmp (RLIT(s1,i1), RLIT(s2,i2)) =
198    if i1 < i2 then LESS    if i1 < i2 then LESS
199    else if i1 > i2 then GREATER else String.compare(s1, s2)    else if i1 > i2 then GREATER else String.compare(s1, s2)
200  structure RlitDict = BinaryMapFn(struct type ord_key = rlit  structure RlitDict = RedBlackMapFn(struct type ord_key = rlit
201                                          val compare = rlitcmp                                          val compare = rlitcmp
202                                   end)                                   end)
203    
# Line 469  Line 476 
476  end (* Literals *)  end (* Literals *)
477    
478  (*  (*
479   * $Log$   * $Log: literals.sml,v $
480     * Revision 1.3  1999/11/29 16:33:19  george
481     * *** empty log message ***
482     *
483     * Revision 1.2  1999/11/01 13:53:27  george
484     *   parallel and distributed CM
485     *
486   *)   *)
487    

Legend:
Removed from v.477  
changed lines
  Added in v.504

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