From adeb0183c72cba367b2896dc67eb6afd750ec693 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Sun, 7 Jul 2019 10:35:20 +0200 Subject: [PATCH] spill lap --- lisp/emacs-lisp/bytecomp.el | 3 +++ 1 file changed, 3 insertions(+) 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))) -- 2.39.5