Commit | Line | Data |
---|---|---|
7f918cf1 CE |
1 | (* |
2 | * endian-little.sml - How to get at a bit field on a "little endian" machine. | |
3 | * | |
4 | * (C) 2001, Lucent Technologies, Bell Labs | |
5 | * | |
6 | * author: Matthias Blume (blume@research.bell-labs.com) | |
7 | *) | |
8 | structure EndianLittle = struct | |
9 | fun shift (s: int, ib: int, b: word) = Word.fromInt (ib - s) - b | |
10 | end |