steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

checksums.superfast: use bits word.

db4
John Benediktsson 2013-11-24 10:45:55 -08:00
parent ee294292f6
commit 29ca470b79
1 changed files with 9 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
basis/checksums/superfast/superfast.factor
View File

@ -12,14 +12,10 @@ C: <superfast> superfast
<PRIVATE <PRIVATE
: 16-bit ( n -- n' ) 16 on-bits mask ; inline
: 32-bit ( n -- n' ) 32 on-bits mask ; inline
: (main-loop) ( hash n -- hash' ) : (main-loop) ( hash n -- hash' )
[ 16-bit ] [ -16 shift ] bi [ 16 bits ] [ -16 shift ] bi
[ + ] [ 11 shift dupd bitxor ] bi* [ + ] [ 11 shift dupd bitxor ] bi*
[ 16 shift ] [ bitxor ] bi* 32-bit [ 16 shift ] [ bitxor ] bi* 32 bits
[ -11 shift ] [ + ] bi ; inline [ -11 shift ] [ + ] bi ; inline
: main-loop ( seq hash -- seq hash' ) : main-loop ( seq hash -- seq hash' )
@ -35,27 +31,27 @@ C: <superfast> superfast
swap dup length 4 mod [ tail-slice* ] keep { swap dup length 4 mod [ tail-slice* ] keep {
[ drop ] [ drop ]
[ [
first + [ 10 shift ] [ bitxor ] bi 32-bit first + [ 10 shift ] [ bitxor ] bi 32 bits
[ -1 shift ] [ + ] bi [ -1 shift ] [ + ] bi
] ]
[ [
le> + [ 11 shift ] [ bitxor ] bi 32-bit le> + [ 11 shift ] [ bitxor ] bi 32 bits
[ -17 shift ] [ + ] bi [ -17 shift ] [ + ] bi
] ]
[ [
unclip-last-slice unclip-last-slice
[ le> + [ 16 shift ] [ bitxor ] bi ] [ le> + [ 16 shift ] [ bitxor ] bi ]
[ 18 shift bitxor ] bi* 32-bit [ 18 shift bitxor ] bi* 32 bits
[ -11 shift ] [ + ] bi [ -11 shift ] [ + ] bi
] ]
} dispatch ; inline } dispatch ; inline
: avalanche ( hash -- hash' ) : avalanche ( hash -- hash' )
[ 3 shift ] [ bitxor ] bi 32-bit [ -5 shift ] [ + ] bi [ 3 shift ] [ bitxor ] bi 32 bits [ -5 shift ] [ + ] bi
[ 4 shift ] [ bitxor ] bi 32-bit [ -17 shift ] [ + ] bi [ 4 shift ] [ bitxor ] bi 32 bits [ -17 shift ] [ + ] bi
[ 25 shift ] [ bitxor ] bi 32-bit [ -6 shift ] [ + ] bi ; inline [ 25 shift ] [ bitxor ] bi 32 bits [ -6 shift ] [ + ] bi ; inline
PRIVATE> PRIVATE>
M: superfast checksum-bytes M: superfast checksum-bytes
seed>> 32-bit main-loop end-case avalanche ; seed>> 32 bits main-loop end-case avalanche ;