From: Andrea Corallo <andrea_corallo@yahoo.it>
Date: Sat, 20 Jul 2019 16:50:41 +0000 (+0200)
Subject: ops
X-Git-Tag: emacs-28.0.90~2727^2~1334
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8da012e224276e42c15d613c0aac3ce3e1a3d939;p=emacs.git

ops
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index cdbae343873..91aad45bc69 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -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."