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

SCM Repository

[diderot] Diff of /branches/vis12-cl/src/compiler/gen/il/mid-il.in
ViewVC logotype

Diff of /branches/vis12-cl/src/compiler/gen/il/mid-il.in

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

revision 2824, Mon Nov 10 17:06:01 2014 UTC revision 2825, Mon Nov 10 21:06:31 2014 UTC
# Line 33  Line 33 
33      val hashstring = HashString.hashString      val hashstring = HashString.hashString
34      fun stringToString s = String.concat["\"", s, "\""]      fun stringToString s = String.concat["\"", s, "\""]
35    
36      (* required helper functions for the mask type *)
37        type mask = bool list
38        val samemask : (mask * mask -> bool) = (op =)
39        fun hashmask m =
40              List.foldl (fn (false, w) => w+w | (true, w) => w+w+0w1)
41                (Word.fromInt(List.length m)) m
42        fun maskToString m =
43              String.concat(List.map (fn true => "_" | false => ":") m)
44    
45    (* required helper functions for the input type *)    (* required helper functions for the input type *)
46      type input = ty Inputs.input      type input = ty Inputs.input
47      val sameinput = Inputs.same      val sameinput = Inputs.same

Legend:
Removed from v.2824  
changed lines
  Added in v.2825

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