Changeset 14005 for branches


Ignore:
Timestamp:
Jul 21, 2010, 10:36:19 AM (9 years ago)
Author:
gb
Message:

Funcall's argument goes straight to arm::nfn in ARM2-MVCALL.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/arm/compiler/ARM/arm2.lisp

    r13981 r14005  
    45664566                (! recover-values)
    45674567                (arm2-close-undo))
    4568               (! lisp-word-ref arm::temp0 arm::vsp arm::nargs)
    4569               (arm2-invoke-fn seg arm::temp0 nil nil xfer)))
     4568              (! lisp-word-ref arm::nfn arm::vsp arm::nargs)
     4569              (arm2-invoke-fn seg arm::nfn nil nil xfer)))
    45704570          (unless recursive-p
    45714571            (if mv-p
     
    46354635
    46364636(defun arm2-bind-structured-var (seg var vloc lcell &optional context)
     4637  (declare (ignore context))
    46374638  (if (not (arm2-structured-var-p var))
    46384639    (let* ((reg (nx2-assign-register-var var)))
     
    80498050
    80508051(defarm2 arm2-eabi-syscall eabi-syscall (seg vreg xfer idx argspecs argvals resultspec)
    8051   (declare (ignore monitor-exception-ports))
    80528052  (let* ((*arm2-vstack* *arm2-vstack*)
    80538053         (*arm2-top-vstack-lcell* *arm2-top-vstack-lcell*)
Note: See TracChangeset for help on using the changeset viewer.