SCM Repository
Diff of /trunk/src/compiler/IL/gen/high-il.in
Parent Directory
| 
Revision Log
| 
Patch
| revision 399, Thu Oct 14 20:08:35 2010 UTC | revision 400, Thu Oct 14 21:06:49 2010 UTC | |
|---|---|---|
| # | Line 22 | Line 22 |
| 22 | val hashstring = HashString.hashString | val hashstring = HashString.hashString |
| 23 | fun stringToString s = String.concat["\"", s, "\""] | fun stringToString s = String.concat["\"", s, "\""] |
| 24 | ||
| 25 | (* required helper functions for the mask tyoe *) | |
| 26 | type mask = bool list | |
| 27 | val samemask : (mask * mask -> bool) = (op =) | |
| 28 | fun hashmask m = | |
| 29 | List.foldl (fn (false, w) => w+w | (true, w) => w+w+0w1) | |
| 30 | (Word.fromInt(List.length m)) m | |
| 31 | fun maskToString m = | |
| 32 | String.concat(List.map (fn true => "_" | false => ":") m) | |
| 33 | ||
| 34 | @BODY@ | @BODY@ |
| 35 | ||
| 36 | end | end |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
