From: Andrea Corallo Date: Thu, 9 Nov 2023 16:00:22 +0000 (+0100) Subject: Clean-up warnings for non native builds X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=13a1797d5b69224e97295d85d0c098c96142d238;p=emacs.git Clean-up warnings for non native builds * lisp/emacs-lisp/comp-common.el (native-comp-enable-subr-trampolines) (comp-installed-trampolines-h, comp-subr-arities-h) (native-comp-eln-load-path, comp-native-version-dir) (comp-deferred-pending-h, comp--no-native-compile): Silence warning. (comp-el-to-eln-rel-filename, native-elisp-load) (comp--release-ctxt, comp--init-ctxt) (comp--compile-ctxt-to-file, comp-el-to-eln-filename) (comp--install-trampoline): Declare function. * lisp/emacs-lisp/comp.el : Update. --- diff --git a/lisp/emacs-lisp/comp-common.el b/lisp/emacs-lisp/comp-common.el index 32b5d6ba270..678f62b60df 100644 --- a/lisp/emacs-lisp/comp-common.el +++ b/lisp/emacs-lisp/comp-common.el @@ -29,6 +29,23 @@ (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") + (defgroup comp-common nil "Emacs Lisp native compiler common code." :group 'lisp) diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index c0181aa5cf6..81906f3d0e8 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -37,23 +37,6 @@ (require 'comp-common) (require 'comp-cstr) -;; 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") - (defgroup comp nil "Emacs Lisp native compiler." :group 'lisp)