Changeset 8887


Ignore:
Timestamp:
Mar 25, 2008, 7:38:46 PM (11 years ago)
Author:
rme
Message:

x862-allocate-global-registers: always return (values 0 nil) on x8632

x862-lambda: now that %imm0 isn't %nargs, use %imm0 for the count of opt args
when using ! opt-supplied-p.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/compiler/X86/x862.lisp

    r8876 r8887  
    757757  (make-uarray-1 subtype size t 0 nil nil nil nil t nil))
    758758
     759;;; xxx x8632 changes?
    759760(defun x862-fixup-fwd-refs (afunc)
    760761  (dolist (f (afunc-inner-functions afunc))
     
    802803                             (if start-p 'start 'end) sym)))
    803804                  (target-arch-case
    804                    (:x8632 x8632::fulltag-misc) ;xxx
     805                   (:x8632 x8632::fulltag-misc) ;xxx?
    805806                   (:x8664 x8664::fulltag-function)))))
    806807          (destructuring-bind (var sym startlab endlab) info
     
    894895;;; and to simple lexical variables.
    895896(defun x862-allocate-global-registers (fcells vcells all-vars no-regs)
    896   (if no-regs
     897  (if (or no-regs (target-arch-case (:x8632 t)))
    897898    (progn
    898899      (dolist (c fcells) (%rplacd c nil))
     
    907908            (n 0 (1+ n))
    908909            (registers (target-arch-case
    909                         (:x8632 ())
     910                        (:x8632 (error "no nvrs on x8632"))
    910911                        (:x8664
    911912                         (list x8664::save0 x8664::save1 x8664::save2 x8664::save3))))
     
    60386039                        ((= 2 num-opt)
    60396040                         (! two-opt-supplied-p))
    6040                         (t
    6041                          (target-arch-case
    6042                           (:x8664 (x862-lri seg *x862-imm0*
    6043                                             (ash num-opt *x862-target-fixnum-shift*)))
    6044                           (:x8632 (x862-lri seg *x862-arg-z*
    6045                                             (ash num-opt *x862-target-fixnum-shift*))))
     6041                        (t
     6042                         (x862-lri seg *x862-imm0*
     6043                                   (ash num-opt *x862-target-fixnum-shift*))
    60466044                         (! opt-supplied-p))))
    60476045                (let* ((nwords-vpushed (+ num-fixed
Note: See TracChangeset for help on using the changeset viewer.