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

Ensure fix for small blocks works with md5-small-length feature.

Browse Source 
Based on my different fix for the small blocks issue, which got
integrated into cl-md5 but not sbcl.
This commit is contained in:
Pierre R. Mai
2012-10-15 02:30:28 +02:00
parent 3dfb0b9be4
commit 628d499750
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
md5.lisp
View File

@ -410,8 +410,11 @@ bounded by start and end, which must be numeric bounding-indices."
(update-md5-block regs block) (update-md5-block regs block)
(setq new-index 0)) (setq new-index 0))
(when (>= start end) (when (>= start end)
(setf (md5-state-buffer-index state) new-index) (setf (md5-state-buffer-index state) new-index
(incf (md5-state-amount state) length) (md5-state-amount state)
#-md5-small-length (+ (md5-state-amount state) length)
#+md5-small-length (the (unsigned-byte 29)
(+ (md5-state-amount state) length)))
(return-from update-md5-state state))))) (return-from update-md5-state state)))))
;; Handle main-part and new-rest ;; Handle main-part and new-rest
(etypecase sequence (etypecase sequence