1.0.10.33: Lesson: Test before commit.
authorThiemo Seufer <ths@networkno.de>
Sat, 6 Oct 2007 21:53:45 +0000 (21:53 +0000)
committerThiemo Seufer <ths@networkno.de>
Sat, 6 Oct 2007 21:53:45 +0000 (21:53 +0000)
src/runtime/purify.c
version.lisp-expr

index ec43c3a..e033c7d 100644 (file)
@@ -719,7 +719,7 @@ pscav(lispobj *addr, long nwords, boolean constant)
               case SIMPLE_VECTOR_WIDETAG:
                   if (HeaderValue(thing) == subtype_VectorValidHashing) {
                     struct hash_table *hash_table =
-                        (struct hash_table *)native_pointer(((lispobj *)thing)[2]);
+                        (struct hash_table *)native_pointer(addr[2]);
                     hash_table->needs_rehash_p = T;
                   }
                 count = 2;
index 187b689..3913ebc 100644 (file)
@@ -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.10.32"
+"1.0.10.33"