projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.12.23: Optimize STRING-*-TRIM
[sbcl.git]
/
src
/
runtime
/
purify.c
diff --git
a/src/runtime/purify.c
b/src/runtime/purify.c
index
a1f21b6
..
e033c7d
100644
(file)
--- a/
src/runtime/purify.c
+++ b/
src/runtime/purify.c
@@
-34,6
+34,8
@@
#include "genesis/primitive-objects.h"
#include "genesis/static-symbols.h"
#include "genesis/layout.h"
#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
* a lot of hairy and fragile ifdeffage in here to support purify on
/* We don't ever do purification with GENCGC as of 1.0.5.*. There was
* a lot of hairy and fragile ifdeffage in here to support purify on
@@
-497,7
+499,7
@@
ptrans_otherptr(lispobj thing, lispobj header, boolean constant)
return ptrans_unboxed(thing, header);
#ifdef LUTEX_WIDETAG
case LUTEX_WIDETAG:
return ptrans_unboxed(thing, header);
#ifdef LUTEX_WIDETAG
case LUTEX_WIDETAG:
- gencgc_unregister_lutex(native_pointer(thing));
+ gencgc_unregister_lutex((struct lutex *) native_pointer(thing));
return ptrans_unboxed(thing, header);
#endif
return ptrans_unboxed(thing, header);
#endif
@@
-716,8
+718,9
@@
pscav(lispobj *addr, long nwords, boolean constant)
case SIMPLE_VECTOR_WIDETAG:
if (HeaderValue(thing) == subtype_VectorValidHashing) {
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(addr[2]);
+ hash_table->needs_rehash_p = T;
}
count = 2;
break;
}
count = 2;
break;