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

Remove a symbol-macrolet

Browse source 
A macro simply avoided some editing in the change to use null-tn.
This commit is contained in:
Douglas Katzman 2026-08-29 12:47:19 -04:00
parent 12202855b6
commit 24a5114631
1 changed files with 8 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
src/assembly/x86-64/assem-rtns.lisp
View file

@ -393,7 +393,6 @@
(:temp count unsigned-reg rcx-offset)
(:temp temp unsigned-reg r9-offset)
(:temp return unsigned-reg r10-offset))
(symbol-macrolet ((null null-tn))
(flet ((check (label)
(assemble ()
(%test-lowtag list temp skip nil list-pointer-lowtag)
@ -402,12 +401,12 @@
skip)))
(assemble ()
(%test-lowtag list temp ZERO-VALUES-ERROR t list-pointer-lowtag)
(inst cmp list null)
(inst cmp list null-tn)
(inst jmp :e ZERO-VALUES)
(loadw a0 list cons-car-slot list-pointer-lowtag)
(loadw list list cons-cdr-slot list-pointer-lowtag)
(inst cmp list null)
(inst cmp list null-tn)
(inst jmp :ne CONTINUE)
ONE-VALUE
(inst clc)
@ -420,14 +419,14 @@
(inst mov count (fixnumize 2))
(loadw a1 list cons-car-slot list-pointer-lowtag)
(loadw list list cons-cdr-slot list-pointer-lowtag)
(inst cmp list null)
(inst cmp list null-tn)
(inst jmp :e TWO-VALUES)
(check TWO-VALUES)
(inst mov count (fixnumize 3))
(loadw a2 list cons-car-slot list-pointer-lowtag)
(loadw list list cons-cdr-slot list-pointer-lowtag)
(inst cmp list null)
(inst cmp list null-tn)
(inst jmp :e THREE-VALUES)
(check THREE-VALUES)
@ -454,17 +453,17 @@
(cerror-call nil 'bogus-arg-to-values-list-error list)
ZERO-VALUES
(zeroize count)
(inst mov a0 null)
(inst mov a1 null)
(inst mov a0 null-tn)
(inst mov a1 null-tn)
TWO-VALUES
(inst mov a2 null)
(inst mov a2 null-tn)
THREE-VALUES
(inst lea rbx (ea (* sp->fp-offset n-word-bytes) rbp-tn))
(inst stc)
(inst leave)
(inst ret)))))
(inst ret))))
#+(and immobile-space sb-assembling)
(define-assembly-routine (mark-symbol-card