Commit b36d61aa authored by Frode Vatvedt Fjeld's avatar Frode Vatvedt Fjeld

Some backtrace tweaks.

parent 50e69a91
......@@ -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.21 2004/11/23 16:11:31 ffjeld Exp $
;;;; $Id: procfs-image.lisp,v 1.22 2005/01/04 16:56:44 ffjeld Exp $
;;;;
;;;;------------------------------------------------------------------
......@@ -165,7 +165,8 @@
(get-word stack-frame))
(defun stack-frame-funobj (stack-frame)
(when (zerop (ldb (byte 2 0) stack-frame))
(when (and (plusp stack-frame)
(zerop (ldb (byte 2 0) stack-frame)))
(let ((x (movitz-word (get-word (- stack-frame 4)))))
(and (typep x 'movitz-funobj) x))))
......@@ -196,6 +197,7 @@
(image-register32 *image* :esi))
(let ((*print-length* 20))
(loop for stack-frame = (current-stack-frame) then (previous-stack-frame stack-frame)
while (plusp stack-frame)
unless (zerop (mod stack-frame 4))
do (format t "[frame #x~8,'0x]" stack-frame)
(loop-finish)
......@@ -228,7 +230,9 @@
(debug-get-object (get-word (+ stack-frame -12)) spartan)))
(when print-returns
(format t " (#x~X)" (stack-frame-return-address stack-frame)))))
(t (write (movitz-print movitz-name)))))
(t (when print-frames
(format t "~S " (truncate stack-frame 4)))
(write (movitz-print movitz-name)))))
do (format t "~& => ")))
(values))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment