diff options
| author | Andrea Corallo <akrl@sdf.org> | 2020-09-30 16:53:32 +0200 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-09-30 17:06:04 +0200 |
| commit | ec23b719e5350f70f731060bca04d5b23887f08c (patch) | |
| tree | 54354ac90bcf64efdef04749d76cd57c720ce9ed /src/comp.c | |
| parent | 86e37ea8c5c758b6d22308104755a396816d8768 (diff) | |
| download | emacs-ec23b719e5350f70f731060bca04d5b23887f08c.tar.gz emacs-ec23b719e5350f70f731060bca04d5b23887f08c.tar.bz2 emacs-ec23b719e5350f70f731060bca04d5b23887f08c.zip | |
* Improve some docstring in src/comp.c
* src/comp.c (Fcomp_el_to_eln_filename)
(Fcomp__compile_ctxt_to_file): Improve docstring.
(Fcomp__compile_ctxt_to_file): Rename 'file_name' -> 'filename'.
(Fnative_comp_available_p): Improve docstring.
Diffstat (limited to 'src/comp.c')
| -rw-r--r-- | src/comp.c | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/src/comp.c b/src/comp.c index 0b42582ab29..058ce7e96ac 100644 --- a/src/comp.c +++ b/src/comp.c @@ -4015,7 +4015,7 @@ static Lisp_Object loadsearch_re_list; DEFUN ("comp-el-to-eln-filename", Fcomp_el_to_eln_filename, Scomp_el_to_eln_filename, 1, 2, 0, - doc: /* Given a source file return the corresponding .eln true filename. + doc: /* Given a source FILENAME return the corresponding .eln filename. If BASE-DIR is nil use the first entry in `comp-eln-load-path'. */) (Lisp_Object filename, Lisp_Object base_dir) { @@ -4363,13 +4363,13 @@ restore_sigmask (void) 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 file_name) + doc: /* Compile as native code the current context to file FILENAME. */) + (Lisp_Object filename) { load_gccjit_if_necessary (true); - CHECK_STRING (file_name); - Lisp_Object base_name = Fsubstring (file_name, Qnil, make_fixnum (-4)); + CHECK_STRING (filename); + Lisp_Object base_name = Fsubstring (filename, Qnil, make_fixnum (-4)); gcc_jit_context_set_int_option (comp.ctxt, GCC_JIT_INT_OPTION_OPTIMIZATION_LEVEL, @@ -4441,16 +4441,16 @@ DEFUN ("comp--compile-ctxt-to-file", Fcomp__compile_ctxt_to_file, if (err) xsignal3 (Qnative_ice, build_string ("failed to compile"), - file_name, + filename, build_string (err)); - CALL1I (comp-clean-up-stale-eln, file_name); - CALL2I (comp-delete-or-replace-file, file_name, tmp_file); + CALL1I (comp-clean-up-stale-eln, filename); + CALL2I (comp-delete-or-replace-file, filename, tmp_file); if (!noninteractive) unbind_to (count, Qnil); - return file_name; + return filename; } DEFUN ("comp-libgccjit-version", Fcomp_libgccjit_version, @@ -5068,7 +5068,7 @@ DEFUN ("native-elisp-load", Fnative_elisp_load, Snative_elisp_load, 1, 2, 0, DEFUN ("native-comp-available-p", Fnative_comp_available_p, Snative_comp_available_p, 0, 0, 0, doc: /* Returns t if native compilation of Lisp files is available in -this instance of Emacs. */) +this instance of Emacs, nil otherwise. */) (void) { #ifdef HAVE_NATIVE_COMP |