score: Add _Objects_Active_count()

cpukit/score/Makefile.am

@@ -190,7 +190,8 @@ libscore_a_SOURCES += src/objectallocate.c src/objectclose.c \
     src/objectshrinkinformation.c src/objectgetnoprotection.c \
     src/objectidtoname.c src/objectgetnameasstring.c src/objectsetname.c \
     src/objectgetinfo.c src/objectgetinfoid.c src/objectapimaximumclass.c \
-    src/objectnamespaceremove.c
+    src/objectnamespaceremove.c \
+    src/objectactivecount.c
 
 ## SCHEDULER_C_FILES
 libscore_a_SOURCES += src/scheduler.c

cpukit/score/include/rtems/score/object.h

@@ -862,6 +862,17 @@ void _Objects_Close(
   Objects_Control      *the_object
 );
 
+/**
+ * @brief Returns the count of active objects.
+ *
+ * @param[in] information The object information table.
+ *
+ * @return The count of active objects.
+ */
+Objects_Maximum _Objects_Active_count(
+  const Objects_Information *information
+);
+
 /*
  *  Pieces of object.inl are promoted out to the user
  */

cpukit/score/src/objectactivecount.c

@@ -0,0 +1,29 @@
+/*
+ * Copyright (c) 2012 embedded brains GmbH.  All rights reserved.
+ *
+ *  embedded brains GmbH
+ *  Obere Lagerstr. 30
+ *  82178 Puchheim
+ *  Germany
+ *  <rtems@embedded-brains.de>
+ *
+ * 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.
+ */
+
+#if HAVE_CONFIG_H
+  #include "config.h"
+#endif
+
+#include <rtems/score/object.h>
+
+Objects_Maximum _Objects_Active_count(
+  const Objects_Information *information
+)
+{
+  size_t inactive = _Chain_Node_count_unprotected( &information->Inactive );
+  size_t maximum  = information->maximum;
+
+  return (Objects_Maximum) ( maximum - inactive );
+}

testsuites/sptests/spobjgetnext/init.c

@@ -68,6 +68,7 @@ rtems_task Init(
   Objects_Locations     location;
   Objects_Id            id;
   Objects_Information  *info;
+  Objects_Maximum       active_count;
 
   puts( "\n\n*** TEST OBJECT GET NEXT ***" );
 
@@ -103,6 +104,10 @@ rtems_task Init(
 
   /* XXX try with a manager with no objects created */
 
+  puts( "Init - _Objects_Active_count" );
+  active_count = _Objects_Active_count( info );
+  rtems_test_assert( active_count == 1 );
+
   puts( "*** END OF TEST OBJECT GET NEXT ***" );
   rtems_test_exit( 0 );
 }

testsuites/sptests/spobjgetnext/spobjgetnext.doc

@@ -12,10 +12,13 @@ test set name:  spobjgetnext
 
 directives:
 
-  SCORE _Objects_Get_next
+  _Objects_Get_next
+  _Objects_Active_count
 
 concepts:
 
 + Ensure that _Objects_Get_next handles error conditions properly.
 
 + Ensure the _Objects_Get_next behaves as expected.
+
++ Ensure the _Objects_Active_count behaves as expected.

testsuites/sptests/spobjgetnext/spobjgetnext.scn

@@ -4,4 +4,5 @@ Init - _Objects_Get_next - NULL location
 Init - _Objects_Get_next - NULL id
 1 RTEMS Task
 1 RTEMS Task
+Init - _Objects_Active_count
 *** END OF TEST OBJECT GET NEXT ***