sha2 - optimize boolean logic

2006-09-29 18:22:35 +00:00 · 2006-09-29 18:22:35 +00:00 · cb2a7e9ac5
parent 82b312e316
commit cb2a7e9ac5
1 changed files with 2 additions and 2 deletions
--- a/contrib/crypto/sha2.factor
+++ b/contrib/crypto/sha2.factor
@ -71,10 +71,10 @@ SYMBOL: >word
    ] each-with ;

 : ch ( x y z -- x' )
-    pick bitnot bitand >r bitand r> bitxor ;
+    [ bitxor bitand ] keep bitxor ;

 : 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' )
    [ -2 bitroll-32 ] keep