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

Remove superfluous final iteration in sha3-update.

Browse Source 
The superfluous last iteration when start = end wasn't harmful, since the
iteration body winds up as a no-op in that case anyway, but wasn't
intended or needed.
This commit is contained in:
Pierre R. Mai
2013-09-14 23:57:51 +02:00
parent 9391b65603
commit fc1c70579e
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
sha3.lisp
View File

@ -124,7 +124,7 @@ and `end', which must be numeric bounding-indices."
(setf (sha3-state-buffer-index state) 0 (setf (sha3-state-buffer-index state) 0
start (+ start remainder)))) start (+ start remainder))))
;; Now handle full blocks, stuff any remainder into buffer ;; Now handle full blocks, stuff any remainder into buffer
(loop for block-offset of-type fixnum from start to end by rate-bytes (loop for block-offset of-type fixnum from start below end by rate-bytes
do do
(cond (cond
((<= (+ block-offset rate-bytes) end) ((<= (+ block-offset rate-bytes) end)