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

[Frode Vatvedt Fjeld]

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