Add GC_is_thread_suspended API function

(Cherry-picked commit 30c2f0e from 'gcc_boehmgc' branch.)

* include/gc.h (GC_is_thread_suspended): Declare.
* pthread_stop_world.c (GC_is_thread_suspended): New function.

Conflicts:
* ChangeLog
* include/gc.h
* pthread_stop_world.c

diff --git a/include/gc.h b/include/gc.h
index d9f4e397407dee63bdec54e1d668217e27048b8b..f8f764e124632af0bc4d6ded04e4cdee59fa474d 100644 (file)
--- a/include/gc.h
+++ b/include/gc.h
@@ -1921,6 +1921,7 @@ GC_API void GC_CALL GC_win32_free_heap(void);
   && !defined(GC_WIN32_THREADS) && !defined(GC_DARWIN_THREADS)
 GC_API void GC_suspend_thread(pthread_t);
 GC_API void GC_resume_thread(pthread_t);
+GC_API int GC_is_thread_suspended(pthread_t);
 #endif
 
 #ifdef __cplusplus

diff --git a/pthread_stop_world.c b/pthread_stop_world.c
index f9e86c55f69c5be7478fcbf30198c71094c50a79..d80963320fa1feb777a95ff76e26860d875fc4a1 100644 (file)
--- a/pthread_stop_world.c
+++ b/pthread_stop_world.c
@@ -412,6 +412,14 @@ void GC_resume_thread(pthread_t thread) {
   t -> flags &= ~SUSPENDED_EXT;
 }
 
+int GC_is_thread_suspended(pthread_t thread) {
+  GC_thread t = GC_lookup_thread(thread);
+  if (t == NULL)
+    ABORT("querying suspension state of unknown thread");
+
+  return (t -> flags & SUSPENDED_EXT);
+}
+
 #endif /* !GC_OPENBSD_UTHREADS && !NACL */
 
 #ifdef IA64