Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /trunk/src/compiler/IL/gen/high-il.in
ViewVC logotype

Diff of /trunk/src/compiler/IL/gen/high-il.in

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

revision 399, Thu Oct 14 20:08:35 2010 UTC revision 400, Thu Oct 14 21:06:49 2010 UTC
# Line 22  Line 22 
22      val hashstring = HashString.hashString      val hashstring = HashString.hashString
23      fun stringToString s = String.concat["\"", s, "\""]      fun stringToString s = String.concat["\"", s, "\""]
24    
25      (* required helper functions for the mask tyoe *)
26        type mask = bool list
27        val samemask : (mask * mask -> bool) = (op =)
28        fun hashmask m =
29              List.foldl (fn (false, w) => w+w | (true, w) => w+w+0w1)
30                (Word.fromInt(List.length m)) m
31        fun maskToString m =
32              String.concat(List.map (fn true => "_" | false => ":") m)
33    
34  @BODY@  @BODY@
35    
36    end    end

Legend:
Removed from v.399  
changed lines
  Added in v.400

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