xo-gc stack: + gc-report-object-types() primitive

2026-03-29 17:19:23 -04:00 · 2026-03-29 17:19:23 -04:00 · b6353ccc3d
commit b6353ccc3d
parent f7c269a505
3 changed files with 39 additions and 2 deletions
--- a/src/procedure2/SetupProcedure2.cpp
+++ b/src/procedure2/SetupProcedure2.cpp
@ -137,6 +137,11 @@ namespace xo {
                            GcPrimitives::make_report_gc_statistics_pm(mm, stbl),
                            flags & InstallFlags::f_generalpurpose));

+            ok = ok & (PrimitiveRegistry::install_aux
+                           (sink,
+                            GcPrimitives::make_report_gc_object_types_pm(mm, stbl),
+                            flags & InstallFlags::f_generalpurpose));
+
            ok = ok & (PrimitiveRegistry::install_aux
                           (sink,
                            GcPrimitives::make_request_gc_pm(mm, stbl),