master: Adjust a test for windows
stassats via Sbcl-commits <[email protected]> Thu, 09 Jul 2026 18:10:23 +0000
| Newsgroups | gmane.lisp.steel-bank.cvs |
|---|---|
| Message-ID | <[email protected]> |
The branch "master" has been updated in SBCL:
via 7cd3645c34fb1fc235f5da3191652ac9778b080f (commit)
from acf8f1e89317b44e1db71487d43cc89a9dab63a6 (commit)
- Log -----------------------------------------------------------------
commit 7cd3645c34fb1fc235f5da3191652ac9778b080f
Author: Stas Boukarev <[email protected]>
Date: Thu Jul 9 21:10:01 2026 +0300
Adjust a test for windows
---
tests/arm64-codegen.impure.lisp | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/tests/arm64-codegen.impure.lisp b/tests/arm64-codegen.impure.lisp
index a80c0a156..811188966 100644
--- a/tests/arm64-codegen.impure.lisp
+++ b/tests/arm64-codegen.impure.lisp
@@ -8,7 +8,7 @@
(ctu:disassembly-lines
`(lambda (i)
(declare (optimize (debug 0)))
- (let ((a (alien-funcall (extern-alien "f" (function (* ,type))))))
+ (let ((a (alien-funcall (extern-alien "f" (function (* (unsigned ,type)))))))
(deref a (sb-ext:truly-the sb-int:index i))))))
(look-for
(format nil ", LSL #~D]" left-shift)))
@@ -20,6 +20,6 @@
1)
(error "~{~a~%~}" lines)
))))
- (try 'unsigned-short 1)
- (try 'unsigned-int 2)
- (try 'unsigned-long 3)))
+ (try 16 1)
+ (try 32 2)
+ (try 64 3)))
-----------------------------------------------------------------------
hooks/post-receive
--
SBCL