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

Adjust a test for 32-bit long

Browse source
This commit is contained in:
Stas Boukarev 2026-02-16 23:47:32 +03:00
parent a60fb9eec8
commit ab3d830393
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
tests/compiler-2.pure.lisp
View file

@ -178,10 +178,11 @@
(sb-sys:with-pinned-objects (packed-int result)
;; Now exercise the C unpacker.
;; This hack of allocating 4 longs is terrible, but whatever.
(let ((unpacker (make-alien long 4))
(let ((unpacker (make-alien (signed #.sb-vm:n-word-bits) 4))
(prev-loc 0))
(alien-funcall (extern-alien "varint_unpacker_init"
(function void (* long) unsigned))
(function void (* long)
(unsigned #.sb-vm:n-word-bits)))
unpacker
(sb-kernel:get-lisp-obj-address packed-int))
(sb-int:collect ((unpacked))