procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

emit relocs for callref too

Browse source
This commit is contained in:
Andrea Corallo 2019-09-01 12:29:13 +02:00 • committed by Andrea Corallo
parent c698ac791b
commit a102f471b3
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/comp.el
View file

@ -363,7 +363,7 @@ SP-DELTA is the stack adjustment."
"%s contains unevalled arg" subr-name)
(if (eq maxarg 'many)
;; callref case.
`(comp-emit-set-call (list 'callref ',subr-name ,nargs (comp-sp)))
`(comp-emit-set-call (comp-callref ',subr-name ,nargs (comp-sp)))
;; Normal call.
(cl-assert (and (>= maxarg nargs) (<= minarg nargs))
(nargs maxarg minarg)
@ -533,13 +533,13 @@ NARG is the number of Ffuncall arguments."
))
(if optimize
(if callref
(comp-emit-set-call `(callref ,callee-sym-name
,narg ,(1+ (comp-sp))))
(comp-emit-set-call (comp-callref callee-sym-name
narg (1+ (comp-sp))))
(comp-emit-set-call `(call ,callee-sym-name
,@(cl-loop for i from (1+ (comp-sp))
repeat narg
collect (comp-slot-n i)))))
(comp-emit-set-call `(callref Ffuncall ,(1+ narg) ,(comp-sp))))))
(comp-emit-set-call (comp-callref 'funcall (1+ narg) (comp-sp))))))
(defmacro comp-op-case (&rest cases)
"Expand CASES into the corresponding pcase.