[armedbear-cvs] r11506 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Mon Dec 29 20:16:49 2008
New Revision: 11506

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

Modified:
   trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	Mon Dec 29 20:16:49 2008
@@ -2894,12 +2894,7 @@
                                   (list +lisp-object+ +lisp-object-array+)
                                   +lisp-object+)))))
     (process-args args)
-    (let* ((arg-count (length args))
-           (arg-types (if (<= arg-count call-registers-limit)
-                          (lisp-object-arg-types arg-count)
-                          (list +lisp-object-array+))) ;; FIXME
-           (result-type +lisp-object+))
-      (emit-invokevirtual +lisp-object-class+ "execute" arg-types result-type))
+    (emit-call-execute (length args))
     (fix-boxing representation nil)
     (emit-move-from-stack target representation)
     (when saved-vars