[Openmcl-cvs-notifications] r11715 - /trunk/source/level-1/x86-error-signal.lisp

[rme at clozure.com]

Author: rme
Date: Tue Feb 10 23:39:11 2009
New Revision: 11715

Log:
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)

Modified:
    trunk/source/level-1/x86-error-signal.lisp

Modified: trunk/source/level-1/x86-error-signal.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/x86-error-signal.lisp (original)
+++ trunk/source/level-1/x86-error-signal.lisp Tue Feb 10 23:39:11 2009
@@ -56,7 +56,7 @@
 	   (let ((args (list arg-y arg-z)))
 	     (if (eql nargs 2)
 	       args
-	       (let ((sp (%inc-ptr (encoded-gpr-macptr xp x8632::esp)
+	       (let ((sp (%inc-ptr (encoded-gpr-macptr xp x8632::ebp)
 				   (+ x8632::node-size x8632::xcf.size))))
 		 (dotimes (i (- nargs 2))
 		   (push (%get-object sp (* i x8632::node-size)) args))