Changeset 12892
- Timestamp:
- 08/13/10 19:06:37 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/generic-class-file/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
r12891 r12892 6863 6863 6864 6864 6865 ;; Returns descriptor.6865 ;; Returns a list with the types of the arguments 6866 6866 (defun analyze-args (compiland) 6867 6867 (let* ((args (cadr (compiland-p1-result compiland))) … … 6875 6875 (setf *using-arg-array* t 6876 6876 *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+))) 6879 6878 6880 6879 (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)) 6883 6881 (t (setf *using-arg-array* t) 6884 6882 (setf (compiland-arity compiland) arg-count) 6885 (descriptor +lisp-object+ +lisp-object-array+)))))6883 +lisp-object-array+)))) 6886 6884 6887 6885 (defmacro with-open-class-file ((var class-file) &body body) … … 7006 7004 (*child-p* (not (null (compiland-parent compiland)))) 7007 7005 7008 ( descriptor(analyze-args compiland))7006 (arg-types (analyze-args compiland)) 7009 7007 (execute-method (make-method :name "execute" 7010 :descriptor descriptor)) 7008 :descriptor (apply #'descriptor 7009 +lisp-object+ 7010 arg-types))) 7011 7011 (*code* ()) 7012 7012 (*register* 1) ;; register 0: "this" pointer
Note: See TracChangeset
for help on using the changeset viewer.