HCoop / hcoop / debian / mlton.git / blame_incremental
| Commit | Line | Data |
|---|---|---|
| 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 |