SCM Repository
Diff of /branches/vis15/src/compiler/gen/ir/high-ir.in
Parent Directory
| 
Revision Log
| 
Patch
| revision 3652, Tue Feb 2 20:23:12 2016 UTC | revision 3797, Mon May 2 21:10:12 2016 UTC | |
|---|---|---|
| # | Line 36 | Line 36 |
| 36 | fun stringToString s = String.concat["\"", s, "\""] | fun stringToString s = String.concat["\"", s, "\""] |
| 37 | ||
| 38 | (* required helper functions for the mask type *) | (* required helper functions for the mask type *) |
| 39 | type mask = bool list | type mask = TensorSlice.t |
| 40 | val samemask : (mask * mask -> bool) = (op =) | val samemask = TensorSlice.same |
| 41 | fun hashmask m = | val hashmask = TensorSlice.hash |
| 42 | List.foldl (fn (false, w) => w+w | (true, w) => w+w+0w1) | val maskToString = TensorSlice.toString |
| 43 | (Word.fromInt(List.length m)) m | |
| 44 | fun maskToString m = | (* required helper functions for the shape type *) |
| 45 | String.concat(List.map (fn true => "_" | false => ":") m) | type shape = TensorShape.t |
| 46 | val sameshape = TensorShape.same | |
| 47 | val hashshape = TensorShape.hash | |
| 48 | val shapeToString = TensorShape.toString | |
| 49 | ||
| 50 | @BODY@ | @BODY@ |
| 51 |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
