1.0.10.25: Build fix, add a missing bit of hashtable rewrite.

diff --git a/src/runtime/purify.c b/src/runtime/purify.c
index aa809b9..ec43c3a 100644 (file)
--- a/src/runtime/purify.c
+++ b/src/runtime/purify.c
@@ -34,6 +34,7 @@
 #include "genesis/primitive-objects.h"
 #include "genesis/static-symbols.h"
 #include "genesis/layout.h"
+#include "genesis/hash-table.h"
 #include "gencgc.h"
 
 /* We don't ever do purification with GENCGC as of 1.0.5.*. There was
@@ -717,8 +718,9 @@ pscav(lispobj *addr, long nwords, boolean constant)
 
               case SIMPLE_VECTOR_WIDETAG:
                   if (HeaderValue(thing) == subtype_VectorValidHashing) {
-                    *addr = (subtype_VectorMustRehash << N_WIDETAG_BITS) |
-                        SIMPLE_VECTOR_WIDETAG;
+                    struct hash_table *hash_table =
+                        (struct hash_table *)native_pointer(((lispobj *)thing)[2]);
+                    hash_table->needs_rehash_p = T;
                   }
                 count = 2;
                 break;

diff --git a/version.lisp-expr b/version.lisp-expr
index 26ca1dd..0f1f523 100644 (file)
--- 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.10.24"
+"1.0.10.25"