1 files changed, 55 insertions, 0 deletions
diff --git a/cpukit/score/src/iterateoverthreads.c b/cpukit/score/src/iterateoverthreads.c
new file mode 100644
index 0000000000..8c65becc4c
--- /dev/null
+++ b/cpukit/score/src/iterateoverthreads.c
@@ -0,0 +1,55 @@
+/*
+ *  rtems_iterate_over_all_threads
+ *
+ *  This function operates by as follows:
+ *    for all threads
+ *         invoke specified function
+ *
+ *  COPYRIGHT (c) 1989-2010.
+ *  On-Line Applications Research Corporation (OAR).
+ *
+ *  The license and distribution terms for this file may be
+ *  found in the file LICENSE in this distribution or at
+ *  http://www.rtems.com/license/LICENSE.
+ *
+ *  $Id$
+ */
+
+#if HAVE_CONFIG_H
+#include "config.h"
+#endif
+
+#include <rtems/system.h>
+#include <rtems/score/thread.h>
+
+void rtems_iterate_over_all_threads(rtems_per_thread_routine routine)
+{
+  uint32_t             i;
+  uint32_t             api_index;
+  Thread_Control      *the_thread;
+  Objects_Information *information;
+
+  if ( !routine )
+    return;
+
+  for ( api_index = 1 ; api_index <= OBJECTS_APIS_LAST ; api_index++ ) {
+    #if !defined(RTEMS_POSIX_API) || defined(RTEMS_DEBUG)
+      if ( !_Objects_Information_table[ api_index ] )
+        continue;
+    #endif
+
+    information = _Objects_Information_table[ api_index ][ 1 ];
+    if ( !information )
+      continue;
+
+    for ( i=1 ; i <= information->maximum ; i++ ) {
+      the_thread = (Thread_Control *)information->local_table[ i ];
+
+      if ( !the_thread )
+	continue;
+
+      (*routine)(the_thread);
+    }
+  }
+
+}