OSCL/sha3
2
0
Fork 0
mirror of https://github.com/pmai/sha3.git synced 2025-12-21 23:34:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

Add specific declarations, switch 16bit SBCL to not use rotate-byte.

Browse Source
This commit is contained in:
Pierre R. Mai
2012-11-03 23:12:35 +01:00
parent de0b98d114
commit aca911af4a
3 changed files with 3 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
keccak-64bit.lisp
View File

@ -77,7 +77,7 @@
(declare (type (integer 0 200) rate-bytes))
(dotimes (y +keccak-state-rows+)
(dotimes (x +keccak-state-columns+)
(let* ((element (+ (* y +keccak-state-columns+) x))
(let* ((element (+ (the fixnum (* y +keccak-state-columns+)) x))
(offset (* element +keccak-1600-lane-byte-width+))
(index (the fixnum (+ start offset))))
(when (>= offset rate-bytes)