master: fix movdqu64 in move for avx512 + test warning

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  ad0ea010b2ff8bdce884c647b2962d4f41b67ea4 (commit)
      from  3cc8aa4c51d78423beb596fdc20b9a104e544a31 (commit)

- Log -----------------------------------------------------------------
commit ad0ea010b2ff8bdce884c647b2962d4f41b67ea4
Author: arthur <[email protected]>
Date:   Tue Aug 11 21:48:22 2026 +0200

    fix movdqu64 in move for avx512 + test warning
---
 src/compiler/x86-64/macros.lisp |  3 +--
 tests/simd-pack-512.pure.lisp   | 19 ++++++++++---------
 2 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/src/compiler/x86-64/macros.lisp b/src/compiler/x86-64/macros.lisp
index 498c3b3fd..24ce5c509 100644
--- a/src/compiler/x86-64/macros.lisp
+++ b/src/compiler/x86-64/macros.lisp
@@ -43,11 +43,10 @@
       ((single-avx2-reg double-avx2-reg)
        (aver (xmm-tn-p src))
        (inst vmovaps dst src))
-      ;; fixme512: check if this is correct
       #+sb-simd-pack-512
       (int-avx512-reg
        (aver (xmm-tn-p src))
-       (inst vmovdqu dst src))
+       (inst vmovdqu64 dst src))
       #+sb-simd-pack-512
       ((single-avx512-reg double-avx512-reg)
        (aver (xmm-tn-p src))
diff --git a/tests/simd-pack-512.pure.lisp b/tests/simd-pack-512.pure.lisp
index c41f7df2d..e6cb3ddea 100644
--- a/tests/simd-pack-512.pure.lisp
+++ b/tests/simd-pack-512.pure.lisp
@@ -274,12 +274,13 @@
                    'simd-pack-512))))
 
 (with-test (:name :simd-pack-512-type-errors)
-  ;; Bignum overflow
-  (assert-error (sb-ext:%make-simd-pack-512-ub64
-                 (1+ (ldb (byte 64 0) -1)) 0 0 0 0 0 0 0)
-                type-error)
-  ;; Float mismatch
-  (assert-error (sb-ext:%make-simd-pack-512-single
-                 1d0 0f0 0f0 0f0 0f0 0f0 0f0 0f0
-                 0f0 0f0 0f0 0f0 0f0 0f0 0f0 0f0)
-                type-error))
+  (locally (declare (muffle-conditions warning))
+    ;; Bignum overflow
+    (assert-error (sb-ext:%make-simd-pack-512-ub64
+                   (1+ (ldb (byte 64 0) -1)) 0 0 0 0 0 0 0)
+                  type-error)
+    ;; Float mismatch
+    (assert-error (sb-ext:%make-simd-pack-512-single
+                   1d0 0f0 0f0 0f0 0f0 0f0 0f0 0f0
+                   0f0 0f0 0f0 0f0 0f0 0f0 0f0 0f0)
+                  type-error)))

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.