Changeset 9857


Ignore:
Timestamp:
Jul 1, 2008, 6:51:20 AM (11 years ago)
Author:
rme
Message:

Account for return address on stack in functions TRUE and FALSE.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/X86/x86-utils.lisp

    r8356 r9857  
    501501
    502502(defx86lapfunction true ()
     503  (pop (% ra0))
    503504  (subq ($ '3) (% nargs.q))
    504505  (leaq (@ '2 (% rsp) (% nargs.q)) (% imm0))
    505506  (cmovaq (% imm0) (% rsp))
    506507  (movl ($ x8664::t-value) (%l arg_z))
     508  (push (% ra0))
    507509  (single-value-return))
    508510
    509511(defx86lapfunction false ()
     512  (pop (% ra0))
    510513  (subq ($ '3) (% nargs.q))
    511514  (leaq (@ '2 (% rsp) (% nargs.q)) (% imm0))
    512515  (cmovaq (% imm0) (% rsp))
    513516  (movl ($ x8664::nil) (%l arg_z))
     517  (push (% ra0))
    514518  (single-value-return))
    515519
Note: See TracChangeset for help on using the changeset viewer.