Steel Bank Common Lisp

Update of /cvsroot/sbcl/sbcl/contrib/sb-introspect
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv14510/contrib/sb-introspect

Modified Files:
	introspect.lisp test-driver.lisp 
Log Message:
1.0.43.8: ALLOCATION-INFORMATION also provides the actual page

 Important for figuring out why garbage is retained and why a page
 keeps getting dirty.


Index: introspect.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-introspect/introspect.lisp,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- introspect.lisp	19 Sep 2010 12:41:59 -0000	1.8
+++ introspect.lisp	30 Sep 2010 08:33:40 -0000	1.9
@@ -787,6 +787,15 @@
     even if :PINNED in NIL if the GC has not had the need to mark the the page
     as pinned. (GENCGC and :SPACE :DYNAMIC only.)
 
+  :WRITE-PROTECTED
+    Indicates that the page on which the object starts is write-protected,
+    which indicates for :BOXED objects that it hasn't been written to since
+    the last GC of its generation. (GENCGC and :SPACE :DYNAMIC only.)
+
+  :PAGE
+    The index of the page the object resides on. (GENGC and :SPACE :DYNAMIC
+    only.)
+
 For :STACK objects secondary value is the thread on whose stack the object is
 allocated.
 
@@ -834,7 +843,8 @@
                                    :write-protected (logbitp 0 flags)
                                    :boxed (logbitp 2 flags)
                                    :pinned (logbitp 5 flags)
-                                   :large (logbitp 6 flags)))))
+                                   :large (logbitp 6 flags)
+                                   :page index))))
                        (list :space space))
                    #-gencgc
                    (list :space space))))))

Index: test-driver.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-introspect/test-driver.lisp,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -d -r1.27 -r1.28
--- test-driver.lisp	7 Apr 2010 14:56:16 -0000	1.27
+++ test-driver.lisp	30 Sep 2010 08:33:40 -0000	1.28
@@ -293,7 +293,7 @@
          ;; FIXME: This is the canonical GENCGC result. On PPC we sometimes get
          ;; :LARGE T, which doesn't seem right -- but ignore that for now.
          '(:space :dynamic :generation 6 :write-protected t :boxed t :pinned nil :large nil)
-         :ignore #+ppc '(:large) #-ppc nil)
+         :ignore (list :page #+ppc :large))
     #-gencgc
     (tai :cons :heap
          ;; FIXME: Figure out what's the right cheney-result. SPARC at least