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

Move an instruction.

Browse source
This commit is contained in:
Stas Boukarev 2026-08-21 23:26:35 +03:00
parent b5c1bfad94
commit ca69a527f0
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -800,8 +800,7 @@
(inst lea byte-array (ea byte-array* byte-start))
(inst lea byte-end (ea -16 byte-end byte-array*))
(inst lea string-end (ea -64
string* string-end (ash 1 (- 2 n-fixnum-tag-bits))))
(inst lea string-end (ea -64 string* string-end (ash 1 (- 2 n-fixnum-tag-bits))))
(inst lea string (ea string* string-start (ash 1 (- 2 n-fixnum-tag-bits))))
(inst jmp start)
@ -834,6 +833,7 @@
(inst jmp LOOP)
START-1-2
(inst add string-end 32) ;; now it writes 32 bytes instead of 64
(broadcast c-c0 #xC0 8 tmp)
(lea-const table (let ((table (make-array (* #b10101011 16) :initial-element #xFF)))
(loop for row to #b10101010 ;; highest possible inverted index for compressing 1/2 bytes
@ -961,8 +961,6 @@
(inst jmp done)))
FULL-START
(inst add string-end 32) ;; now it writes 32 bytes instead of 64
(broadcast c-0f #x0F 8 tmp)
(mov-const tbl1 #x38060001000000000000000000000000)
(mov-const tbl2 #x2020242020202020202020100000010B)