feature/native-comp 42ff68e: Improve `comp-libgccjit-reproducer'

[Andrea Corallo]

branch: feature/native-comp
commit 42ff68ec2f1149704da59fd692fafb095a44cce2
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    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 79cf942..d5ca3b0 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 f6445a7..619f5e1 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);