Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv5363

Modified Files: procfs-image.lisp Log Message: Changed format of dit-frames, reflect this in the procfs debugger too.

Date: Mon Aug 30 16:59:23 2004 Author: ffjeld

Index: movitz/procfs-image.lisp diff -u movitz/procfs-image.lisp:1.17 movitz/procfs-image.lisp:1.18 --- movitz/procfs-image.lisp:1.17 Mon Aug 23 15:46:18 2004 +++ movitz/procfs-image.lisp Mon Aug 30 16:59:23 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.17 2004/08/23 13:46:18 ffjeld Exp $ +;;;; $Id: procfs-image.lisp,v 1.18 2004/08/30 14:59:23 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)))