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

Fix SBCL byte copy for newer SBCL interface #3

Browse Source 
Might switch to defering to sb-md5 version of code shipped with SBCL
going forward, but this should fix the code base for now.
This commit is contained in:
Pierre R. Mai
2021-06-22 15:36:17 +02:00
parent 670b4aafa8
commit f8f8f2a079
1 changed files with 1 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
md5.lisp
View File

@ -372,7 +372,7 @@ starting from `offset' into the given 16 word MD5 block."
block (* vm:vector-data-offset vm:word-bits) block (* vm:vector-data-offset vm:word-bits)
(* 64 vm:byte-bits)) (* 64 vm:byte-bits))
#+(and :sbcl :little-endian) #+(and :sbcl :little-endian)
(sb-kernel:ub8-bash-copy buffer offset block 0 64) (sb-kernel:%byte-blt buffer offset block 0 64)
#-(or (and :sbcl :little-endian) (and :cmu :little-endian)) #-(or (and :sbcl :little-endian) (and :cmu :little-endian))
(loop for i of-type (integer 0 16) from 0 (loop for i of-type (integer 0 16) from 0
for j of-type (integer 0 #.most-positive-fixnum) for j of-type (integer 0 #.most-positive-fixnum)
@ -397,8 +397,6 @@ starting from `offset' into the given 16 word MD5 block."
buffer (+ (* vm:vector-data-offset vm:word-bits) (* offset vm:byte-bits)) buffer (+ (* vm:vector-data-offset vm:word-bits) (* offset vm:byte-bits))
block (* vm:vector-data-offset vm:word-bits) block (* vm:vector-data-offset vm:word-bits)
(* 64 vm:byte-bits)) (* 64 vm:byte-bits))
#+(and :sbcl :little-endian)
(sb-kernel:ub8-bash-copy buffer offset block 0 64)
#-(or (and :sbcl :little-endian) (and :cmu :little-endian)) #-(or (and :sbcl :little-endian) (and :cmu :little-endian))
(loop for i of-type (integer 0 16) from 0 (loop for i of-type (integer 0 16) from 0
for j of-type (integer 0 #.most-positive-fixnum) for j of-type (integer 0 #.most-positive-fixnum)