diff options
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/alloc.c b/src/alloc.c index deb1ca32500..b579e7ed1ae 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -5443,7 +5443,7 @@ static struct Lisp_Hash_Table * | |||
| 5443 | purecopy_hash_table (struct Lisp_Hash_Table *table) | 5443 | purecopy_hash_table (struct Lisp_Hash_Table *table) |
| 5444 | { | 5444 | { |
| 5445 | eassert (NILP (table->weak)); | 5445 | eassert (NILP (table->weak)); |
| 5446 | eassert (!NILP (table->pure)); | 5446 | eassert (table->pure); |
| 5447 | 5447 | ||
| 5448 | struct Lisp_Hash_Table *pure = pure_alloc (sizeof *pure, Lisp_Vectorlike); | 5448 | struct Lisp_Hash_Table *pure = pure_alloc (sizeof *pure, Lisp_Vectorlike); |
| 5449 | struct hash_table_test pure_test = table->test; | 5449 | struct hash_table_test pure_test = table->test; |
| @@ -5457,14 +5457,14 @@ purecopy_hash_table (struct Lisp_Hash_Table *table) | |||
| 5457 | pure->header = table->header; | 5457 | pure->header = table->header; |
| 5458 | pure->weak = purecopy (Qnil); | 5458 | pure->weak = purecopy (Qnil); |
| 5459 | pure->rehash_size = purecopy (table->rehash_size); | 5459 | pure->rehash_size = purecopy (table->rehash_size); |
| 5460 | pure->rehash_threshold = purecopy (table->rehash_threshold); | ||
| 5461 | pure->hash = purecopy (table->hash); | 5460 | pure->hash = purecopy (table->hash); |
| 5462 | pure->next = purecopy (table->next); | 5461 | pure->next = purecopy (table->next); |
| 5463 | pure->next_free = purecopy (table->next_free); | 5462 | pure->next_free = purecopy (table->next_free); |
| 5464 | pure->index = purecopy (table->index); | 5463 | pure->index = purecopy (table->index); |
| 5465 | pure->count = table->count; | 5464 | pure->count = table->count; |
| 5465 | pure->pure = table->pure; | ||
| 5466 | pure->rehash_threshold = table->rehash_threshold; | ||
| 5466 | pure->key_and_value = purecopy (table->key_and_value); | 5467 | pure->key_and_value = purecopy (table->key_and_value); |
| 5467 | pure->pure = purecopy (table->pure); | ||
| 5468 | 5468 | ||
| 5469 | return pure; | 5469 | return pure; |
| 5470 | } | 5470 | } |
| @@ -5524,7 +5524,7 @@ purecopy (Lisp_Object obj) | |||
| 5524 | /* Do not purify hash tables which haven't been defined with | 5524 | /* Do not purify hash tables which haven't been defined with |
| 5525 | :purecopy as non-nil or are weak - they aren't guaranteed to | 5525 | :purecopy as non-nil or are weak - they aren't guaranteed to |
| 5526 | not change. */ | 5526 | not change. */ |
| 5527 | if (!NILP (table->weak) || NILP (table->pure)) | 5527 | if (!NILP (table->weak) || !table->pure) |
| 5528 | { | 5528 | { |
| 5529 | /* Instead, add the hash table to the list of pinned objects, | 5529 | /* Instead, add the hash table to the list of pinned objects, |
| 5530 | so that it will be marked during GC. */ | 5530 | so that it will be marked during GC. */ |