From: Andrea Corallo <andrea_corallo@yahoo.it>
Date: Sun, 7 Jul 2019 08:35:20 +0000 (+0200)
Subject: spill lap
X-Git-Tag: emacs-28.0.90~2727^2~1395
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=adeb0183c72cba367b2896dc67eb6afd750ec693;p=emacs.git

spill lap
---

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 40cf821720e..2617142c622 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -559,6 +559,7 @@ outputting warnings about functions not being defined at runtime.")
 (defvar byte-compile-output nil
   "Alist describing contents to put in byte code string.
 Each element is (INDEX . VALUE)")
+(defvar byte-compile-lap-output nil)
 (defvar byte-compile-depth 0 "Current depth of execution stack.")
 (defvar byte-compile-maxdepth 0 "Maximum depth of execution stack.")
 
@@ -3111,6 +3112,8 @@ for symbols generated by the byte compiler itself."
                       (not (delq nil (mapcar 'consp (cdr (car body))))))))
 	      (setq rest (cdr rest)))
 	    rest))
+      ;; Spill lap output here
+      (setq byte-compile-lap-output byte-compile-output)
       (let ((byte-compile-vector (byte-compile-constants-vector)))
 	(list 'byte-code (byte-compile-lapcode byte-compile-output)
 	      byte-compile-vector byte-compile-maxdepth)))