Register dumped CUs with igc

1 files changed, 9 insertions, 2 deletions

diff --git a/src/comp.c b/src/comp.c
index 1cde13f5ec0..7f62fc7ba86 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -21,6 +21,9 @@ along with GNU Emacs.  If not, see <https://www.gnu.org/licenses/>.  */
 #include <config.h>
 
 #include "lisp.h"
+#include "igc.h"
+#include "comp.h"
+#include "pdumper.h"
 
 #ifdef HAVE_NATIVE_COMP
 
@@ -5152,8 +5155,12 @@ eln_load_path_final_clean_up (void)
 static void
 register_native_comp_unit (Lisp_Object comp_u)
 {
-  Fputhash (
-    XNATIVE_COMP_UNIT (comp_u)->file, comp_u, Vcomp_loaded_comp_units_h);
+  Fputhash (XNATIVE_COMP_UNIT (comp_u)->file, comp_u,
+            Vcomp_loaded_comp_units_h);
+# ifdef HAVE_MPS
+  if (pdumper_object_p (XNATIVE_COMP_UNIT (comp_u)))
+    igc_register_cu (comp_u);
+#endif
 }