Changeset 8998


Ignore:
Timestamp:
Apr 4, 2008, 4:18:45 AM (11 years ago)
Author:
rme
Message:

Update TRUE and FALSE to use the correct register for nargs.

File:
1 edited

Legend:

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

    r8746 r8998  
    320320  (single-value-return))
    321321
    322 ;;; N.B. nargs is the same register as imm0
    323322(defx8632lapfunction true ()
    324   (subl ($ '2) (% imm0))
    325   (leal (@ '2 (% esp) (% imm0)) (% imm0))
     323  (subl ($ '2) (% nargs))
     324  (leal (@ '2 (% esp) (% nargs)) (% imm0))
    326325  (cmoval (% imm0) (% esp))
    327326  (movl ($ x8632::t-value) (% arg_z))
     
    329328
    330329(defx8632lapfunction false ()
    331   (subl ($ '2) (% imm0))
    332   (leal (@ '2 (% esp) (% imm0)) (% imm0))
     330  (subl ($ '2) (% nargs))
     331  (leal (@ '2 (% esp) (% nargs)) (% imm0))
    333332  (cmoval (% imm0) (% esp))
    334333  (movl ($ x8632::nil-value) (% arg_z))
Note: See TracChangeset for help on using the changeset viewer.