From 42ff68ec2f1149704da59fd692fafb095a44cce2 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Sat, 9 Jan 2021 12:24:15 +0100 Subject: [PATCH] Improve `comp-libgccjit-reproducer' * src/comp.c (Fcomp__compile_ctxt_to_file): Better libgccjit reproducer file name. * lisp/emacs-lisp/comp.el (comp-libgccjit-reproducer): Doc update. (comp-final, comp-run-async-workers): Pass `comp-libgccjit-reproducer' setting to child workers. --- lisp/emacs-lisp/comp.el | 6 ++++-- src/comp.c | 2 +- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 79cf942e89d..d5ca3b00049 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -138,8 +138,8 @@ and above." (defcustom comp-libgccjit-reproducer nil "When non-nil produce a libgccjit reproducer. -The reproducer is a file comp_SRCNAME_repro.c deposed in the .eln -output directory." +The reproducer is a file ELNFILENAME_libgccjit_repro.c deposed in +the .eln output directory." :type 'boolean) (defvar comp-dry-run nil @@ -3543,6 +3543,7 @@ Prepare every function for final compilation and drive the C back-end." (expr `(progn (require 'comp) (setf comp-verbose ,comp-verbose + comp-libgccjit-reproducer ,comp-libgccjit-reproducer comp-ctxt ,comp-ctxt comp-eln-load-path ',comp-eln-load-path comp-native-driver-options @@ -3795,6 +3796,7 @@ display a message." (setf comp-speed ,comp-speed comp-debug ,comp-debug comp-verbose ,comp-verbose + comp-libgccjit-reproducer ,comp-libgccjit-reproducer comp-async-compilation t comp-eln-load-path ',comp-eln-load-path comp-native-driver-options diff --git a/src/comp.c b/src/comp.c index f6445a7621d..619f5e1b65f 100644 --- a/src/comp.c +++ b/src/comp.c @@ -4431,7 +4431,7 @@ DEFUN ("comp--compile-ctxt-to-file", Fcomp__compile_ctxt_to_file, if (!NILP (Fsymbol_value (Qcomp_libgccjit_reproducer))) gcc_jit_context_dump_reproducer_to_file ( comp.ctxt, - format_string ("comp_%s_repro.c", SSDATA (base_name))); + format_string ("%s_libgccjit_repro.c", SSDATA (base_name))); Lisp_Object tmp_file = Fmake_temp_file_internal (base_name, Qnil, build_string (".eln.tmp"), Qnil); -- 2.39.5