:: native-mapper ( from to bytes c-type -- seq )
from to bytes <slice>
- bytes byte-array? little-endian? and
+ bytes byte-array? alien.data:little-endian? and
[ c-type cast-array ]
[ c-type heap-size <groups> [ le> ] map ] if ; inline
(hash-chunk) bitxor r2 bitroll-32 m w* n w+ ; inline
: main-loop ( seq hash -- seq hash' )
- over byte-array? little-endian? and [
+ over byte-array? alien.data:little-endian? and [
[ 0 over length 4 - 4 <range> ] dip
[ pick <displaced-alien> int deref hash-chunk ] reduce
] [
[ -11 shift ] [ + ] bi ; inline
: main-loop ( seq hash -- seq hash' )
- over byte-array? little-endian? and [
+ over byte-array? alien.data:little-endian? and [
[ 0 over length 4 - 4 <range> ] dip
[ pick <displaced-alien> int deref (main-loop) ] reduce
] [
:: native-mapper ( from to bytes c-type -- seq )
from to bytes <slice>
- bytes byte-array? little-endian? and
+ bytes byte-array? alien.data:little-endian? and
[ c-type cast-array ]
[ c-type heap-size <groups> [ le> ] map ] if ; inline
:: native-mapper ( from to bytes c-type -- seq )
from to bytes <slice>
- bytes byte-array? little-endian? and
+ bytes byte-array? alien.data:little-endian? and
[ c-type cast-array ]
[ c-type heap-size <groups> [ le> ] map ] if ; inline