diff options
| author | AndreaCorallo <akrl@sdf.org> | 2020-02-06 20:41:52 +0000 |
|---|---|---|
| committer | AndreaCorallo <akrl@sdf.org> | 2020-02-06 20:41:52 +0000 |
| commit | 0da62d94e2a167d5ccfd8ece03623afdc178154c (patch) | |
| tree | 509b64be699818de73544ee0554d327a89736f4a /src | |
| parent | 0cef208cc32c29b143be262fe673e7518b6ef2a8 (diff) | |
| download | emacs-0da62d94e2a167d5ccfd8ece03623afdc178154c.tar.gz emacs-0da62d94e2a167d5ccfd8ece03623afdc178154c.tar.bz2 emacs-0da62d94e2a167d5ccfd8ece03623afdc178154c.zip | |
Change parameter name into comp--compile-ctxt-to-file
Diffstat (limited to 'src')
| -rw-r--r-- | src/comp.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/comp.c b/src/comp.c index 0b7b2b92615..9dcd5547de6 100644 --- a/src/comp.c +++ b/src/comp.c @@ -3212,9 +3212,9 @@ DEFUN ("comp--compile-ctxt-to-file", Fcomp__compile_ctxt_to_file, Scomp__compile_ctxt_to_file, 1, 1, 0, doc: /* Compile as native code the current context to file. */) - (Lisp_Object ctxtname) + (Lisp_Object base_name) { - CHECK_STRING (ctxtname); + CHECK_STRING (base_name); gcc_jit_context_set_int_option (comp.ctxt, GCC_JIT_INT_OPTION_OPTIMIZATION_LEVEL, @@ -3261,16 +3261,16 @@ DEFUN ("comp--compile-ctxt-to-file", Fcomp__compile_ctxt_to_file, if (COMP_DEBUG) gcc_jit_context_dump_to_file (comp.ctxt, - format_string ("%s.c", SSDATA (ctxtname)), + format_string ("%s.c", SSDATA (base_name)), 1); if (COMP_DEBUG > 2) gcc_jit_context_dump_reproducer_to_file (comp.ctxt, "comp_reproducer.c"); AUTO_STRING (dot_so, NATIVE_ELISP_SUFFIX); - Lisp_Object out_file = CALLN (Fconcat, ctxtname, dot_so); + Lisp_Object out_file = CALLN (Fconcat, base_name, dot_so); Lisp_Object tmp_file = - Fmake_temp_file_internal (ctxtname, Qnil, dot_so, Qnil); + Fmake_temp_file_internal (base_name, Qnil, dot_so, Qnil); gcc_jit_context_compile_to_file (comp.ctxt, GCC_JIT_OUTPUT_KIND_DYNAMIC_LIBRARY, SSDATA (tmp_file)); |