scratch/igc 5c2ab22040f 3/4: Don't try to destroy non-existent root

[Gerd Moellmann]

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

    Don't try to destroy non-existent root
---
 src/igc.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/igc.c b/src/igc.c
index efbfce03010..73aabff924f 100644
--- a/src/igc.c
+++ b/src/igc.c
@@ -2230,7 +2230,8 @@ igc_root_destroy_comp_unit (struct Lisp_Native_Comp_Unit 
*u)
     igc_root_destroy (&u->data_imp_relocs_root);
   if (u->data_eph_relocs_root)
     igc_root_destroy (&u->data_eph_relocs_root);
-  igc_root_destroy (&u->comp_unit_root);
+  if (u->comp_unit_root)
+    igc_root_destroy (&u->comp_unit_root);
 }
 
 static mps_res_t