Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory common-lisp.net:/tmp/cvs-serv22179

Modified Files: debugger.lisp Log Message: Refer to stack-slots with two values: a stack and an frame. If stack is NIL, frame is the location (in the current stack) of the stack-slot. If stack is a vector, frame is an index into this vector.

Date: Thu Sep 2 11:41:19 2004 Author: ffjeld

Index: movitz/losp/x86-pc/debugger.lisp diff -u movitz/losp/x86-pc/debugger.lisp:1.22 movitz/losp/x86-pc/debugger.lisp:1.23 --- movitz/losp/x86-pc/debugger.lisp:1.22 Mon Aug 23 15:58:41 2004 +++ movitz/losp/x86-pc/debugger.lisp Thu Sep 2 11:41:18 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Fri Nov 22 10:09:18 2002 ;;;; -;;;; $Id: debugger.lisp,v 1.22 2004/08/23 13:58:41 ffjeld Exp $ +;;;; $Id: debugger.lisp,v 1.23 2004/09/02 09:41:18 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -499,7 +499,7 @@ (function (let ((delta (code-vector-offset (funobj-code-vector funobj) eip))) (if delta - (format t "{Exception ~D in ~W at PC offset ~D." + (format t "{Exception ~D in ~W at PC offset ~D.}" exception (funobj-name funobj) delta) (format t "{Exception ~D in ~W at EIP=#x~X.}" exception (funobj-name funobj) eip))))