[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp 42ff68e: Improve `comp-libgccjit-reproducer'
From: |
Andrea Corallo |
Subject: |
feature/native-comp 42ff68e: Improve `comp-libgccjit-reproducer' |
Date: |
Sat, 9 Jan 2021 08:07:40 -0500 (EST) |
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);
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- feature/native-comp 42ff68e: Improve `comp-libgccjit-reproducer',
Andrea Corallo <=