From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Wed, 12 Aug 2009 12:22:19 +0000 (+0000)
Subject: 1.0.30.46: SB-INTROSPECT test adjustment
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=0087e3226025e88956ad9c2c0cd5e99dbf991a85;p=sbcl.git

1.0.30.46: SB-INTROSPECT test adjustment

 * Fix ALLOCATION-INFORMATION test on PPC, and hopefully on SPARC as
   well. Thanks to Bruce O'Neel.
---

diff --git a/contrib/sb-introspect/test-driver.lisp b/contrib/sb-introspect/test-driver.lisp
index 0f381ca..3295ae6 100644
--- a/contrib/sb-introspect/test-driver.lisp
+++ b/contrib/sb-introspect/test-driver.lisp
@@ -255,10 +255,13 @@
   (multiple-value-bind (kind2 info2) (sb-introspect:allocation-information x)
     (unless (eq kind kind2)
       (error "wanted ~S, got ~S" kind kind2))
-    (when ignore
+    (when (not (null ignore))
       (setf info2 (copy-list info2))
       (dolist (key ignore)
-        (remf info2 key)))
+        (remf info2 key))
+      (setf info (copy-list info))
+      (dolist (key ignore)
+        (remf info key)))
     (equal info info2)))
 
 (deftest allocation-infromation.1
@@ -279,16 +282,13 @@
          ;; 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 :pinned nil :large nil)
-         :ignore #+ppc :large #-ppc nil)
+         :ignore #+ppc '(:large) #-ppc nil)
     #-gencgc
     (tai :cons :heap
-         ;; FIXME: Figure out what's the right cheney-result, and which platforms
-         ;; return something else. The SPARC version here is what we get there,
-         ;; but quite possibly that is the result on all non-GENCGC platforms.
-         #+sparc
-         '(:space :read-only)
-         #-sparc
-         '(:space :dynamic))
+         ;; FIXME: Figure out what's the right cheney-result. SPARC at least
+         ;; has exhibited both :READ-ONLY and :DYNAMIC, which seems wrong.
+         '()
+         :ignore '(:space))
   t)
 
 #+sb-thread
diff --git a/version.lisp-expr b/version.lisp-expr
index 502fad1..2e6b4eb 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.30.45"
+"1.0.30.46"