Commit 9096c784 authored by Frode Vatvedt Fjeld's avatar Frode Vatvedt Fjeld

Changed format of dit-frames, reflect this in the procfs debugger too.

parent ea72564c
......@@ -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.16 2004/08/16 08:25:28 ffjeld Exp $
;;;; $Id: procfs-image.lisp,v 1.17 2004/08/23 13:46:18 ffjeld Exp $
;;;;
;;;;------------------------------------------------------------------
......@@ -167,8 +167,7 @@
(defun interrupt-frame-index (name)
(- 5 (position name
'(nil :eflags :eip :error-code :exception :ebp nil
:ecx :eax :edx :ebx :esi :edi))))
(symbol-value 'muerte::+dit-frame-map+))))
(defun debug-get-object (word spartan)
(if spartan
......@@ -202,7 +201,8 @@
(edi (get-word (+ (* 4 (interrupt-frame-index :edi)) stack-frame)))
(eip (get-word (+ (* 4 (interrupt-frame-index :eip)) stack-frame)))
(esi (get-word (+ (* 4 (interrupt-frame-index :esi)) stack-frame)))
(exception (get-word (+ (* 4 (interrupt-frame-index :exception)) stack-frame))))
(exception (get-word (+ (* 4 (interrupt-frame-index :exception-vector))
stack-frame))))
(format t "#x~X {EAX: #x~X, ECX: #x~X, EDX: #x~X, EDI: #x~X, ESI: #x~X, EIP: #x~X, exception ~D}"
stack-frame
eax ecx edx edi esi eip exception)))
......
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