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

[Frode Vatvedt Fjeld]

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

Modified Files:
	procfs-image.lisp 
Log Message:
Fixed the atomically stuff to mostly working.

Date: Tue Jun  1 08:16:54 2004
Author: ffjeld

Index: movitz/procfs-image.lisp
diff -u movitz/procfs-image.lisp:1.5 movitz/procfs-image.lisp:1.6
--- movitz/procfs-image.lisp:1.5	Wed Apr 14 05:11:32 2004
+++ movitz/procfs-image.lisp	Tue Jun  1 08:16:54 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.5 2004/04/14 12:11:32 ffjeld Exp $
+;;;; $Id: procfs-image.lisp,v 1.6 2004/06/01 15:16:54 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -177,7 +177,7 @@
   (loop with unknown-counter = 0
       for stack-frame = (current-stack-frame) then (previous-stack-frame stack-frame)
       unless (zerop (mod stack-frame 4))
-      do (format t "[#x~8,'0x]" stack-frame)
+      do (format t "[frame #x~8,'0x]" stack-frame)
       and do (loop-finish)
       do (let ((movitz-name (funobj-name (stack-frame-funobj stack-frame))))
 	   (typecase movitz-name
@@ -191,7 +191,8 @@
 		     (edi (get-word (+ (* 4 (interrupt-frame-index :edi)) stack-frame)))
 		     (eip (get-word (+ (* 4 (interrupt-frame-index :eip)) stack-frame)))
 		     (exception (get-word (+ (* 4 (interrupt-frame-index :exception)) stack-frame))))
-		(when r (format t " (ret #x~X {EAX: #x~X, ECX: #x~X, EDI: #x~X, EIP: #x~X, exception ~D})"
+		(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))))
 	     (movitz-symbol
 	      (let ((name (movitz-print movitz-name)))