Changeset 16459


Ignore:
Timestamp:
Jul 10, 2015, 1:53:34 AM (4 years ago)
Author:
gb
Message:

un-break self-calls, which broke in yesterday's commit.

File:
1 edited

Legend:

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

    r16456 r16459  
    85668566                           (length (cadr arglist)))))
    85678567      (let* ((forms (append (car arglist) (reverse (cadr arglist))))
    8568              (vars *x862-tail-arg-vars*))
    8569         (cond (*backend-use-linear-scan*
    8570                (case nargs
    8571                  (0)
    8572                  (1 (x862-one-targeted-reg-form seg (car forms) ($ x8664::arg_z)))
    8573                  (2 (x862-two-targeted-reg-forms seg (car forms) ($ x8664::arg_y) (cadr forms)($ x8664::arg_z)))
    8574                  (3 (x862-three-targeted-reg-forms seg (car forms) ($ x8664::arg_x) (cadr forms)($ x8664::arg_y) (caddr forms) ($ x8664::arg_z)))
    8575                  (t (linear-scan-bailout "too many args in self tail call")))
    8576 
    8577                  ;; set the vsp, then
    8578                  (! jump (aref *backend-labels* *x862-fixed-self-tail-call-label*))
    8579                )
    8580               (t
    8581         (let* ((regs (ecase nargs
     8568             (vars *x862-tail-arg-vars*)
     8569             (regs (ecase nargs
    85828570                     (0 ())
    85838571                     (1 (list ($ *x862-arg-z*)))
     
    86458633          (unless (eql 0 diff)
    86468634            (! adjust-vsp diff))
    8647           (! jump (aref *backend-labels* *x862-tail-label*))))))
    8648       (x862-call-fn seg vreg xfer -2 arglist spread-p)))))
     8635          (! jump (aref *backend-labels* *x862-tail-label*))))
     8636      (x862-call-fn seg vreg xfer -2 arglist spread-p))))
    86498637
    86508638
Note: See TracChangeset for help on using the changeset viewer.