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

Actually invoke mv-call-direct-named

Browse source
This commit is contained in:
Stas Boukarev 2026-09-04 07:36:49 +03:00
parent 136b501c85
commit f9db67bdfc
2 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/compiler/ir2tran.lisp
View file

@ -1882,7 +1882,7 @@
(vop* mv-call-direct-named node block
(fp #-linkage-space fun (car extra-args) args)
((reference-tn-list locs t))
arg-locs (length locs) #+linkage-space fun (emit-step-p node) fixed-args)
arg-locs #+linkage-space fun (length locs) (emit-step-p node) fixed-args)
(vop* mv-call-direct node block
(fp fun (car extra-args) args)
((reference-tn-list locs t))

4
src/compiler/ltn.lisp
View file

@ -448,7 +448,6 @@
(setf (node-tail-p call) nil))
(t
(setf (basic-combination-info call) :full)
(annotate-fun-lvar (basic-combination-fun call) nil)
(let* ((reversed-args (reverse args))
#+tls-based-mv-return
(last-arg (car reversed-args)))
@ -463,6 +462,7 @@
(loop for arg in (cdr reversed-args)
never (eq (nth-value 1 (values-types (lvar-derived-type arg))) :unknown))
(lvar-single-value-p (node-lvar call)))
(annotate-fun-lvar (basic-combination-fun call)) ;; can delay, there's mv-call-direct-named
(setf (mv-combination-direct-call call) t)
(annotate-unknown-direct-call-values-lvar last-arg)
(loop for arg in (cdr reversed-args)
@ -470,6 +470,8 @@
(annotate-fixed-values-lvar arg
(mapcar #'primitive-type (values-types (lvar-derived-type arg))))))
(t
(annotate-fun-lvar (basic-combination-fun call) nil)
(loop for (arg . prev) on reversed-args
do
;; Only the first argument's CSP is used