diff options
| author | Andrea Corallo <akrl@sdf.org> | 2019-11-10 14:51:38 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-01-01 11:38:03 +0100 |
| commit | d5ffb4949044ae58fb418b1b214cc7c6eb16a29c (patch) | |
| tree | 5320dd1b25427e2ba4b6429f22c1312825a4fb12 /src | |
| parent | f9ea53442e6f492f1543a5e21479e72be8eff4c3 (diff) | |
| download | emacs-d5ffb4949044ae58fb418b1b214cc7c6eb16a29c.tar.gz emacs-d5ffb4949044ae58fb418b1b214cc7c6eb16a29c.tar.bz2 emacs-d5ffb4949044ae58fb418b1b214cc7c6eb16a29c.zip | |
better comp-debug customize
Diffstat (limited to 'src')
| -rw-r--r-- | src/comp.c | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/comp.c b/src/comp.c index 7fa55b12477..969495eb938 100644 --- a/src/comp.c +++ b/src/comp.c @@ -34,8 +34,6 @@ along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */ #include "buffer.h" #include "blockinput.h" -#define COMP_DEBUG 1 - /* C symbols emited for the load relocation mechanism. */ #define CURRENT_THREAD_RELOC_SYM "current_thread_reloc" #define PURE_RELOC_SYM "pure_reloc" @@ -44,6 +42,9 @@ along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */ #define TEXT_DATA_RELOC_SYM "text_data_reloc" #define TEXT_IMPORTED_FUNC_RELOC_SYM "text_imported_funcs" +#define SPEED XFIXNUM (Fsymbol_value (Qcomp_speed)) +#define COMP_DEBUG XFIXNUM (Fsymbol_value (Qcomp_debug)) + #define STR_VALUE(s) #s #define STR(s) STR_VALUE (s) @@ -3070,7 +3071,7 @@ DEFUN ("comp--compile-ctxt-to-file", Fcomp__compile_ctxt_to_file, gcc_jit_context_dump_to_file (comp.ctxt, format_string ("%s.c", SSDATA (ctxtname)), 1); - if (COMP_DEBUG > 1) + if (COMP_DEBUG > 2) gcc_jit_context_dump_reproducer_to_file (comp.ctxt, "comp_reproducer.c"); AUTO_STRING (dot_so, NATIVE_ELISP_SUFFIX); @@ -3312,6 +3313,7 @@ syms_of_comp (void) { /* Compiler control customize. */ DEFSYM (Qcomp_speed, "comp-speed"); + DEFSYM (Qcomp_debug, "comp-debug"); /* Limple instruction set. */ DEFSYM (Qcomment, "comment"); DEFSYM (Qjump, "jump"); |