projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.21.7: fix argument quoting in run-sbcl.sh
[sbcl.git]
/
src
/
runtime
/
purify.c
diff --git
a/src/runtime/purify.c
b/src/runtime/purify.c
index
ec43c3a
..
3440b2f
100644
(file)
--- a/
src/runtime/purify.c
+++ b/
src/runtime/purify.c
@@
-27,7
+27,6
@@
#include "interrupt.h"
#include "purify.h"
#include "interr.h"
#include "interrupt.h"
#include "purify.h"
#include "interr.h"
-#include "fixnump.h"
#include "gc.h"
#include "gc-internal.h"
#include "thread.h"
#include "gc.h"
#include "gc-internal.h"
#include "thread.h"
@@
-719,7
+718,7
@@
pscav(lispobj *addr, long nwords, boolean constant)
case SIMPLE_VECTOR_WIDETAG:
if (HeaderValue(thing) == subtype_VectorValidHashing) {
struct hash_table *hash_table =
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;
hash_table->needs_rehash_p = T;
}
count = 2;