bug#43892: [PATCH] Native-comp: fix compilation warnings

[Brian Leung via "Bug reports for GNU Emacs, the Swiss army knife of text editors" <bug-gnu-emacs@gnu.org>]

[-- Attachment #1: Type: text/plain, Size: 234 bytes --]

This is for the native-comp branch.

I also attached my FSF papers from when I contributed to an external Emacs package. Not sure if I need separate forms right now.

-- 
Sent with https://mailfence.com
Secure and private email

[-- Attachment #2: File Attachment: leung.tar.gz --]
[-- Type: application/x-gzip, Size: 148289 bytes --]

[-- Attachment #3: File Attachment: 0001-Fix-some-compilation-warnings.patch --]
[-- Type: text/x-diff, Size: 2871 bytes --]

From f291c25eac1785e2a5d4ace381a44e0ebef5f7db Mon Sep 17 00:00:00 2001
From: Brian Leung <leungbk@mailfence.com>
Date: Fri, 9 Oct 2020 14:35:26 -0700
Subject: [PATCH] ; Fix some compilation warnings

---
 lisp/emacs-lisp/advice.el    | 2 ++
 lisp/emacs-lisp/find-func.el | 2 ++
 lisp/emacs-lisp/nadvice.el   | 2 ++
 lisp/files.el                | 2 ++
 lisp/help.el                 | 2 ++
 5 files changed, 10 insertions(+)

diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el
index fb67de3a02..509e255191 100644
--- a/lisp/emacs-lisp/advice.el
+++ b/lisp/emacs-lisp/advice.el
@@ -2052,6 +2052,8 @@ ad-remove-advice
 		 function class name)))
     (error "ad-remove-advice: `%s' is not advised" function)))
 
+(declare-function comp-subr-trampoline-install "comp")
+
 ;;;###autoload
 (defun ad-add-advice (function advice class position)
   "Add a piece of ADVICE to FUNCTION's list of advices in CLASS.
diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el
index 9e4d8cf1aa..4417082971 100644
--- a/lisp/emacs-lisp/find-func.el
+++ b/lisp/emacs-lisp/find-func.el
@@ -178,6 +178,8 @@ find-library--load-name
             (setq name rel))))
     (unless (equal name library) name)))
 
+(defvar comp-eln-to-el-h)
+
 (defun find-library-name (library)
   "Return the absolute file name of the Emacs Lisp source of LIBRARY.
 LIBRARY should be a string (the name of the library)."
diff --git a/lisp/emacs-lisp/nadvice.el b/lisp/emacs-lisp/nadvice.el
index 0396132585..4a55dbfcd5 100644
--- a/lisp/emacs-lisp/nadvice.el
+++ b/lisp/emacs-lisp/nadvice.el
@@ -316,6 +316,8 @@ add-function
   `(advice--add-function ,where (gv-ref ,(advice--normalize-place place))
                          ,function ,props))
 
+(declare-function comp-subr-trampoline-install "comp")
+
 ;;;###autoload
 (defun advice--add-function (where ref function props)
   (when (and (boundp 'comp-ctxt)
diff --git a/lisp/files.el b/lisp/files.el
index 833a188b03..1d330ce87b 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -900,6 +900,8 @@ load-file
 		       (read-file-name "Load file: " nil nil 'lambda))))
   (load (expand-file-name file) nil nil t))
 
+(defvar comp-eln-to-el-h)
+
 (defun locate-file (filename path &optional suffixes predicate)
   "Search for FILENAME through PATH.
 If found, return the absolute file name of FILENAME; otherwise
diff --git a/lisp/help.el b/lisp/help.el
index 4d0c4d5d98..f51f7f19c4 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -1320,6 +1320,8 @@ help-add-fundoc-usage
                   (error "Unrecognized usage format"))
 	      (help--make-usage-docstring 'fn arglist)))))
 
+(declare-function subr-native-lambda-list "data.c")
+
 (defun help-function-arglist (def &optional preserve-names)
   "Return a formal argument list for the function DEF.
 If PRESERVE-NAMES is non-nil, return a formal arglist that uses
-- 
2.28.0