emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 9c9b87639f9: Clean-up warnings for non native builds (this time f


From: Andrea Corallo
Subject: master 9c9b87639f9: Clean-up warnings for non native builds (this time for real)
Date: Thu, 9 Nov 2023 13:33:02 -0500 (EST)

branch: master
commit 9c9b87639f919169eed956e9e7cce472d3a2f719
Author: Andrea Corallo <acorallo@gnu.org>
Commit: Andrea Corallo <acorallo@gnu.org>

    Clean-up warnings for non native builds (this time for real)
    
    * 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.
---
 lisp/emacs-lisp/comp-common.el | 15 +--------------
 lisp/emacs-lisp/comp-run.el    | 10 ++++++++++
 lisp/emacs-lisp/comp.el        | 13 +++++++++++++
 3 files changed, 24 insertions(+), 14 deletions(-)

diff --git a/lisp/emacs-lisp/comp-common.el b/lisp/emacs-lisp/comp-common.el
index 678f62b60df..6318f2a22e5 100644
--- a/lisp/emacs-lisp/comp-common.el
+++ b/lisp/emacs-lisp/comp-common.el
@@ -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."
diff --git a/lisp/emacs-lisp/comp-run.el b/lisp/emacs-lisp/comp-run.el
index 87fb46d9aa9..5335003e25b 100644
--- a/lisp/emacs-lisp/comp-run.el
+++ b/lisp/emacs-lisp/comp-run.el
@@ -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.
 
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 81906f3d0e8..73764eb1d79 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]