mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

ops

Browse source
This commit is contained in:
Andrea Corallo 2019-07-20 18:50:41 +02:00 • committed by Andrea Corallo
parent 13651c52ca
commit 8da012e224
1 changed files with 10 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -601,17 +601,24 @@ the annotation emission."
(byte-rem % Frem)
(byte-numberp auto)
(byte-integerp auto)
(byte-listN)
(byte-listN
(comp-stack-adjust (- (1- arg)))
(comp-emit-set-call `(callref Flist ,arg ,(comp-sp))))
(byte-concatN
(comp-stack-adjust (- (1- arg)))
(comp-emit-set-call `(callref Fconcat ,arg ,(comp-sp))))
(byte-insertN)
(byte-insertN
(comp-stack-adjust (- (1- arg)))
(comp-emit-set-call `(callref Finsert ,arg ,(comp-sp))))
(byte-stack-set)
(byte-stack-set2)
(byte-discardN)
(byte-switch)
(byte-constant
(comp-emit-set-const arg)))))
(comp-emit-set-const arg))
(byte-discardN-preserve-tos
(comp-stack-adjust (- arg))
(comp-copy-slot-n (+ arg (comp-sp)))))))
(defun comp-limplify (func)
"Given FUNC compute its LIMPLE ir."