Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv11810
Modified Files: procfs-image.lisp Log Message: Minor fix for backtrace.
Date: Sat Jun 5 20:02:45 2004 Author: ffjeld
Index: movitz/procfs-image.lisp diff -u movitz/procfs-image.lisp:1.6 movitz/procfs-image.lisp:1.7 --- movitz/procfs-image.lisp:1.6 Tue Jun 1 08:16:54 2004 +++ movitz/procfs-image.lisp Sat Jun 5 20:02:45 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.6 2004/06/01 15:16:54 ffjeld Exp $ +;;;; $Id: procfs-image.lisp,v 1.7 2004/06/06 03:02:45 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -174,16 +174,13 @@ ;; (search-image-funobj (image-register32 *image* :eip)) (format t "~&Current ESI: #x~X.~%" (image-register32 *image* :esi)) - (loop with unknown-counter = 0 - for stack-frame = (current-stack-frame) then (previous-stack-frame stack-frame) + (loop for stack-frame = (current-stack-frame) then (previous-stack-frame stack-frame) unless (zerop (mod stack-frame 4)) do (format t "[frame #x~8,'0x]" stack-frame) - and do (loop-finish) + (loop-finish) do (let ((movitz-name (funobj-name (stack-frame-funobj stack-frame)))) (typecase movitz-name (null - (when (< 10 (incf unknown-counter)) - (return-from backtrace nil)) (write-string "?") (let* ((r (stack-frame-return-address stack-frame)) (eax (get-word (+ (* 4 (interrupt-frame-index :eax)) stack-frame)))