master: Remove duplicate primtype definition for simd-pack-512
stassats via Sbcl-commits <[email protected]>
| Newsgroups | gmane.lisp.steel-bank.cvs |
|---|---|
| Message-ID | <[email protected]> |
The branch "master" has been updated in SBCL:
via f59a852d8b61e292fc036d97fc6cf6556e5435d6 (commit)
from ad0ea010b2ff8bdce884c647b2962d4f41b67ea4 (commit)
- Log -----------------------------------------------------------------
commit f59a852d8b61e292fc036d97fc6cf6556e5435d6
Author: arthur <[email protected]>
Date: Tue Aug 11 20:38:13 2026 +0200
Remove duplicate primtype definition for simd-pack-512
---
src/compiler/generic/objdef.lisp | 21 +++------------------
1 file changed, 3 insertions(+), 18 deletions(-)
diff --git a/src/compiler/generic/objdef.lisp b/src/compiler/generic/objdef.lisp
index f3290993f..1ab501f14 100644
--- a/src/compiler/generic/objdef.lisp
+++ b/src/compiler/generic/objdef.lisp
@@ -451,29 +451,14 @@ during backtrace.
(p1 :c-type "long" :type (unsigned-byte 64))
(p2 :c-type "long" :type (unsigned-byte 64))
(p3 :c-type "long" :type (unsigned-byte 64)))
- #+sb-simd-pack-512
- (define-primitive-object (simd-pack-512
- :lowtag other-pointer-lowtag
- :widetag simd-pack-512-widetag)
- (tag :ref-trans %simd-pack-512-tag
- :attributes (movable flushable)
- :type (unsigned-byte 4))
- (p0 :c-type "long" :type (unsigned-byte 64))
- (p1 :c-type "long" :type (unsigned-byte 64))
- (p2 :c-type "long" :type (unsigned-byte 64))
- (p3 :c-type "long" :type (unsigned-byte 64))
- (p4 :c-type "long" :type (unsigned-byte 64))
- (p5 :c-type "long" :type (unsigned-byte 64))
- (p6 :c-type "long" :type (unsigned-byte 64))
- (p7 :c-type "long" :type (unsigned-byte 64)))
#+sb-simd-pack-512
(define-primitive-object (simd-pack-512
:lowtag other-pointer-lowtag
:widetag simd-pack-512-widetag)
- (tag :ref-trans %simd-pack-512-tag
- :attributes (movable flushable)
- :type (unsigned-byte 4))
+ (tag :ref-trans %simd-pack-512-tag
+ :attributes (movable flushable)
+ :type (unsigned-byte 4))
(p0 :c-type "long" :type (unsigned-byte 64))
(p1 :c-type "long" :type (unsigned-byte 64))
(p2 :c-type "long" :type (unsigned-byte 64))
-----------------------------------------------------------------------
hooks/post-receive
--
SBCL