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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/high-ir/high-types.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/high-ir/high-types.sml

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

revision 3474, Wed Dec 2 18:26:40 2015 UTC revision 3475, Wed Dec 2 18:48:58 2015 UTC
# Line 13  Line 13 
13        = BoolTy | IntTy | StringTy        = BoolTy | IntTy | StringTy
14        | TensorTy of int list        | TensorTy of int list
15        | TupleTy of ty list              (* tuples; used for multiple return values *)        | TupleTy of ty list              (* tuples; used for multiple return values *)
16        | SeqTy of ty * int        | SeqTy of ty * int option
       | DynSeqTy of ty  
17        | ImageTy of ImageInfo.info        | ImageTy of ImageInfo.info
18        | KernelTy        | KernelTy
19        | FieldTy        | FieldTy
# Line 50  Line 49 
49        | hash IntTy = 0w3        | hash IntTy = 0w3
50        | hash (TensorTy dd) = List.foldl (fn (d, s) => Word.fromInt d + s) 0w5 dd        | hash (TensorTy dd) = List.foldl (fn (d, s) => Word.fromInt d + s) 0w5 dd
51        | hash (TupleTy tys) = List.foldl (fn (ty, s) => hash ty + s) 0w7 tys        | hash (TupleTy tys) = List.foldl (fn (ty, s) => hash ty + s) 0w7 tys
52        | hash (SeqTy(ty, NONE)) = Word.fromInt n * hash ty + 0w11        | hash (SeqTy(ty, NONE)) = hash ty + 0w11
53        | hash (SeqTy(ty, SOME n)) = Word.fromInt n * hash ty + 0w13        | hash (SeqTy(ty, SOME n)) = Word.fromInt n * hash ty + 0w13
54        | hash (ImageTy info) = 0w17 + 0w3 * ImageInfo.hash info        | hash (ImageTy info) = 0w17 + 0w3 * ImageInfo.hash info
55        | hash KernelTy = 0w19        | hash KernelTy = 0w19

Legend:
Removed from v.3474  
changed lines
  Added in v.3475

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