Changeset 8690


Ignore:
Timestamp:
Mar 8, 2008, 7:42:04 AM (12 years ago)
Author:
rme
Message:

Uh, remember to use (single-value-return n) in functions that take args
on the stack.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/level-0/X86/X8632/x8632-misc.lisp

    r8216 r8690  
    287287    (restore-simple-frame))
    288288  (mark-as-node temp1)
    289   (single-value-return))
     289  (single-value-return 3))
    290290
    291291(defx8632lapfunction %%set-signed-longlong ((ptr 4)
     
    305305    (restore-simple-frame))
    306306  (mark-as-node temp1)
    307   (single-value-return))
     307  (single-value-return 3))
    308308
    309309(defx8632lapfunction interrupt-level ()
     
    369369  (call-subprim .SPstore-node-conditional)
    370370  (restore-simple-frame)
    371   (single-value-return 3))
     371  (single-value-return 4))
    372372
    373373(defx8632lapfunction %store-immediate-conditional ((offset 8)
     
    485485  (cmpl ($ '-1) (@ x8632::lock._value (% lock)))
    486486  (jne @still-owner)
    487   (movsd (% fpzero) (@ x8632::lock.writer (% lock)))
     487  (movss (% fpzero) (@ x8632::lock.writer (% lock)))
    488488  @still-owner
    489489  (addl ($ '1) (@ x8632::lock._value (% lock)))
     
    507507    (jne @again))
    508508  (mark-as-node temp0)
    509   (single-value-return))
     509  (single-value-return 3))
    510510
    511511(defx8632lapfunction %atomic-incf-ptr ((ptr arg_z))
     
    614614    (mark-as-node temp0))
    615615  (mark-as-node temp1)
    616   (single-value-return))
     616  (single-value-return 3))
    617617
    618618(defx86lapfunction %ptr-store-fixnum-conditional ((ptr 4) #|(ra 0)|# (expected-oldval arg_y) (newval arg_z))
    619619  (mark-as-imm temp0)
    620620  (let ((address temp0))
    621     (macptr-ptr ptr address)
     621    (movl (@ ptr (% esp)) (% temp1))
     622    (macptr-ptr temp1 address)
    622623    @again
    623624    (movl (@ (% address)) (% imm0))
     
    630631    (movl (% imm0) (% arg_z)))
    631632  (mark-as-node temp0)
    632   (single-value-return))
     633  (single-value-return 3))
    633634
    634635(defx8632lapfunction %macptr->dead-macptr ((macptr arg_z))
     
    669670    (lea (@ x8632::fulltag-misc (% imm0)) (% arg_z))) ; tag it, return it
    670671  (mark-as-node temp0)
    671   (single-value-return))
     672  (single-value-return 3))
    672673
    673674(defx8632lapfunction %%make-disposable ((ptr arg_y) (vector arg_z))
Note: See TracChangeset for help on using the changeset viewer.