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