[movitz-cvs] CVS update: movitz/procfs-image.lisp

[Frode Vatvedt Fjeld]

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 at 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)))