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