Changeset 8261


Ignore:
Timestamp:
Jan 25, 2008, 2:29:56 AM (12 years ago)
Author:
rme
Message:

When target-arch is x8632, target %temp0 instead of %arg_x in a few more
places.

File:
1 edited

Legend:

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

    r8074 r8261  
    58205820(defun x862-ternary-builtin (seg vreg xfer name form1 form2 form3)
    58215821  (with-x86-local-vinsn-macros (seg)
    5822     (x862-three-targeted-reg-forms seg form1 ($ x8664::arg_x) form2 ($ *x862-arg-y*) form3 ($ *x862-arg-z*))
     5822    (x862-three-targeted-reg-forms seg form1 (target-arch-case
     5823                                              (:x8632 ($ x8632::temp0))
     5824                                              (:x8664 ($ x8664::arg_x)))
     5825                                              form2 ($ *x862-arg-y*)
     5826                                              form3 ($ *x862-arg-z*))
    58235827    (x862-fixed-call-builtin seg vreg xfer name (subprim-name->offset '.SPcallbuiltin3))))
    58245828
     
    64846488  (multiple-value-bind (src unscaled-idx char)
    64856489      (x862-three-untargeted-reg-forms seg
    6486                                        str x8664::arg_x
     6490                                       str (target-arch-case
     6491                                            (:x8632 x8632::temp0)
     6492                                            (:x8664 x8664::arg_x))
    64876493                                       idx *x862-arg-y*
    64886494                                       char *x862-arg-z*)
     
    67256731
    67266732(defx862 x862-uvset uvset (seg vreg xfer vector index value)
    6727   (x862-three-targeted-reg-forms seg vector ($ x8664::arg_x) index ($ *x862-arg-y*) value ($ *x862-arg-z*))
     6733  (x862-three-targeted-reg-forms seg
     6734                                 vector (target-arch-case
     6735                                         (:x8632 x8632::temp0)
     6736                                         (:x8664 x8664::arg_x))
     6737                                 index ($ *x862-arg-y*)
     6738                                 value ($ *x862-arg-z*))
    67286739  (! misc-set)
    67296740  (<- ($ *x862-arg-z*))
     
    84728483      (x862-vref seg vreg xfer type-keyword uvector index (unless *x862-reckless* (nx-lookup-target-uvector-subtag type-keyword)))
    84738484      (progn
    8474         (x862-three-targeted-reg-forms seg subtag ($ x8664::arg_x) uvector ($ *x862-arg-y*) index ($ *x862-arg-z*))
     8485        (x862-three-targeted-reg-forms seg
     8486                                       subtag (target-arch-case
     8487                                               (:x8632 ($ x8632::temp0))
     8488                                               (:x8664 ($ x8664::arg_x)))
     8489                                       uvector ($ *x862-arg-y*)
     8490                                       index ($ *x862-arg-z*))
    84758491        (! subtag-misc-ref)
    84768492        (when vreg (<- ($ *x862-arg-z*)))
Note: See TracChangeset for help on using the changeset viewer.