[movitz-cvs] CVS update: movitz/procfs-image.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv8681

Modified Files:
	procfs-image.lisp 
Log Message:
Somewhat improved backtrace output.

Date: Fri Nov 12 15:41:10 2004
Author: ffjeld

Index: movitz/procfs-image.lisp
diff -u movitz/procfs-image.lisp:1.19 movitz/procfs-image.lisp:1.20
--- movitz/procfs-image.lisp:1.19	Wed Sep 15 12:22:52 2004
+++ movitz/procfs-image.lisp	Fri Nov 12 15:41:10 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Fri Aug 24 11:39:37 2001
 ;;;;                
-;;;; $Id: procfs-image.lisp,v 1.19 2004/09/15 10:22:52 ffjeld Exp $
+;;;; $Id: procfs-image.lisp,v 1.20 2004/11/12 14:41:10 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -194,7 +194,7 @@
 	do (let ((movitz-name (funobj-name (stack-frame-funobj stack-frame))))
 	     (typecase movitz-name
 	       (null
-		(write-string "?")
+		;; (write-string "?")
 		(let* ((eax (get-word (+ (* 4 (interrupt-frame-index :eax)) stack-frame)))
 		       (ebx (get-word (+ (* 4 (interrupt-frame-index :ebx)) stack-frame)))
 		       (ecx (get-word (+ (* 4 (interrupt-frame-index :ecx)) stack-frame)))
@@ -205,12 +205,12 @@
 		       (exception (get-word (+ (* 4 (interrupt-frame-index :exception-vector))
 					       stack-frame))))
 		  (format t "#x~X {EAX: #x~X, EBX: #x~X, ECX: #x~X, EDX: #x~X, EDI: #x~X, ESI: #x~X, EIP: #x~X, exception ~D}"
-			  stack-frame
+			  (truncate stack-frame 4)
 			  eax ebx ecx edx edi esi eip exception)))
 	       (movitz-symbol
 		(let ((name (movitz-print movitz-name)))
 		  (when print-frames
-		    (format t "~S " stack-frame))
+		    (format t "~S " (truncate stack-frame 4)))
 		  (when (string= name 'toplevel-function)
 		    (loop-finish))
 		  (when reqs