From ff7093d74b51f094b65314e3567fc96a3a37ffdf Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Thu, 5 Sep 2019 21:16:42 +0200 Subject: [PATCH] some order into special vars --- lisp/emacs-lisp/bytecomp.el | 5 ++++- lisp/emacs-lisp/comp.el | 1 - 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index fa3f5a7f9b9..ca7c67e6907 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -560,10 +560,13 @@ 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.") +;; These are use by comp.el to spill lap +(defvar byte-compile-spilling-lap nil) +(defvar byte-compile-lap-output nil) + ;;; The byte codes; this information is duplicated in bytecomp.c diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 23cf7317d2e..6d9ff8d5156 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -47,7 +47,6 @@ ;; FIXME these has to be removed (defvar comp-speed 2) -(defvar byte-compile-lap-output) (defvar comp-pass nil "Every pass has the right to bind what it likes here.") -- 2.39.5