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

[[ -> {

cvs
Doug Coleman 2005-11-28 22:51:00 +00:00
parent 2b1ca6c96f
commit a0fa2d3b6e
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
contrib/crypto/sha1.factor
View File

@ -55,10 +55,10 @@ SYMBOL: K
! use this syntax eventually
! JUMP-TABLE: f 4 ( maximum )
! H{
! [[ 0 [ >r over bitnot r> bitand >r bitand r> bitor ] ]]
! [[ 1 [ bitxor bitxor ] ]]
! [[ 2 [ 2dup bitand >r pick bitand >r bitand r> r> bitor bitor ] ]]
! [[ 3 [ bitxor bitxor ] ]]
! { 0 [ >r over bitnot r> bitand >r bitand r> bitor ] }
! { 1 [ bitxor bitxor ] }
! { 2 [ 2dup bitand >r pick bitand >r bitand r> r> bitor bitor ] }
! { 3 [ bitxor bitxor ] }
! } f-table set
! J: 0 f >r over bitnot r> bitand >r bitand r> bitor ;