Changeset 16519


Ignore:
Timestamp:
Aug 30, 2015, 4:55:29 AM (4 years ago)
Author:
gb
Message:

fix x862-formlist

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/lscan/source/compiler/X86/x862.lisp

    r16518 r16519  
    13191319           (nopt (length opt-args))
    13201320           (max (+ min nopt))
    1321            (args (append (reverse rev-fixed-args) opt-args))
     1321           (args (append (reverse rev-fixed-args) opt-args)) 
    13221322           (nargs (length args)))
    13231323      (if (and (< nargs 4)
     
    37733773  (with-x86-local-vinsn-macros (seg) 
    37743774    (let* ((nregs (length revregargs))
     3775           ;(*x862-vstack* *x862-vstack*)
    37753776           (n nregs)
    37763777           (zreg ())
     
    37793780           
    37803781      (declare (fixnum n))
    3781       (dolist (arg stkargs)
     3782      (if *backend-use-linear-scan*
     3783        (dolist (arg stkargs)
     3784          (let* ((reg (x862-one-untargeted-lreg-form seg arg (?))))
     3785          (! vpush-register reg))
     3786          (incf n))
     3787        (dolist (arg stkargs)
    37823788        (let* ((pushform (x862-acode-operator-supports-push arg)))
    37833789          (if pushform
     
    37893795            (let* ((reg (x862-one-untargeted-reg-form seg arg *x862-arg-z*)))
    37903796              (x862-vpush-register-arg seg reg)))
    3791           (incf n)))
     3797          (incf n))))
    37923798      (when revregargs
    37933799        (let* ((zform (%car revregargs))
Note: See TracChangeset for help on using the changeset viewer.