Changeset 9821 for branches/ia32/level-0


Ignore:
Timestamp:
Jun 21, 2008, 11:39:19 PM (11 years ago)
Author:
rme
Message:

CCL:TRUE, CCL:FALSE: keep return address out of the way while
discarding stack args and reserved frame.

File:
1 edited

Legend:

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

    r9474 r9821  
    428428
    429429(defx8632lapfunction true ()
     430  (pop (% temp0))
    430431  (subl ($ '2) (% nargs))
    431432  (leal (@ '2 (% esp) (% nargs)) (% imm0))
    432433  (cmoval (% imm0) (% esp))
    433434  (movl ($ x8632::t-value) (% arg_z))
     435  (push (% temp0))
    434436  (single-value-return))
    435437
    436438(defx8632lapfunction false ()
     439  (pop (% temp0))
    437440  (subl ($ '2) (% nargs))
    438441  (leal (@ '2 (% esp) (% nargs)) (% imm0))
    439442  (cmoval (% imm0) (% esp))
    440443  (movl ($ x8632::nil-value) (% arg_z))
     444  (push (% temp0))
    441445  (single-value-return))
    442446
Note: See TracChangeset for help on using the changeset viewer.