From: Andrea Corallo Date: Thu, 5 Sep 2019 19:16:42 +0000 (+0200) Subject: some order into special vars X-Git-Tag: emacs-28.0.90~2727^2~1214 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ff7093d74b51f094b65314e3567fc96a3a37ffdf;p=emacs.git some order into special vars --- 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.")