[movitz-cvs] CVS update: movitz/losp/x86-pc/debugger.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/x86-pc
In directory common-lisp.net:/tmp/cvs-serv32161

Modified Files:
	debugger.lisp 
Log Message:
Change from interrupt-frame-ref to dit-frame-ref, etc.

Date: Thu Aug 12 10:45:39 2004
Author: ffjeld

Index: movitz/losp/x86-pc/debugger.lisp
diff -u movitz/losp/x86-pc/debugger.lisp:1.20 movitz/losp/x86-pc/debugger.lisp:1.21
--- movitz/losp/x86-pc/debugger.lisp:1.20	Fri Aug  6 07:47:41 2004
+++ movitz/losp/x86-pc/debugger.lisp	Thu Aug 12 10:45:39 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Fri Nov 22 10:09:18 2002
 ;;;;                
-;;;; $Id: debugger.lisp,v 1.20 2004/08/06 14:47:41 ffjeld Exp $
+;;;; $Id: debugger.lisp,v 1.21 2004/08/12 17:45:39 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -472,7 +472,7 @@
 	     (typecase funobj
 	       (integer
 		(let* ((interrupt-frame stack-frame)
-		       (funobj (interrupt-frame-ref :esi :lisp 0 interrupt-frame)))
+		       (funobj (dit-frame-ref :esi :lisp 0 interrupt-frame)))
 		  (if (and conflate-interrupts conflate
 			   ;; When the interrupted function has a stack-frame, conflate it.
 			   (typep funobj 'function)
@@ -482,9 +482,9 @@
 		      (incf count)
 		      (print-leadin stack-frame count conflate-count)
 		      (setf conflate-count 0)
-		      (let ((exception (interrupt-frame-ref :exception :unsigned-byte32
+		      (let ((exception (dit-frame-ref :exception-vector :unsigned-byte32
 							    0 interrupt-frame))
-			    (eip (interrupt-frame-ref :eip :unsigned-byte32
+			    (eip (dit-frame-ref :eip :unsigned-byte32
 						      0  interrupt-frame)))
 			(typecase funobj
 			  (function