[Openmcl-cvs-notifications] r11716 - /release/1.3/source/level-1/x86-error-signal.lisp

[rme at clozure.com]

Author: rme
Date: Wed Feb 11 16:20:13 2009
New Revision: 11716

Log:
Merge r11715 from trunk

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

Modified: release/1.3/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
--- release/1.3/source/level-1/x86-error-signal.lisp (original)
+++ release/1.3/source/level-1/x86-error-signal.lisp Wed Feb 11 16:20:13 20=
09
@@ -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))