Changeset 7215


Ignore:
Timestamp:
Sep 14, 2007, 5:07:09 AM (12 years ago)
Author:
rme
Message:

x8664::temp0 -> *x862-temp0*
x8664::fname -> *x862-fname*

File:
1 edited

Legend:

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

    r7214 r7215  
    179179(defvar *x862-arg-y* nil)
    180180(defvar *x862-temp0* nil)
     181(defvar *x862-fname* nil)
    181182
    182183(declaim (fixnum *x862-vstack* *x862-cstack*))
     
    463464           (*x862-temp0* (target-arch-case (:x8632 x8632::temp0)
    464465                                           (:x8664 x8664::temp0)))
     466           (*x862-fname* (target-arch-case (:x8632 x8632::fname)
     467                                           (:x8664 x8664::fname)))
    465468           
    466469
     
    14181421                (x862-store-immediate seg form target)))))
    14191422        (if (and (listp form) *load-time-eval-token* (eq (car form) *load-time-eval-token*))
    1420           (x862-store-immediate seg form ($ x8664::temp0))))
     1423          (x862-store-immediate seg form ($ *x862-temp0*))))
    14211424      (^))))
    14221425
     
    17541757        (if constidx
    17551758          (multiple-value-setq (src val-reg)
    1756             (x862-two-targeted-reg-forms seg array ($ x8664::temp0) new val-reg))
     1759            (x862-two-targeted-reg-forms seg array ($ *x862-temp0*) new val-reg))
    17571760          (multiple-value-setq (src unscaled-i unscaled-j val-reg)
    17581761            (if needs-memoization
    17591762              (progn
    17601763                (x862-four-targeted-reg-forms seg
    1761                                               array ($ x8664::temp0)
     1764                                              array ($ *x862-temp0*)
    17621765                                              i ($ x8664::arg_x)
    17631766                                              j ($ *x862-arg-y*)
    17641767                                              new val-reg)
    1765                 (values ($ x8664::temp0) ($ x8664::arg_x) ($ *x862-arg-y*) ($ *x862-arg-z*)))
     1768                (values ($ *x862-temp0*) ($ x8664::arg_x) ($ *x862-arg-y*) ($ *x862-arg-z*)))
    17661769              (x862-four-untargeted-reg-forms seg
    1767                                               array ($ x8664::temp0)
     1770                                              array ($ *x862-temp0*)
    17681771                                              i ($ x8664::arg_x)
    17691772                                              j ($ *x862-arg-y*)
     
    18281831        (if constidx
    18291832          (multiple-value-setq (src val-reg)
    1830             (x862-two-targeted-reg-forms seg array ($ x8664::temp0) new val-reg))
     1833            (x862-two-targeted-reg-forms seg array ($ *x862-temp0*) new val-reg))
    18311834          (progn
    18321835            (setq src ($ x8664::temp1)
    1833                   unscaled-i ($ x8664::temp0)
     1836                  unscaled-i ($ *x862-temp0*)
    18341837                  unscaled-j ($ x8664::arg_x)
    18351838                  unscaled-k ($ *x862-arg-y*))
     
    18381841             (x862-one-untargeted-reg-form seg array ($ *x862-arg-z*)))
    18391842            (x862-four-targeted-reg-forms seg
    1840                                           i ($ x8664::temp0)
     1843                                          i ($ *x862-temp0*)
    18411844                                          j ($ x8664::arg_x)
    18421845                                          k ($ *x862-arg-y*)
     
    19451948        (multiple-value-setq (src unscaled-i unscaled-j unscaled-k)
    19461949          (x862-four-untargeted-reg-forms seg
    1947                                            array x8664::temp0
     1950                                           array *x862-temp0*
    19481951                                           i x8664::arg_x
    19491952                                           j *x862-arg-y*
     
    25702573           (expression-p (or (typep fn 'lreg) (and (fixnump fn) (not label-p))))
    25712574           (callable (or symp lfunp label-p))
    2572            (destreg (if symp ($ x8664::fname) (unless label-p ($ x8664::temp0))))
     2575           (destreg (if symp ($ *x862-fname*) (unless label-p ($ *x862-temp0*))))
    25732576           (alternate-tail-call
    25742577            (and tail-p label-p *x862-tail-label* (eql nargs *x862-tail-nargs*) (not spread-p))))
     
    26062609        (if (not tail-p)
    26072610          (if (x862-mvpass-p xfer)
    2608             (let* ((call-reg (if symp ($ x8664::fname) ($ x8664::temp0))))
     2611            (let* ((call-reg (if symp ($ *x862-fname*) ($ *x862-temp0*))))
    26092612              (unless mvpass-label (error "bug: no label for mvpass"))
    26102613              (if label-p
     
    26482651                  (unless (or label-p a-reg) (x862-store-immediate seg func destreg))
    26492652                  (when label-p
    2650                     (x862-copy-register seg x8664::temp0 x8664::fn))
     2653                    (x862-copy-register seg *x862-temp0* x8664::fn))
    26512654
    26522655                  (cond ((or spread-p (null nargs))
     
    48624865            (! recover-values-for-mvcall)
    48634866            (x862-close-undo)
    4864             (x862-temp-pop-node seg x8664::temp0)
    4865             (x862-invoke-fn seg x8664::temp0 nil nil xfer label)))
     4867            (x862-temp-pop-node seg *x862-temp0*)
     4868            (x862-invoke-fn seg *x862-temp0* nil nil xfer label)))
    48664869        (unless recursive-p
    48674870          (if mv-p
     
    51035106           (vtotal numreq)
    51045107           (old-top *x862-top-vstack-lcell*)
    5105            (argreg ($ x8664::temp0))
     5108           (argreg ($ *x862-temp0*))
    51065109           (keyvectreg ($ x8664::arg_x))
    51075110           (doadlword (dpb nkeys (byte 8 16) (dpb numopt (byte 8 8) (dpb numreq (byte 8 0) 0 )))))
     
    77267729          (dolist (ref fwd-refs)
    77277730            (let ((ea (var-ea (pop ref))))
    7728               (x862-addrspec-to-reg seg ea x8664::temp0)
     7731              (x862-addrspec-to-reg seg ea *x862-temp0*)
    77297732              (dolist (r ref)
    77307733                (let* ((v-ea (var-ea (cdr r))))
    77317734                  (let* ((val-reg (if (eq v-ea ea)
    7732                                     x8664::temp0
     7735                                    *x862-temp0*
    77337736                                    (progn
    77347737                                      (x862-addrspec-to-reg seg v-ea x8664::temp1)
    77357738                                      x8664::temp1))))
    7736                     (! set-closure-forward-reference val-reg x8664::temp0 (car r)))))))
     7739                    (! set-closure-forward-reference val-reg *x862-temp0* (car r)))))))
    77377740          (x862-undo-body seg vreg xfer body old-stack)
    77387741          (dolist (var real-vars)
     
    80068009          (t
    80078010           (x862-four-targeted-reg-forms seg
    8008                                          arr ($ x8664::temp0)
     8011                                         arr ($ *x862-temp0*)
    80098012                                         i ($ x8664::arg_x)
    80108013                                         j ($ *x862-arg-y*)
     
    80438046          (t
    80448047           (x862-four-targeted-reg-forms seg
    8045                                          arr ($ x8664::temp0)
     8048                                         arr ($ *x862-temp0*)
    80468049                                         i ($ x8664::arg_x)
    80478050                                         j ($ *x862-arg-y*)
     
    80848087           (x862-push-register seg (x862-one-untargeted-reg-form seg arr ($ *x862-arg-z*)))
    80858088           (x862-four-targeted-reg-forms seg
    8086                                          i ($ x8664::temp0)
     8089                                         i ($ *x862-temp0*)
    80878090                                         j ($ x8664::arg_x)
    80888091                                         k ($ *x862-arg-y*)
     
    81338136      (x862-vset seg vreg xfer type-keyword uvector index newval (unless *x862-reckless* (nx-lookup-target-uvector-subtag type-keyword)))
    81348137      (progn
    8135         (x862-four-targeted-reg-forms seg subtag ($ x8664::temp0) uvector ($ x8664::arg_x) index ($ *x862-arg-y*) newval ($ *x862-arg-z*))
     8138        (x862-four-targeted-reg-forms seg subtag ($ *x862-temp0*) uvector ($ x8664::arg_x) index ($ *x862-arg-y*) newval ($ *x862-arg-z*))
    81368139        (! subtag-misc-set)
    81378140        (when vreg (<- ($ *x862-arg-z*)))
Note: See TracChangeset for help on using the changeset viewer.