Changeset 11506


Ignore:
Timestamp:
12/29/08 20:16:49 (12 years ago)
Author:
ehuelsmann
Message:

Consolidate code-path with existing function EMIT-CALL-EXECUTE.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r11505 r11506  
    28952895                                  +lisp-object+)))))
    28962896    (process-args args)
    2897     (let* ((arg-count (length args))
    2898            (arg-types (if (<= arg-count call-registers-limit)
    2899                           (lisp-object-arg-types arg-count)
    2900                           (list +lisp-object-array+))) ;; FIXME
    2901            (result-type +lisp-object+))
    2902       (emit-invokevirtual +lisp-object-class+ "execute" arg-types result-type))
     2897    (emit-call-execute (length args))
    29032898    (fix-boxing representation nil)
    29042899    (emit-move-from-stack target representation)
Note: See TracChangeset for help on using the changeset viewer.