aboutsummaryrefslogtreecommitdiffstats
path: root/src/alloc.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/alloc.c')
-rw-r--r--src/alloc.c8
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 *
5443purecopy_hash_table (struct Lisp_Hash_Table *table) 5443purecopy_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. */