From: Andrea Corallo <akrl@sdf.org>
Date: Sat, 7 Dec 2019 16:38:08 +0000 (+0100)
Subject: add int-spec to comp-func
X-Git-Tag: emacs-28.0.90~2727^2~926
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=48f5530e7922e4c46db1c4ab82b1c3532db724c9;p=emacs.git

add int-spec to comp-func
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 30db2f18918..e46453e8516 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -234,6 +234,8 @@ Is in use to help the SSA rename pass."))
              :documentation "Byte compiled version.")
   (doc nil :type string
        :documentation "Doc string.")
+  (int-spec nil :type list
+            :documentation "Interactive form.")
   (lap () :type list
        :documentation "LAP assembly representation.")
   (args nil :type comp-args-base)
@@ -451,15 +453,14 @@ Put PREFIX in front of it."
                        collect x)
    for name = (byte-to-native-function-name f)
    for data = (byte-to-native-function-data f)
-   for doc = (when (>= (length data) 5) (aref data 4))
    for lap = (alist-get name byte-to-native-lap)
-   for lambda-list = (aref data 0)
    for func = (make-comp-func :name name
                               :byte-func data
-                              :doc doc
+                              :doc (documentation data)
+                              :int-spec (interactive-form data)
                               :c-name (comp-c-func-name name "F")
-                              :args (comp-decrypt-lambda-list lambda-list)
-                              :lap lap
+                              :args (comp-decrypt-arg-list (aref data 0))
+                              :lap (alist-get name byte-to-native-lap)
                               :frame-size (comp-byte-frame-size data))
    do (comp-log (format "Function %s:\n" name) 1)
       (comp-log lap 1)