Changeset 16772 for release


Ignore:
Timestamp:
Jul 7, 2016, 6:09:26 PM (3 years ago)
Author:
rme
Message:

Merge fix for ticket:1335 (r16675) to 1.11 release branch.

Closes ticket:1335.

Location:
release/1.11/source
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • release/1.11/source

  • release/1.11/source/compiler/X86/X8632/x8632-vinsns.lisp

    r16688 r16772  
    45734573
    45744574(define-x8632-vinsn double-float-negate (((reg :double-float))
    4575                                          ((reg :double-float)
    4576                                           (tmp :double-float)))
     4575                                         ((reg :double-float))
     4576                                         ((tmp :double-float)))
    45774577  (movsd (:@ (:^ :const) (:% x8632::fn)) (:%xmm tmp))
    45784578  (pxor (:%xmm tmp) (:%xmm reg))
     
    45844584
    45854585(define-x8632-vinsn single-float-negate (((reg :single-float))
    4586                                          ((reg :single-float)
    4587                                           (tmp :single-float)))
     4586                                         ((reg :single-float))
     4587                                         ((tmp :single-float)))
    45884588  (movss (:@ (:^ :const) (:% x8632::fn)) (:%xmm tmp))
    45894589  (pxor (:%xmm tmp) (:%xmm reg))
  • release/1.11/source/compiler/X86/X8664/x8664-vinsns.lisp

    r16688 r16772  
    49834983
    49844984(define-x8664-vinsn double-float-negate (((reg :double-float))
    4985                                          ((reg :double-float)
    4986                                           (tmp :double-float)))
    4987   (movsd (:@ (:^ :const) (:% x8664::fn)) (:%xmm tmp)) 
     4985                                         ((reg :double-float))
     4986                                         ((tmp :double-float)))
     4987  (movsd (:@ (:^ :const) (:% x8664::fn)) (:%xmm tmp))
    49884988  (pxor (:%xmm tmp) (:%xmm reg))
    49894989  (:uuo-section)
     
    49934993
    49944994(define-x8664-vinsn single-float-negate (((reg :single-float))
    4995                                          ((reg :single-float)
    4996                                           (tmp :single-float)))
     4995                                         ((reg :single-float))
     4996                                         ((tmp :single-float)))
    49974997  (movss (:@ (:^ :const) (:% x8664::fn)) (:%xmm tmp))
    49984998  (pxor (:%xmm tmp) (:%xmm reg))
  • release/1.11/source/compiler/X86/x862.lisp

    r16688 r16772  
    82508250    (progn
    82518251      (x862-one-targeted-reg-form seg form vreg)
    8252       (with-fp-target (vreg) (r2 :double-float)
    8253         (! double-float-negate vreg r2)))
     8252      (! double-float-negate vreg))
    82548253    (with-fp-target () (r1 :double-float)
    82558254      (setq r1 (x862-one-untargeted-reg-form seg form r1))
    8256       (with-fp-target (r1) (r2 :double-float)
    8257         (! double-float-negate r1 r2))
     8255      (! double-float-negate r1)
    82588256      (ensuring-node-target (target vreg)
    82598257        (x862-copy-register seg target r1))))
     
    82668264    (progn
    82678265      (x862-one-targeted-reg-form seg form vreg)
    8268       (with-fp-target (vreg) (r2 :single-float)
    8269         (! single-float-negate vreg r2)))
     8266      (! single-float-negate vreg))
    82708267    (with-fp-target () (r1 :single-float)
    82718268      (setq r1 (x862-one-untargeted-reg-form seg form r1))
    8272       (with-fp-target (r1) (r2 :single-float)
    8273         (! single-float-negate r1 r2))
     8269      (! single-float-negate r1)
    82748270      (ensuring-node-target (target vreg)
    82758271        (x862-copy-register seg target r1))))
Note: See TracChangeset for help on using the changeset viewer.