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

[Frode Vatvedt Fjeld]

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

Modified Files:
	procfs-image.lisp 
Log Message:
Mostly minor tweaks to the movitz-image structures.. ie. some naming
changes etc.

Date: Fri Aug  6 07:43:51 2004
Author: ffjeld

Index: movitz/procfs-image.lisp
diff -u movitz/procfs-image.lisp:1.13 movitz/procfs-image.lisp:1.14
--- movitz/procfs-image.lisp:1.13	Wed Jul 28 17:00:59 2004
+++ movitz/procfs-image.lisp	Fri Aug  6 07:43:51 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.13 2004/07/29 00:00:59 ffjeld Exp $
+;;;; $Id: procfs-image.lisp,v 1.14 2004/08/06 14:43:51 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -195,15 +195,16 @@
 	   (typecase movitz-name
 	     (null
 	      (write-string "?")
-	      (let* ((r (stack-frame-return-address stack-frame))
-		     (eax (get-word (+ (* 4 (interrupt-frame-index :eax)) stack-frame)))
+	      (let* ((eax (get-word (+ (* 4 (interrupt-frame-index :eax)) stack-frame)))
 		     (ecx (get-word (+ (* 4 (interrupt-frame-index :ecx)) stack-frame)))
+		     (edx (get-word (+ (* 4 (interrupt-frame-index :edx)) stack-frame)))
 		     (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))))
-		(when r (format t "#x~X (ret #x~X {EAX: #x~X, ECX: #x~X, EDI: #x~X, EIP: #x~X, exception ~D})"
-				stack-frame
-				r eax ecx edi eip exception))))
+		(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)))
 	     (movitz-symbol
 	      (let ((name (movitz-print movitz-name)))
 		(when print-frames