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

Clean-up warnings for non native builds (this time for real)

Browse source 
* lisp/emacs-lisp/comp.el (comp-native-version-dir)
(comp-subr-arities-h, native-comp-eln-load-path)
(native-comp-enable-subr-trampolines): Remove warning.
(comp--compile-ctxt-to-file, comp--init-ctxt, comp--release-ctxt)
(comp-el-to-eln-filename)
(comp-el-to-eln-rel-filename, native-elisp-load): Declare.
* lisp/emacs-lisp/comp-run.el (comp--no-native-compile)
(comp-deferred-pending-h, comp-installed-trampolines-h)
(native-comp-enable-subr-trampolines): Remove warning.
(comp--install-trampoline, comp-el-to-eln-filename)
(native-elisp-load): Declare.
* lisp/emacs-lisp/comp-common.el: Update.
This commit is contained in:
Andrea Corallo 2023-11-09 19:12:14 +01:00
parent 978ebe8a19
commit 9c9b87639f
3 changed files with 24 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/emacs-lisp/comp-common.el
View file

@ -30,21 +30,8 @@
(eval-when-compile (require 'cl-lib))
;; These variables and functions are defined in comp.c
(defvar native-comp-enable-subr-trampolines)
(defvar comp-installed-trampolines-h)
(defvar comp-subr-arities-h)
(defvar native-comp-eln-load-path)
(defvar comp-native-version-dir)
(defvar comp-deferred-pending-h)
(defvar comp--no-native-compile)
(declare-function comp-el-to-eln-rel-filename "comp.c")
(declare-function native-elisp-load "comp.c")
(declare-function comp--release-ctxt "comp.c")
(declare-function comp--init-ctxt "comp.c")
(declare-function comp--compile-ctxt-to-file "comp.c")
(declare-function comp-el-to-eln-filename "comp.c")
(declare-function comp--install-trampoline "comp.c")
(defvar native-comp-eln-load-path)
(defgroup comp-common nil
"Emacs Lisp native compiler common code."

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

@ -115,6 +115,16 @@ if `confirm-kill-processes' is non-nil."
(defvar comp-async-compilations (make-hash-table :test #'equal)
"Hash table file-name -> async compilation process.")
;; These variables and functions are defined in comp.c
(defvar comp--no-native-compile)
(defvar comp-deferred-pending-h)
(defvar comp-installed-trampolines-h)
(defvar native-comp-enable-subr-trampolines)
(declare-function comp--install-trampoline "comp.c")
(declare-function comp-el-to-eln-filename "comp.c")
(declare-function native-elisp-load "comp.c")
(defun native-compile-async-skip-p (file load selector)
"Return non-nil if FILE's compilation should be skipped.

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

@ -37,6 +37,19 @@
(require 'comp-common)
(require 'comp-cstr)
;; These variables and functions are defined in comp.c
(defvar comp-native-version-dir)
(defvar comp-subr-arities-h)
(defvar native-comp-eln-load-path)
(defvar native-comp-enable-subr-trampolines)
(declare-function comp--compile-ctxt-to-file "comp.c")
(declare-function comp--init-ctxt "comp.c")
(declare-function comp--release-ctxt "comp.c")
(declare-function comp-el-to-eln-filename "comp.c")
(declare-function comp-el-to-eln-rel-filename "comp.c")
(declare-function native-elisp-load "comp.c")
(defgroup comp nil
"Emacs Lisp native compiler."
:group 'lisp)