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-32bit.lisp
View File

@ -139,7 +139,7 @@
(declare (fixnum y))
(dotimes (x #.+keccak-state-columns+)
(declare (fixnum x))
(let* ((element (+ (* y +keccak-state-columns+) x))
(let* ((element (+ (the fixnum (* y +keccak-state-columns+)) x))
(part (* element +keccak-state-splits+))
(offset (* element +keccak-1600-lane-byte-width+))
(index (the fixnum (+ start offset))))