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

fix missing jump into comp-emit-narg-prologue

Browse source
This commit is contained in:
Andrea Corallo 2019-10-20 11:10:22 +02:00
parent 63a1f317d0
commit 50604ff387
1 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -982,11 +982,13 @@ the annotation emission."
(comp-emit `(set-args-to-local ,(comp-slot-n i)))
(comp-emit '(inc-args))
finally (comp-emit '(jump entry_rest_args)))
(cl-loop for i from minarg below nonrest
do (comp-with-sp i
(comp-make-curr-block (intern (format "entry_fallback_%s" i))
(comp-sp))
(comp-emit-set-const nil)))
(when (not (= minarg nonrest))
(cl-loop for i from minarg below nonrest
do (comp-with-sp i
(comp-make-curr-block (intern (format "entry_fallback_%s" i))
(comp-sp))
(comp-emit-set-const nil))
finally (comp-emit '(jump entry_rest_args))))
(comp-make-curr-block 'entry_rest_args (comp-sp))
(comp-emit `(set-rest-args-to-local ,(comp-slot-n nonrest))))