diff options
| author | Andrea Corallo <akrl@sdf.org> | 2021-05-06 10:14:00 +0200 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2021-05-06 17:16:07 +0200 |
| commit | 94c69eb1d7dfbe5a6a792c707de0bffe6cd11e28 (patch) | |
| tree | 19b6f3878fe5bc94cbe02f8e1fe7ef886e0dcee5 /lisp/emacs-lisp | |
| parent | 43f29696adc37ae75d87cd4b86d78e830e01e018 (diff) | |
| download | emacs-94c69eb1d7dfbe5a6a792c707de0bffe6cd11e28.tar.gz emacs-94c69eb1d7dfbe5a6a792c707de0bffe6cd11e28.tar.bz2 emacs-94c69eb1d7dfbe5a6a792c707de0bffe6cd11e28.zip | |
Rename comp-debug -> native-comp-debug
* src/comp.c (emit_ctxt_code, syms_of_comp): Rename comp-debug ->
native-comp-debug.
* lisp/emacs-lisp/comp.el (native-comp-debug, comp-ctxt)
(comp-spill-lap-function, comp-run-async-workers): Likewise.
* lisp/emacs-lisp/bytecomp.el (byte-compile-from-buffer): Likewise.
* test/src/comp-tests.el (comp-tests-bootstrap): Likewise.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 4 | ||||
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 8 |
2 files changed, 6 insertions, 6 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 2a07ea79f56..16740e92d35 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -2240,8 +2240,8 @@ With argument ARG, insert value in current buffer after the form." (when byte-native-compiling (defvar native-comp-speed) (push `(native-comp-speed . ,native-comp-speed) byte-native-qualities) - (defvar comp-debug) - (push `(comp-debug . ,comp-debug) byte-native-qualities) + (defvar native-comp-debug) + (push `(native-comp-debug . ,native-comp-debug) byte-native-qualities) (defvar comp-native-driver-options) (push `(comp-native-driver-options . ,comp-native-driver-options) byte-native-qualities) diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index d02c3b0c23b..4a8fee01c5d 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -55,7 +55,7 @@ :safe #'integerp :version "28.1") -(defcustom comp-debug (if (eq 'windows-nt system-type) 1 0) +(defcustom native-comp-debug (if (eq 'windows-nt system-type) 1 0) "Debug level for native compilation, a number between 0 and 3. This is intended for debugging the compiler itself. 0 no debug output. @@ -745,7 +745,7 @@ Returns ELT." :documentation "Target output file-name for the compilation.") (speed native-comp-speed :type number :documentation "Default speed for this compilation unit.") - (debug comp-debug :type number + (debug native-comp-debug :type number :documentation "Default debug level for this compilation unit.") (driver-options comp-native-driver-options :type list :documentation "Options for the GCC driver.") @@ -1336,7 +1336,7 @@ clashes." (car (last comp-eln-load-path)))))) (setf (comp-ctxt-speed comp-ctxt) (alist-get 'native-comp-speed byte-native-qualities) - (comp-ctxt-debug comp-ctxt) (alist-get 'comp-debug + (comp-ctxt-debug comp-ctxt) (alist-get 'native-comp-debug byte-native-qualities) (comp-ctxt-driver-options comp-ctxt) (alist-get 'comp-native-driver-options byte-native-qualities) @@ -3906,7 +3906,7 @@ display a message." ,(when (boundp 'backtrace-line-length) `(setf backtrace-line-length ,backtrace-line-length)) (setf native-comp-speed ,native-comp-speed - comp-debug ,comp-debug + native-comp-debug ,native-comp-debug comp-verbose ,comp-verbose comp-libgccjit-reproducer ,comp-libgccjit-reproducer comp-async-compilation t |