Changeset 9123


Ignore:
Timestamp:
Apr 10, 2008, 5:42:33 AM (11 years ago)
Author:
rme
Message:

Don't try to use movapd instruction to clear memory on tstack, since the
tstack isn't always 16-byte aligned on x8632.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/compiler/X86/X8632/x8632-vinsns.lisp

    r9042 r9123  
    15071507  (movd (:%l tempb) (:%mmx x8632::stack-temp))
    15081508  :loop
    1509   (movapd (:%xmm x8632::fpzero) (:@ -16 (:%l tempb)))
     1509  (movsd (:%xmm x8632::fpzero) (:@ -8 (:%l tempb)))
    15101510  (subl (:$b x8632::dnode-size) (:%l tempb))
    15111511  (cmpl (:%l tempa) (:%l tempb))
     
    15251525  (movd (:@ (:%seg :rcontext) x8632::tcr.save-tsp) (:%mmx x8632::stack-temp))
    15261526  (movl (:@ (:%seg :rcontext) x8632::tcr.next-tsp) (:%l temp))
    1527   (movapd (:%xmm x8632::fpzero) (:@ (:%l temp)))
     1527  (movsd (:%xmm x8632::fpzero) (:@ (:%l temp)))
     1528  (movsd (:%xmm x8632::fpzero) (:@ x8632::dnode-size (:%l temp)))
    15281529  (movd (:%mmx x8632::stack-temp) (:@ (:%l temp)))
    15291530  (movl (:%l temp) (:@ (:%seg :rcontext) x8632::tcr.save-tsp)) 
     
    32253226(define-x8632-vinsn build-lexpr-frame (()
    32263227                                       ()
    3227                                        ((temp :imm)))
     3228                                       ((temp :imm)
     3229                                        (ra0 (:lisp #.x8632::ra0))))
    32283230  (movl (:@ (+ x8632::nil-value (x8632::%kernel-global 'x86::ret1valaddr)))
    32293231        (:%l temp))
    3230   (cmpl (:%l temp)
    3231         (:%l x8632::ra0))
     3232  (cmpl (:%l temp) (:%l ra0))
    32323233  (je :multiple)
    32333234  (pushl (:@ (+ x8632::nil-value (x8632::%kernel-global 'x86::lexpr-return1v))))
     
    37143715  (movd (:@ (:%seg :rcontext) x8632::tcr.save-tsp) (:%mmx x8632::stack-temp))
    37153716  (movl (:@ (:%seg :rcontext) x8632::tcr.next-tsp) (:%l temp))
    3716   (movapd (:%xmm x8632::fpzero) (:@ (:%l temp)))
     3717  (movsd (:%xmm x8632::fpzero) (:@ (:%l temp)))
     3718  (movsd (:%xmm x8632::fpzero) (:@ x8632::dnode-size (:%l temp)))
    37173719  (movd (:%mmx x8632::stack-temp) (:@ (:%l temp)))
    37183720  (movl (:%l temp) (:@ (:%seg :rcontext) x8632::tcr.save-tsp))
Note: See TracChangeset for help on using the changeset viewer.