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

Fix packed-varints.pure on the backends with return-pc.

Browse source
This commit is contained in:
Stas Boukarev 2019-05-22 13:42:40 +03:00
parent eb364cc136
commit bd75fc5159
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
tests/packed-varints.pure.lisp
View file

@ -14,7 +14,12 @@
(let ((cdi
(sb-c::make-compiled-debug-info
:name "test" :fun-map (sb-c::make-compiled-debug-fun :name 'test
:encoded-locs 0)
:encoded-locs 0
:allow-other-keys t
:return-pc 0
:return-pc-pass 0
:elsewhere-pc 0
:old-fp 0)
:tlf-num+offset (let ((sb-c::*adjustable-vectors* nil))
(sb-c::pack-tlf-num+offset a b)))))
(assert (eql a (sb-c::compiled-debug-info-tlf-number cdi)))