From e287a4c8b3264eccf7a40dce105342edf7c96090 Mon Sep 17 00:00:00 2001 From: Helmut Eller Date: Sun, 16 Jun 2024 20:35:05 +0200 Subject: [PATCH 3/3] WIP Remove uses of pdumper_object_p * src/igc.c (is_mps, igc_xfree, igc_hash): After the first collection, pdumper_object_p doesn't make much sense any more. --- src/igc.c | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/src/igc.c b/src/igc.c index 56154d0a538..044c24d4ac8 100644 --- a/src/igc.c +++ b/src/igc.c @@ -126,7 +126,8 @@ is_pure (const mps_addr_t addr) static bool is_mps (const mps_addr_t addr) { - return addr >= min_addr && addr < max_addr && !pdumper_object_p (addr) + return addr >= min_addr && addr < max_addr + //&& !pdumper_object_p (addr) && !c_symbol_p (addr) && !is_pure (addr); } @@ -2385,7 +2386,9 @@ igc_realloc_ambig (void *block, size_t size) void igc_xfree (void *p) { - if (p == NULL || pdumper_object_p (p)) + if (p == NULL + // || pdumper_object_p (p) + ) return; struct igc_root_list *r = root_find (p); igc_assert (r != NULL); @@ -2956,7 +2959,9 @@ igc_hash (Lisp_Object key) } /* Objects in the The dump have igc_headers, too. */ - if (is_mps (client) || pdumper_object_p (client)) + if (is_mps (client) + //|| pdumper_object_p (client) + ) { // The following assertion is very expensive. // igc_assert (mps_arena_has_addr (global_igc->arena, client)); -- 2.39.2