mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
e4e628ab84
64-bit integer min/max don't have actual instructions, fake instead Fix signed lane extraction not sign-extending Add float abs/neg Fix fsqrt encoding Fix u32.4-from-u64.2/s32.4-from-s64.2 family, wrong size Remove 64-bit integer vector mul, instruction doesn't exist Add missing exports for integer min/max Align spilled neon registers properly Validate more vector instruction forms properly Fix movi immediates
36 lines
1.6 KiB
Common Lisp
36 lines
1.6 KiB
Common Lisp
;;; Under the evaluator
|
|
;;; (SB-SIMD-TEST-SUITE::|SB-SIMD-SSE4.1:U32.4-IF|)
|
|
;;; failed for me with
|
|
;;; RESULT-0 = #<SIMD-PACK 33554433 127 8191 2097153>,
|
|
;;; OUTPUT-0 = #<SIMD-PACK 3 8193 2303 1073741823>.
|
|
;;; maybe there are other problems but I didn't investigate further.
|
|
#+(or interpreter gc-stress) (invoke-restart 'run-tests::skip-file)
|
|
|
|
(handler-case (require :sb-simd)
|
|
(condition (c)
|
|
(cond ((search "Don't know how" (princ-to-string c))
|
|
(format t "~&Skipping test of sb-simd~%")
|
|
(invoke-restart 'run-tests::skip-file))
|
|
(t
|
|
(error "Unexpected error: ~A" c)))))
|
|
|
|
(with-compilation-unit ()
|
|
(dolist (file '("packages.lisp"
|
|
"numbers.lisp"
|
|
"utilities.lisp"
|
|
"test-suite.lisp"
|
|
"test-arefs.lisp"
|
|
#+x86-64 "test-arefs-x86-64.lisp"
|
|
#+arm64 "test-arefs-arm64.lisp"
|
|
"test-simple-simd-functions.lisp"
|
|
#+x86-64 "test-simple-simd-functions-x86-64.lisp"
|
|
#+arm64 "test-simple-simd-functions-arm64.lisp"
|
|
"test-horizontal-functions.lisp"
|
|
#+x86-64 "test-horizontal-functions-x86-64.lisp"
|
|
#+arm64 "test-horizontal-functions-arm64.lisp"
|
|
#+arm64 "test-arm64-regressions.lisp"
|
|
"test-hairy-simd-functions.lisp"
|
|
"test-packages.lisp"))
|
|
(load (merge-pathnames file #P"../contrib/sb-simd/test-suite/"))))
|
|
(sb-simd-test-suite::run-test-suite)
|