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 a C style warning

Browse source 
simd_pack_512_mask_slots is unused
This commit is contained in:
Douglas Katzman 2026-08-27 18:31:29 +00:00
parent eb3d6740f5
commit 5a569e62ec
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/compiler/generic/genesis.lisp
View file

@ -3426,8 +3426,7 @@ Legal values for OFFSET are -4, -8, -12, ..."
(write-tags "" "-WIDETAG" (ash (1+ sb-vm:widetag-mask) -2) -2))
(dolist (name '(symbol ratio complex sb-vm::code simple-fun
closure funcallable-instance
weak-pointer fdefn sb-vm::value-cell
#+sb-simd-pack-512 sb-vm::simd-pack-512-mask))
weak-pointer fdefn sb-vm::value-cell))
(format out "static char *~A_slots[] = {~%~{ \"~A: \",~} NULL~%};~%"
(c-name (string-downcase name))
(map 'list (lambda (x) (c-name (string-downcase (sb-vm:slot-name x))))