Changeset 11715


Ignore:
Timestamp:
Feb 11, 2009, 4:39:11 AM (10 years ago)
Author:
rme
Message:

x8632 XP-ARGUMENT-LIST: don't assume that the xcf is on the top of the
stack. (encoded-gpr-macptr xp x8632::ebp) conveniently points to the
xcf, so use that.

(ticket:425)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/x86-error-signal.lisp

    r11251 r11715  
    5757             (if (eql nargs 2)
    5858               args
    59                (let ((sp (%inc-ptr (encoded-gpr-macptr xp x8632::esp)
     59               (let ((sp (%inc-ptr (encoded-gpr-macptr xp x8632::ebp)
    6060                                   (+ x8632::node-size x8632::xcf.size))))
    6161                 (dotimes (i (- nargs 2))
Note: See TracChangeset for help on using the changeset viewer.