scratch/igc 920b05d389e: finalize_comp_unit resets traced members to NULL

[Gerd Moellmann]

branch: scratch/igc
commit 920b05d389e15da038f1fc192ff272203a20a6bc
Author: Gerd Möllmann <gerd@gnu.org>
Commit: Gerd Möllmann <gerd@gnu.org>

    finalize_comp_unit resets traced members to NULL
---
 src/igc.c | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/igc.c b/src/igc.c
index 2a44f88236b..568a310f1ce 100644
--- a/src/igc.c
+++ b/src/igc.c
@@ -1585,7 +1585,7 @@ fix_finalizer (mps_ss_t ss, struct Lisp_Finalizer *f)
 }
 
 static mps_res_t
-fix_native_cu (mps_ss_t ss, struct Lisp_Native_Comp_Unit *u)
+fix_comp_unit (mps_ss_t ss, struct Lisp_Native_Comp_Unit *u)
 {
   MPS_SCAN_BEGIN (ss)
   {
@@ -1782,7 +1782,7 @@ fix_vector (mps_ss_t ss, struct Lisp_Vector *v)
        break;
 
       case PVEC_NATIVE_COMP_UNIT:
-       IGC_FIX_CALL_FN (ss, struct Lisp_Native_Comp_Unit, v, fix_native_cu);
+       IGC_FIX_CALL_FN (ss, struct Lisp_Native_Comp_Unit, v, fix_comp_unit);
        break;
 
       case PVEC_MODULE_GLOBAL_REFERENCE:
@@ -2279,6 +2279,8 @@ static void
 finalize_comp_unit (struct Lisp_Native_Comp_Unit *u)
 {
   unload_comp_unit (u);
+  u->data_imp_relocs = NULL;
+  u->data_relocs = NULL;
 }
 
 static void