From: Thiemo S. <th...@us...> - 2007-10-05 00:55:33
|
Update of /cvsroot/sbcl/sbcl/src/runtime In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv3153/src/runtime Modified Files: purify.c Log Message: 1.0.10.25: Build fix, add a missing bit of hashtable rewrite. Index: purify.c =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/runtime/purify.c,v retrieving revision 1.69 retrieving revision 1.70 diff -u -d -r1.69 -r1.70 --- purify.c 18 Jun 2007 16:18:36 -0000 1.69 +++ purify.c 5 Oct 2007 00:55:27 -0000 1.70 @@ -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 @@ 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; |