diff options
Diffstat (limited to 'src/pdumper.c')
| -rw-r--r-- | src/pdumper.c | 7 |
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) | |||
| 2662 | static void | 2662 | static void |
| 2663 | check_hash_table_rehash (Lisp_Object table_orig) | 2663 | check_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 | { |