SCM Repository
Diff of /trunk/src/compiler/high-il/high-il-types.sml
Parent Directory
|
Revision Log
|
Patch
revision 394, Thu Oct 14 16:30:29 2010 UTC | revision 395, Thu Oct 14 16:52:15 2010 UTC | |
---|---|---|
# | Line 18 | Line 18 |
18 | | hash StringTy = 0w2 | | hash StringTy = 0w2 |
19 | | hash IntTy = 0w3 | | hash IntTy = 0w3 |
20 | | hash (TensorTy dd) = List.foldl (fn (d, s) => Word.fromInt d + s) 0w4 dd | | hash (TensorTy dd) = List.foldl (fn (d, s) => Word.fromInt d + s) 0w4 dd |
21 | | hash KernelTy = 0w5 | |
22 | | hash ImageTy = 0w6 | |
23 | | hash FieldTy = 0w7 | |
24 | ||
25 | fun toString BoolTy = "bool" | fun toString BoolTy = "bool" |
26 | | toString StringTy = "string" | | toString StringTy = "string" |
# | Line 26 | Line 29 |
29 | | toString (TensorTy dd) = String.concat[ | | toString (TensorTy dd) = String.concat[ |
30 | "tensor[", String.concatWith "," (List.map Int.toString dd), "]" | "tensor[", String.concatWith "," (List.map Int.toString dd), "]" |
31 | ] | ] |
32 | | toString KernelTy = "kernel" | |
33 | | toString ImageTy = "image" | |
34 | | toString FieldTy = "field" | |
35 | ||
36 | end | end |
|
root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
Powered by ViewVC 1.0.0 |