mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-13 09:32:47 +00:00
Code Issues Releases Activity

rework comp-callref lambda list

Browse Source
This commit is contained in:
Andrea Corallo 2019-11-16 15:24:35 +01:00
parent 4bb671f1c6
commit a82f1929fe
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/emacs-lisp/comp.el
View File

@ -566,12 +566,13 @@ The basic block is returned regardless it was already declared or not."
(comp-add-subr-to-relocs func)
`(call ,func ,@args))
(defun comp-callref (func &rest args)
"Emit a call usign narg abi for FUNC with ARGS."
(defun comp-callref (func nargs stack-off)
"Emit a call usign narg abi for FUNC.
NARGS is the number of arguments.
STACK-OFF is the index of the first slot frame involved."
(comp-add-subr-to-relocs func)
`(callref ,func ,@(cl-loop with (nargs off) = args
repeat nargs
for sp from off
`(callref ,func ,@(cl-loop repeat nargs
for sp from stack-off
collect (comp-slot-n sp))))
(cl-defun make-comp-mvar (&key slot (constant nil const-vld) type)