mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-14 18:10:32 -08:00
Code Issues Projects Releases Wiki Activity

Rename comp-debug -> native-comp-debug

Browse source 
* 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.
This commit is contained in:
Andrea Corallo 2021-05-06 10:14:00 +02:00
parent 43f29696ad
commit 94c69eb1d7
4 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/bytecomp.el
View file

@ -2240,8 +2240,8 @@ With argument ARG, insert value in current buffer after the form."
(when byte-native-compiling (when byte-native-compiling
(defvar native-comp-speed) (defvar native-comp-speed)
(push `(native-comp-speed . ,native-comp-speed) byte-native-qualities) (push `(native-comp-speed . ,native-comp-speed) byte-native-qualities)
(defvar comp-debug) (defvar native-comp-debug)
(push `(comp-debug . ,comp-debug) byte-native-qualities) (push `(native-comp-debug . ,native-comp-debug) byte-native-qualities)
(defvar comp-native-driver-options) (defvar comp-native-driver-options)
(push `(comp-native-driver-options . ,comp-native-driver-options) (push `(comp-native-driver-options . ,comp-native-driver-options)
byte-native-qualities) byte-native-qualities)

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

@ -55,7 +55,7 @@
:safe #'integerp :safe #'integerp
:version "28.1") :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. "Debug level for native compilation, a number between 0 and 3.
This is intended for debugging the compiler itself. This is intended for debugging the compiler itself.
0 no debug output. 0 no debug output.
@ -745,7 +745,7 @@ Returns ELT."
:documentation "Target output file-name for the compilation.") :documentation "Target output file-name for the compilation.")
(speed native-comp-speed :type number (speed native-comp-speed :type number
:documentation "Default speed for this compilation unit.") :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.") :documentation "Default debug level for this compilation unit.")
(driver-options comp-native-driver-options :type list (driver-options comp-native-driver-options :type list
:documentation "Options for the GCC driver.") :documentation "Options for the GCC driver.")
@ -1336,7 +1336,7 @@ clashes."
(car (last comp-eln-load-path)))))) (car (last comp-eln-load-path))))))
(setf (comp-ctxt-speed comp-ctxt) (alist-get 'native-comp-speed (setf (comp-ctxt-speed comp-ctxt) (alist-get 'native-comp-speed
byte-native-qualities) 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) byte-native-qualities)
(comp-ctxt-driver-options comp-ctxt) (alist-get 'comp-native-driver-options (comp-ctxt-driver-options comp-ctxt) (alist-get 'comp-native-driver-options
byte-native-qualities) byte-native-qualities)
@ -3906,7 +3906,7 @@ display a message."
,(when (boundp 'backtrace-line-length) ,(when (boundp 'backtrace-line-length)
`(setf backtrace-line-length ,backtrace-line-length)) `(setf backtrace-line-length ,backtrace-line-length))
(setf native-comp-speed ,native-comp-speed (setf native-comp-speed ,native-comp-speed
comp-debug ,comp-debug native-comp-debug ,native-comp-debug
comp-verbose ,comp-verbose comp-verbose ,comp-verbose
comp-libgccjit-reproducer ,comp-libgccjit-reproducer comp-libgccjit-reproducer ,comp-libgccjit-reproducer
comp-async-compilation t comp-async-compilation t

4
src/comp.c
View file

@ -2746,7 +2746,7 @@ emit_ctxt_code (void)
/* Emit optimize qualities. */ /* Emit optimize qualities. */
Lisp_Object opt_qly[] = Lisp_Object opt_qly[] =
{ Fcons (Qnative_comp_speed, make_fixnum (comp.speed)), { Fcons (Qnative_comp_speed, make_fixnum (comp.speed)),
Fcons (Qcomp_debug, make_fixnum (comp.debug)), Fcons (Qnative_comp_debug, make_fixnum (comp.debug)),
Fcons (Qgccjit, Fcons (Qgccjit,
Fcomp_libgccjit_version ()) }; Fcomp_libgccjit_version ()) };
emit_static_object (TEXT_OPTIM_QLY_SYM, Flist (ARRAYELTS (opt_qly), opt_qly)); emit_static_object (TEXT_OPTIM_QLY_SYM, Flist (ARRAYELTS (opt_qly), opt_qly));
@ -5208,7 +5208,7 @@ compiled one. */);
comp_deferred_compilation = true; comp_deferred_compilation = true;
DEFSYM (Qnative_comp_speed, "native-comp-speed"); DEFSYM (Qnative_comp_speed, "native-comp-speed");
DEFSYM (Qcomp_debug, "comp-debug"); DEFSYM (Qnative_comp_debug, "native-comp-debug");
DEFSYM (Qcomp_native_driver_options, "comp-native-driver-options"); DEFSYM (Qcomp_native_driver_options, "comp-native-driver-options");
DEFSYM (Qcomp_libgccjit_reproducer, "comp-libgccjit-reproducer"); DEFSYM (Qcomp_libgccjit_reproducer, "comp-libgccjit-reproducer");

2
test/src/comp-tests.el
View file

@ -59,7 +59,7 @@ Check that the resulting binaries do not differ."
(comp1-src (make-temp-file "stage1-" nil ".el")) (comp1-src (make-temp-file "stage1-" nil ".el"))
(comp2-src (make-temp-file "stage2-" nil ".el")) (comp2-src (make-temp-file "stage2-" nil ".el"))
;; Can't use debug symbols. ;; Can't use debug symbols.
(comp-debug 0)) (native-comp-debug 0))
(copy-file comp-src comp1-src t) (copy-file comp-src comp1-src t)
(copy-file comp-src comp2-src t) (copy-file comp-src comp2-src t)
(let ((load-no-native t)) (let ((load-no-native t))