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