master: sub-access-debug-var-slot: use mask-signed-field
stassats via Sbcl-commits <[email protected]>
| Newsgroups | gmane.lisp.steel-bank.cvs |
|---|---|
| Message-ID | <[email protected]> |
The branch "master" has been updated in SBCL:
via f5b902543065796a6bb2543cd3d31fdd4bb62eff (commit)
from a4faf7a921fa2e9670d8756f306b41873a98d751 (commit)
- Log -----------------------------------------------------------------
commit f5b902543065796a6bb2543cd3d31fdd4bb62eff
Author: Stas Boukarev <[email protected]>
Date: Sat Aug 29 19:11:36 2026 +0300
sub-access-debug-var-slot: use mask-signed-field
---
src/code/debug-int.lisp | 4 +---
1 file changed, 1 insertion(+), 3 deletions(-)
diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp
index b1dd1cbcb..92e612cc0 100644
--- a/src/code/debug-int.lisp
+++ b/src/code/debug-int.lisp
@@ -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))
-----------------------------------------------------------------------
hooks/post-receive
--
SBCL