common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

avx2 simd-copy-character-string-to-utf8-byte-array

Browse source
This commit is contained in:
Stas Boukarev 2026-07-02 02:32:42 +03:00
parent 8b5a25e7cd
commit ff7a653710
1 changed files with 54 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

54
src/code/x86-64-simd.lisp
View file

@ -803,6 +803,60 @@
do (setf (aref string i)
(code-char (sap-ref-8 sap i))))))
(def-variant simd-copy-character-string-to-utf8-byte-array :avx2 (byte-array string length)
(declare (index length)
(simple-character-string string)
((simple-array (unsigned-byte 8) (*)) byte-array)
(optimize speed (safety 0)))
(with-pinned-objects (string byte-array)
(inline-vop (((byte-array sap-reg t) (vector-sap byte-array))
((32-bit-array sap-reg t) (vector-sap string))
((n unsigned-reg) (logand (+ (* length 4) 15) -16))
((bytes1 int-avx2-reg))
((bytes2 int-avx2-reg)))
()
(inst sub n 64)
(inst jmp :b TAIL)
LOOP
(inst vmovdqu bytes1 (ea 32-bit-array))
(inst vpackusdw bytes1 bytes1 (ea 32 32-bit-array))
(inst vpermq bytes1 bytes1 216)
(inst vpackuswb bytes1 bytes1 bytes1)
(inst vpermq bytes1 bytes1 216)
(inst add 32-bit-array 64)
(inst vmovdqa (ea byte-array) (reg-in-sc bytes1 'int-sse-reg))
(inst add byte-array 16)
(inst sub n 64)
(inst jmp :ae LOOP)
TAIL
(inst add :dword n 64)
(inst jmp :z DONE)
(inst vpxor bytes2 bytes2 bytes2)
(inst cmp :dword n 32)
(inst jmp :l ONE)
(inst vmovdqu bytes1 (ea 32-bit-array))
(inst jmp :e NARROW)
(inst vmovdqa (reg-in-sc bytes2 'int-sse-reg) (ea 32 32-bit-array))
(inst jmp NARROW)
ONE
(inst vmovdqa (reg-in-sc bytes1 'int-sse-reg) (ea 32-bit-array))
NARROW
(inst vpackusdw bytes1 bytes1 bytes2)
(inst vpermq bytes1 bytes1 216)
(inst vpackuswb bytes1 bytes1 bytes1)
(inst vpermq bytes1 bytes1 216)
(inst vmovdqa (ea byte-array) (reg-in-sc bytes1 'int-sse-reg))
DONE
(inst vzeroupper))))
#+sb-unicode
(defun simd-copy-utf8-to-base-string (start end string ibuf)
(declare (type index start end)