Moved little-endian? to alien.c-types
parent
59cc83c296
commit
6df325c168
|
@ -9,8 +9,6 @@ TUPLE: select-mx read-fdset write-fdset ;
|
||||||
! Factor's bit-arrays are an array of bytes, OS X expects
|
! Factor's bit-arrays are an array of bytes, OS X expects
|
||||||
! FD_SET to be an array of cells, so we have to account for
|
! FD_SET to be an array of cells, so we have to account for
|
||||||
! byte order differences on big endian platforms
|
! byte order differences on big endian platforms
|
||||||
: little-endian? 1 <int> *char 1 = ; foldable
|
|
||||||
|
|
||||||
: munge ( i -- i' )
|
: munge ( i -- i' )
|
||||||
little-endian? [ BIN: 11000 bitxor ] unless ; inline
|
little-endian? [ BIN: 11000 bitxor ] unless ; inline
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue