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@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