feature/native-comp ccce152 1/6: * Improve some slot type into comp.el

[Andrea Corallo]

branch: feature/native-comp
commit ccce15299ba3846f5c74335d6d7bc55aac29e007
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    * Improve some slot type into comp.el
    
        * lisp/emacs-lisp/comp.el (comp-args-base, comp-args)
        (comp-nargs, comp-func): Fix the type of some slots.
---
 lisp/emacs-lisp/comp.el | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 6b06ac5..8ed1427 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -375,18 +375,17 @@ This is typically for top-level forms other than defun.")
                   :documentation "When non-nil support late load."))
 
 (cl-defstruct comp-args-base
-  (min nil :type number
+  (min nil :type integer
        :documentation "Minimum number of arguments allowed."))
 
 (cl-defstruct (comp-args (:include comp-args-base))
-  (max nil :type number
-       :documentation "Maximum number of arguments allowed.
-To be used when ncall-conv is nil."))
+  (max nil :type integer
+       :documentation "Maximum number of arguments allowed."))
 
 (cl-defstruct (comp-nargs (:include comp-args-base))
   "Describe args when the function signature is of kind:
 (ptrdiff_t nargs, Lisp_Object *args)."
-  (nonrest nil :type number
+  (nonrest nil :type integer
            :documentation "Number of non rest arguments.")
   (rest nil :type boolean
         :documentation "t if rest argument is present."))
@@ -479,7 +478,7 @@ into it.")
        :documentation "SSA status either: 'nil', 'dirty' or 't'.
 Once in SSA form this *must* be set to 'dirty' every time the topology of the
 CFG is mutated by a pass.")
-  (frame-size nil :type number)
+  (frame-size nil :type integer)
   (blocks (make-hash-table :test #'eq) :type hash-table
           :documentation "Basic block symbol -> basic block.")
   (lap-block (make-hash-table :test #'equal) :type hash-table