xo-gc stack: + gc-location-of() primitive

2026-03-29 19:47:15 -04:00 · 2026-03-29 19:47:15 -04:00 · 97723415b1
commit 97723415b1
parent b6353ccc3d
3 changed files with 36 additions and 1 deletions
--- a/src/procedure2/SetupProcedure2.cpp
+++ b/src/procedure2/SetupProcedure2.cpp
@ -142,6 +142,11 @@ namespace xo {
                            GcPrimitives::make_report_gc_object_types_pm(mm, stbl),
                            flags & InstallFlags::f_generalpurpose));

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