aboutsummaryrefslogtreecommitdiffstats
path: root/src/pdumper.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/pdumper.c')
-rw-r--r--src/pdumper.c7
1 files changed, 4 insertions, 3 deletions
diff --git a/src/pdumper.c b/src/pdumper.c
index 1504f75c825..4ba819b4103 100644
--- a/src/pdumper.c
+++ b/src/pdumper.c
@@ -2662,13 +2662,14 @@ hash_table_contents (Lisp_Object table)
2662static void 2662static void
2663check_hash_table_rehash (Lisp_Object table_orig) 2663check_hash_table_rehash (Lisp_Object table_orig)
2664{ 2664{
2665 ptrdiff_t count = XHASH_TABLE (table_orig)->count;
2665 hash_rehash_if_needed (XHASH_TABLE (table_orig)); 2666 hash_rehash_if_needed (XHASH_TABLE (table_orig));
2666 Lisp_Object table_rehashed = Fcopy_hash_table (table_orig); 2667 Lisp_Object table_rehashed = Fcopy_hash_table (table_orig);
2667 eassert (XHASH_TABLE (table_rehashed)->count >= 0); 2668 eassert (!hash_rehash_needed_p (XHASH_TABLE (table_rehashed)));
2668 XHASH_TABLE (table_rehashed)->count *= -1; 2669 XHASH_TABLE (table_rehashed)->count *= -1;
2669 eassert (XHASH_TABLE (table_rehashed)->count <= 0); 2670 eassert (count == 0 || hash_rehash_needed_p (XHASH_TABLE (table_rehashed)));
2670 hash_rehash_if_needed (XHASH_TABLE (table_rehashed)); 2671 hash_rehash_if_needed (XHASH_TABLE (table_rehashed));
2671 eassert (XHASH_TABLE (table_rehashed)->count >= 0); 2672 eassert (!hash_rehash_needed_p (XHASH_TABLE (table_rehashed)));
2672 Lisp_Object expected_contents = hash_table_contents (table_orig); 2673 Lisp_Object expected_contents = hash_table_contents (table_orig);
2673 while (!NILP (expected_contents)) 2674 while (!NILP (expected_contents))
2674 { 2675 {