Implement event callbacks to be used to profile the collector

1 files changed, 6 insertions, 0 deletions

diff --git a/darwin_stop_world.c b/darwin_stop_world.c
index a6b0a5c7..35a4ba7d 100644
--- a/darwin_stop_world.c
+++ b/darwin_stop_world.c
@@ -458,6 +458,8 @@ STATIC GC_bool GC_suspend_thread_list(thread_act_array_t act_list, int count,
 
 #endif /* !GC_NO_THREADS_DISCOVERY */
 
+extern GC_on_collection_event_proc GC_on_collection_event;
+
 /* Caller holds allocation lock.        */
 GC_INNER void GC_stop_world(void)
 {
@@ -540,6 +542,8 @@ GC_INNER void GC_stop_world(void)
           kern_result = thread_suspend(p->stop_info.mach_thread);
           if (kern_result != KERN_SUCCESS)
             ABORT("thread_suspend failed");
+          if (GC_on_collection_event)
+              GC_on_collection_event(GC_EVENT_THREAD_UNSUSPENDED, (void *)p->stop_info.mach_thread);
         }
       }
     }
@@ -654,6 +658,8 @@ GC_INNER void GC_start_world(void)
         if ((p->flags & FINISHED) == 0 && !p->thread_blocked &&
              p->stop_info.mach_thread != my_thread)
           GC_thread_resume(p->stop_info.mach_thread);
+          if (GC_on_collection_event)
+            GC_on_collection_event(GC_EVENT_THREAD_UNSUSPENDED, (void *)p->stop_info.mach_thread);
       }
     }