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.

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 79cf942e89d3e8353e624558c00af2d7ab61fe63..d5ca3b00049ec2c527e03d60a2123e2630322e4a 100644 (file)
--- 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 f6445a7621dd14372fe1cc2e4501ac0d07e470f9..619f5e1b65fea9370d8ce374d20631efdda6f403 100644 (file)
--- 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);