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

sub-access-debug-var-slot: use mask-signed-field

Browse source
This commit is contained in:
Stas Boukarev 2026-08-29 19:11:36 +03:00
parent a4faf7a921
commit f5b9025430
1 changed files with 1 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/code/debug-int.lisp
View file

@ -2473,9 +2473,7 @@
(int-sap val)))
(#.signed-reg-sc-number
(with-escaped-value (val)
(if (logbitp (1- n-word-bits) val)
(logior val (ash -1 n-word-bits))
val)))
(sb-c::mask-signed-field n-word-bits val)))
((#.unsigned-reg-sc-number #-c-stack-is-control-stack #.non-descriptor-reg-sc-number)
(with-escaped-value (val)
val))