mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-12 02:40:34 -08:00
Code Issues Projects Releases Wiki Activity

* Rename comp-verbose -> native-comp-verbose

Browse source 
* lisp/emacs-lisp/comp.el (native-comp-verbose, comp-log)
(comp-log-func, comp-final, comp-run-async-workers): Rename
comp-verbose -> native-comp-verbose.
This commit is contained in:
Andrea Corallo 2021-05-06 10:17:12 +02:00
parent 94c69eb1d7
commit 6efd7885db
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/emacs-lisp/comp.el
View file

@ -67,7 +67,7 @@ This is intended for debugging the compiler itself.
:safe #'natnump
:version "28.1")
(defcustom comp-verbose 0
(defcustom native-comp-verbose 0
"Compiler verbosity for native compilation, a number between 0 and 3.
This is intended for debugging the compiler itself.
0 no logging.
@ -1037,9 +1037,9 @@ Assume allocation class 'd-default as default."
(cl-defun comp-log (data &optional (level 1) quoted)
"Log DATA at LEVEL.
LEVEL is a number from 1-3, and defaults to 1; if it is less
than `comp-verbose', do nothing. If `noninteractive', log
than `native-comp-verbose', do nothing. If `noninteractive', log
with `message'. Otherwise, log with `comp-log-to-buffer'."
(when (>= comp-verbose level)
(when (>= native-comp-verbose level)
(if noninteractive
(cl-typecase data
(atom (message "%s" data))
@ -1091,7 +1091,7 @@ with `message'. Otherwise, log with `comp-log-to-buffer'."
(defun comp-log-func (func verbosity)
"Log function FUNC at VERBOSITY.
VERBOSITY is a number between 0 and 3."
(when (>= comp-verbose verbosity)
(when (>= native-comp-verbose verbosity)
(comp-log (format "\nFunction: %s\n" (comp-func-name func)) verbosity)
(cl-loop
for block-name being each hash-keys of (comp-func-blocks func)
@ -3650,7 +3650,7 @@ Prepare every function for final compilation and drive the C back-end."
(print-circle t)
(print-escape-multibyte t)
(expr `((require 'comp)
(setf comp-verbose ,comp-verbose
(setf native-comp-verbose ,native-comp-verbose
comp-libgccjit-reproducer ,comp-libgccjit-reproducer
comp-ctxt ,comp-ctxt
comp-eln-load-path ',comp-eln-load-path
@ -3907,7 +3907,7 @@ display a message."
`(setf backtrace-line-length ,backtrace-line-length))
(setf native-comp-speed ,native-comp-speed
native-comp-debug ,native-comp-debug
comp-verbose ,comp-verbose
native-comp-verbose ,native-comp-verbose
comp-libgccjit-reproducer ,comp-libgccjit-reproducer
comp-async-compilation t
comp-eln-load-path ',comp-eln-load-path