mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

adjust print verbosity according to the doc

Browse Source
This commit is contained in:
Andrea Corallo 2019-11-24 19:49:25 +01:00
parent 9650e5a1a9
commit ba2bbea816
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/emacs-lisp/comp.el
View File

@ -428,7 +428,7 @@ Put PREFIX in front of it."
(byte-compile (comp-func-name func)))
(let ((lap (alist-get nil byte-to-native-lap)))
(cl-assert lap)
(comp-log lap 1)
(comp-log lap 2)
(let ((lambda-list (aref (comp-func-byte-func func) 0)))
(setf (comp-func-args func)
(comp-decrypt-lambda-list lambda-list)
@ -1776,6 +1776,9 @@ Prepare every function for final compilation and drive the C back-end."
(defun comp-final (_)
"Final pass driving the C back-end for code emission."
(let (compile-result)
(maphash (lambda (_ f)
(comp-log-func f 1))
(comp-ctxt-funcs-h comp-ctxt))
(comp--init-ctxt)
(unwind-protect
(setf compile-result