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

sha2 - optimize boolean logic

darcs
erg 2006-09-29 18:22:35 +00:00
parent 82b312e316
commit cb2a7e9ac5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
contrib/crypto/sha2.factor
View File

@ -71,10 +71,10 @@ SYMBOL: >word
] each-with ; ] each-with ;
: ch ( x y z -- x' ) : ch ( x y z -- x' )
pick bitnot bitand >r bitand r> bitxor ; [ bitxor bitand ] keep bitxor ;
: maj ( x y z -- x' ) : maj ( x y z -- x' )
>r [ bitand ] 2keep r> [ rot bitand ] keep rot bitand bitxor bitxor ; >r [ bitand ] 2keep bitor r> bitand bitor ;
: S0-256 ( x -- x' ) : S0-256 ( x -- x' )
[ -2 bitroll-32 ] keep [ -2 bitroll-32 ] keep