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

Use fewer toplevel #-sb-xc-host conditionals

Browse source
This commit is contained in:
Douglas Katzman 2019-01-27 16:34:30 -05:00
parent 895573ad13
commit 4db757266f
2 changed files with 22 additions and 26 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
src/compiler/x86-64/simd-pack-256.lisp
View file

@ -230,18 +230,16 @@
(inst vpinsrq tmp tmp p3 1)
(inst vinserti128 dst dst tmp 1)))
#-sb-xc-host
(declaim (inline %make-simd-pack-256-ub32))
#-sb-xc-host
(defun %make-simd-pack-256-ub32 (p0 p1 p2 p3 p4 p5 p6 p7)
(declare (type (unsigned-byte 32) p0 p1 p2 p3 p4 p5 p6 p7))
(%make-simd-pack-256-ub64 (logior p0 (ash p1 32))
(logior p2 (ash p3 32))
(logior p4 (ash p5 32))
(logior p6 (ash p7 32))))
#-sb-xc-host
(progn
(declaim (inline %make-simd-pack-256-ub32))
(defun %make-simd-pack-256-ub32 (p0 p1 p2 p3 p4 p5 p6 p7)
(declare (type (unsigned-byte 32) p0 p1 p2 p3 p4 p5 p6 p7))
(%make-simd-pack-256-ub64 (logior p0 (ash p1 32))
(logior p2 (ash p3 32))
(logior p4 (ash p5 32))
(logior p6 (ash p7 32))))
(declaim (inline %simd-pack-256-ub32s %simd-pack-256-ub64s))
(defun %simd-pack-256-ub32s (pack)
(declare (type simd-pack-256 pack))
@ -327,8 +325,8 @@
(inst movss dst tmp)))
#-sb-xc-host
(progn
(declaim (inline %simd-pack-256-singles))
#-sb-xc-host
(defun %simd-pack-256-singles (pack)
(declare (type simd-pack-256 pack))
(values (%simd-pack-256-single-item pack 0)
@ -338,7 +336,7 @@
(%simd-pack-256-single-item pack 4)
(%simd-pack-256-single-item pack 5)
(%simd-pack-256-single-item pack 6)
(%simd-pack-256-single-item pack 7)))
(%simd-pack-256-single-item pack 7))))
(defknown %simd-pack-256-double-item
(simd-pack-256 (integer 0 3)) double-float (flushable))
@ -365,11 +363,11 @@
(inst movsd dst tmp)))
#-sb-xc-host
(progn
(declaim (inline %simd-pack-256-doubles))
#-sb-xc-host
(defun %simd-pack-256-doubles (pack)
(declare (type simd-pack-256 pack))
(values (%simd-pack-256-double-item pack 0)
(%simd-pack-256-double-item pack 1)
(%simd-pack-256-double-item pack 2)
(%simd-pack-256-double-item pack 3)))
(%simd-pack-256-double-item pack 3))))

22
src/compiler/x86-64/simd-pack.lisp
View file

@ -209,16 +209,14 @@
(inst movq tmp hi)
(inst punpcklqdq dst tmp)))
#-sb-xc-host
(declaim (inline %make-simd-pack-ub32))
#-sb-xc-host
(defun %make-simd-pack-ub32 (w x y z)
(declare (type (unsigned-byte 32) w x y z))
(%make-simd-pack-ub64 (logior w (ash x 32))
(logior y (ash z 32))))
#-sb-xc-host
(progn
(declaim (inline %make-simd-pack-ub32))
(defun %make-simd-pack-ub32 (w x y z)
(declare (type (unsigned-byte 32) w x y z))
(%make-simd-pack-ub64 (logior w (ash x 32))
(logior y (ash z 32))))
(declaim (inline %simd-pack-ub32s %simd-pack-ub64s))
(defun %simd-pack-ub32s (pack)
(declare (type simd-pack pack))
@ -292,14 +290,14 @@
(inst movss dst tmp)))))
#-sb-xc-host
(progn
(declaim (inline %simd-pack-singles))
#-sb-xc-host
(defun %simd-pack-singles (pack)
(declare (type simd-pack pack))
(values (%simd-pack-single-item pack 0)
(%simd-pack-single-item pack 1)
(%simd-pack-single-item pack 2)
(%simd-pack-single-item pack 3)))
(%simd-pack-single-item pack 3))))
(defknown %simd-pack-double-item
(simd-pack (integer 0 1)) double-float (flushable))
@ -327,9 +325,9 @@
(inst movsd dst tmp)))))
#-sb-xc-host
(progn
(declaim (inline %simd-pack-doubles))
#-sb-xc-host
(defun %simd-pack-doubles (pack)
(declare (type simd-pack pack))
(values (%simd-pack-double-item pack 0)
(%simd-pack-double-item pack 1)))
(%simd-pack-double-item pack 1))))