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

spill lap

Browse source
This commit is contained in:
Andrea Corallo 2019-07-07 10:35:20 +02:00 • committed by Andrea Corallo
parent 15402fe9db
commit adeb0183c7
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/emacs-lisp/bytecomp.el
View file

@ -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)))