[movitz-cvs] CVS update: movitz/losp/x86-pc/debugger.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	debugger.lisp 
Log Message:
Minor edits.

Date: Sat Sep 25 17:53:25 2004
Author: ffjeld

Index: movitz/losp/x86-pc/debugger.lisp
diff -u movitz/losp/x86-pc/debugger.lisp:1.25 movitz/losp/x86-pc/debugger.lisp:1.26
--- movitz/losp/x86-pc/debugger.lisp:1.25	Wed Sep 22 20:00:55 2004
+++ movitz/losp/x86-pc/debugger.lisp	Sat Sep 25 17:53:25 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Fri Nov 22 10:09:18 2002
 ;;;;                
-;;;; $Id: debugger.lisp,v 1.25 2004/09/22 18:00:55 ffjeld Exp $
+;;;; $Id: debugger.lisp,v 1.26 2004/09/25 15:53:25 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -553,7 +553,10 @@
 					     exception
 					     primitive-name
 					     (code-vector-offset primitive-vector eip)))))))
-			    (t (format t "DIT Exception ~D with ESI=~Z and EIP=#x~X."
+			    (t ;; This should in principle never happen, but since this
+			     ;; is a debugger, making this an error or break would probably
+			     ;; just be a nuisance.
+			     (format t "DIT Exception ~D. Unable to determine current function (!) with ESI=~Z and EIP=#x~X."
 				       exception funobj eip)))))))))
 	       (function
 		(let ((name (funobj-name funobj)))