procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Improve warnings from native compiler

Browse source 
* src/comp.c (syms_of_comp) <native-compiler>: Rename from 'comp'.

* src/lread.c (maybe_swap_for_eln):
* lisp/emacs-lisp/comp.el (comp--fwprop):
* lisp/emacs-lisp/comp-run.el
(comp--accept-and-process-async-output, native--compile-async):
Adjust to the new symbol.
This commit is contained in:
Eli Zaretskii 2024-07-05 22:00:08 +03:00
parent cefec59df7
commit 814710067f
4 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/comp-run.el
View file

@ -195,7 +195,7 @@ processes from `comp-async-compilations'"
(if native-comp-async-report-warnings-errors (if native-comp-async-report-warnings-errors
(let ((warning-suppress-types (let ((warning-suppress-types
(if (eq native-comp-async-report-warnings-errors 'silent) (if (eq native-comp-async-report-warnings-errors 'silent)
(cons '(comp) warning-suppress-types) (cons '(native-compiler) warning-suppress-types)
warning-suppress-types)) warning-suppress-types))
(regexp (if (eq native-comp-async-warnings-errors-kind 'all) (regexp (if (eq native-comp-async-warnings-errors-kind 'all)
"^.*?\\(?:Error\\|Warning\\): .*$" "^.*?\\(?:Error\\|Warning\\): .*$"
@ -211,7 +211,7 @@ processes from `comp-async-compilations'"
(accept-process-output process) (accept-process-output process)
(goto-char (or comp-last-scanned-async-output (point-min))) (goto-char (or comp-last-scanned-async-output (point-min)))
(while (re-search-forward regexp nil t) (while (re-search-forward regexp nil t)
(display-warning 'comp (match-string 0))) (display-warning 'native-compiler (match-string 0)))
(setq comp-last-scanned-async-output (point-max))))) (setq comp-last-scanned-async-output (point-max)))))
(accept-process-output process))) (accept-process-output process)))
@ -446,7 +446,7 @@ bytecode definition was not changed in the meantime)."
(setf comp-files-queue (setf comp-files-queue
(append comp-files-queue `((,file . ,load))) (append comp-files-queue `((,file . ,load)))
added-something t) added-something t)
(display-warning 'comp (display-warning 'native-compiler
(format "No write access for %s skipping." (format "No write access for %s skipping."
out-filename))))))) out-filename)))))))
;; Perhaps nothing passed `native--compile-async-skip-p'? ;; Perhaps nothing passed `native--compile-async-skip-p'?

2
lisp/emacs-lisp/comp.el
View file

@ -2792,7 +2792,7 @@ Return t if something was changed."
finally finally
(when (= i 100) (when (= i 100)
(display-warning (display-warning
'comp 'native-compiler
(format "fwprop pass jammed into %s?" (comp-func-name f)))) (format "fwprop pass jammed into %s?" (comp-func-name f))))
(comp-log (format "Propagation run %d times\n" i) 2)) (comp-log (format "Propagation run %d times\n" i) 2))
(comp--rewrite-non-locals) (comp--rewrite-non-locals)

2
src/comp.c
View file

@ -5756,7 +5756,7 @@ natively-compiled one. */);
DEFSYM (Qd_ephemeral, "d-ephemeral"); DEFSYM (Qd_ephemeral, "d-ephemeral");
/* Others. */ /* Others. */
DEFSYM (Qcomp, "comp"); DEFSYM (Qnative_compiler, "native-compiler");
DEFSYM (Qfixnum, "fixnum"); DEFSYM (Qfixnum, "fixnum");
DEFSYM (Qscratch, "scratch"); DEFSYM (Qscratch, "scratch");
DEFSYM (Qlate, "late"); DEFSYM (Qlate, "late");

2
src/lread.c
View file

@ -1887,7 +1887,7 @@ maybe_swap_for_eln (bool no_native, Lisp_Object *filename, int *fd,
return; return;
Vdelayed_warnings_list Vdelayed_warnings_list
= Fcons (list2 = Fcons (list2
(Qcomp, (Qnative_compiler,
CALLN (Fformat, CALLN (Fformat,
build_string ("Cannot look up .eln file " build_string ("Cannot look up .eln file "
"for %s because no source " "for %s because no source "