Changeset 12892


Ignore:
Timestamp:
08/13/10 19:06:37 (12 years ago)
Author:
ehuelsmann
Message:

Prepare ANALYZE-ARGS for the new class file generator.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/generic-class-file/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r12891 r12892  
    68636863
    68646864
    6865 ;; Returns descriptor.
     6865;; Returns a list with the types of the arguments
    68666866(defun analyze-args (compiland)
    68676867  (let* ((args (cadr (compiland-p1-result compiland)))
     
    68756875      (setf *using-arg-array* t
    68766876            *hairy-arglist-p* t)
    6877       (return-from analyze-args
    6878           (descriptor +lisp-object+ +lisp-object-array+)))
     6877      (return-from analyze-args (list +lisp-object-array+)))
    68796878
    68806879    (cond ((<= arg-count call-registers-limit)
    6881            (apply #'descriptor +lisp-object+
    6882                   (lisp-object-arg-types arg-count)))
     6880           (lisp-object-arg-types arg-count))
    68836881          (t (setf *using-arg-array* t)
    68846882             (setf (compiland-arity compiland) arg-count)
    6885              (descriptor +lisp-object+ +lisp-object-array+)))))
     6883             +lisp-object-array+))))
    68866884
    68876885(defmacro with-open-class-file ((var class-file) &body body)
     
    70067004         (*child-p* (not (null (compiland-parent compiland))))
    70077005
    7008          (descriptor (analyze-args compiland))
     7006         (arg-types (analyze-args compiland))
    70097007         (execute-method (make-method :name "execute"
    7010                                       :descriptor descriptor))
     7008                                      :descriptor (apply #'descriptor
     7009                                                         +lisp-object+
     7010                                                         arg-types)))
    70117011         (*code* ())
    70127012         (*register* 1) ;; register 0: "this" pointer
Note: See TracChangeset for help on using the changeset viewer.