Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv7639
Modified Files: procfs-image.lisp Log Message: Have with-bochs-image copy the ds-segment etc. from *image*.
Date: Tue Nov 23 17:11:31 2004 Author: ffjeld
Index: movitz/procfs-image.lisp diff -u movitz/procfs-image.lisp:1.20 movitz/procfs-image.lisp:1.21 --- movitz/procfs-image.lisp:1.20 Fri Nov 12 15:41:10 2004 +++ movitz/procfs-image.lisp Tue Nov 23 17:11:31 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.20 2004/11/12 14:41:10 ffjeld Exp $ +;;;; $Id: procfs-image.lisp,v 1.21 2004/11/23 16:11:31 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -72,6 +72,12 @@ (pid (bochs-parameter :pid ,path))) (procfs:with-procfs-attached (,procfs-var pid :direction :io) (let ((,image-var (make-instance 'bochs-image + :ds-segment-base (if (boundp '*previous-image*) + (image-ds-segment-base *previous-image*) + 0) + :cs-segment-base (if (boundp '*previous-image*) + (image-cs-segment-base *previous-image*) + 0) :pid pid :procfs ,procfs-var :stream (procfs:procfs-connection-mem-stream ,procfs-var)