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

Somewhat improved backtrace output.

parent 4aefc89d
......@@ -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.18 2004/08/30 14:59:23 ffjeld Exp $
;;;; $Id: procfs-image.lisp,v 1.19 2004/09/15 10:22:52 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
......
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