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/low-il.in
ViewVC logotype

Diff of /branches/vis12-cl/src/compiler/gen/il/low-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 32  Line 32 
32      val hashstring = HashString.hashString      val hashstring = HashString.hashString
33      fun stringToString s = String.concat["\"", s, "\""]      fun stringToString s = String.concat["\"", s, "\""]
34    
35      (* required helper functions for the mask type *)
36        type mask = bool list
37        val samemask : (mask * mask -> bool) = (op =)
38        fun hashmask m =
39              List.foldl (fn (false, w) => w+w | (true, w) => w+w+0w1)
40                (Word.fromInt(List.length m)) m
41        fun maskToString m =
42              String.concat(List.map (fn true => "_" | false => ":") m)
43    
44    (* required helper functions for the input type *)    (* required helper functions for the input type *)
45      type input = ty Inputs.input      type input = ty Inputs.input
46      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