diff options
| author | Andrea Corallo <akrl@sdf.org> | 2021-05-06 10:17:12 +0200 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2021-05-06 17:16:07 +0200 |
| commit | 6efd7885dbae1b430b65ed2bf13d4a7dfd9d08fd (patch) | |
| tree | 27ac80e7a7114bb6f736bd529aee30583478f658 /lisp/emacs-lisp | |
| parent | 94c69eb1d7dfbe5a6a792c707de0bffe6cd11e28 (diff) | |
| download | emacs-6efd7885dbae1b430b65ed2bf13d4a7dfd9d08fd.tar.gz emacs-6efd7885dbae1b430b65ed2bf13d4a7dfd9d08fd.tar.bz2 emacs-6efd7885dbae1b430b65ed2bf13d4a7dfd9d08fd.zip | |
* Rename comp-verbose -> native-comp-verbose
* 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.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 4a8fee01c5d..18920020e6c 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -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 |