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