; Avoid byte-compiler warning in comp.el

* lisp/emacs-lisp/comp.el (comp--symbol-func-to-fun): Move to
before its first use.

(cherry picked from commit 74ebd729c7b8a4b957ab9eebc603c69d6aac00be)

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index e69de84362e6d96bd32ac1a6192540d6603fc77a..fa866b802ccc672e3c5ea60773338562e7f19f5d 100644 (file)
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -189,6 +189,11 @@ Useful to hook into pass checkers.")
    finally return h)
   "Hash table function -> `comp-constraint'.")
 
+(defsubst comp--symbol-func-to-fun (symbol-func)
+  "Given a function called SYMBOL-FUNC return its `comp-func'."
+  (gethash (gethash symbol-func (comp-ctxt-sym-to-c-name-h comp-ctxt))
+           (comp-ctxt-funcs-h comp-ctxt)))
+
 (defun comp--get-function-cstr (function)
   "Given FUNCTION return the corresponding `comp-constraint'."
   (when (symbolp function)
@@ -603,11 +608,6 @@ In use by the back-end."
                finally return t)
     t))
 
-(defsubst comp--symbol-func-to-fun (symbol-func)
-  "Given a function called SYMBOL-FUNC return its `comp-func'."
-  (gethash (gethash symbol-func (comp-ctxt-sym-to-c-name-h comp-ctxt))
-           (comp-ctxt-funcs-h comp-ctxt)))
-
 (defun comp--function-pure-p (f)
   "Return t if F is pure."
   (or (get f 'pure)