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

Add type cast to get MAKE-ARRAY inlined

Browse source
This commit is contained in:
Douglas Katzman 2021-05-16 23:16:42 -04:00
parent 5abcbe4fe1
commit 9e2d512899
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/code/x86-64-vm.lisp
View file

@ -321,7 +321,7 @@
#+immobile-code
(let* ((fdefns-start (+ code-constants-offset
(* code-slots-per-simple-fun (code-n-entries code))))
(fdefns-count (code-n-named-calls code))
(fdefns-count (the index (code-n-named-calls code)))
(replacements (make-array fdefns-count :initial-element nil))
(ambiguous (make-array fdefns-count :initial-element 0 :element-type 'bit))
(any-replacements)