1 files changed, 51 insertions, 0 deletions
diff --git a/ACE/TAO/tao/Cleanup_Func_Registry.cpp b/ACE/TAO/tao/Cleanup_Func_Registry.cpp
new file mode 100644
index 00000000000..72d4e72d7e7
--- /dev/null
+++ b/ACE/TAO/tao/Cleanup_Func_Registry.cpp
@@ -0,0 +1,51 @@
+#include "tao/Cleanup_Func_Registry.h"
+
+#if !defined (__ACE_INLINE__)
+# include "tao/Cleanup_Func_Registry.inl"
+#endif /* __ACE_INLINE__ */
+
+#include "ace/Log_Msg.h"
+
+ACE_RCSID (tao,
+           Cleanup_Func_Registry,
+           "$Id$")
+
+TAO_BEGIN_VERSIONED_NAMESPACE_DECL
+
+int
+TAO_Cleanup_Func_Registry::register_cleanup_function (ACE_CLEANUP_FUNC func,
+                                                      size_t &slot_id)
+{
+  size_t const slot = this->cleanup_funcs_.size ();
+
+  if (this->cleanup_funcs_.size (slot + 1) != 0)
+    return -1;
+
+  this->cleanup_funcs_[slot] = func;
+  slot_id = slot;
+
+  return 0;
+}
+
+void
+TAO_Cleanup_Func_Registry::cleanup (ACE_Array_Base <void *> &ts_objects)
+{
+  size_t const len = ts_objects.size ();
+
+  // The allocated slot may never have been used.  It is therefore
+  // possible that the TSS array size may be less than the cleanup
+  // function size.  However, there is still a one-to-one
+  // correspondence between cleanup_func[foo] and ts_object[foo].
+
+  ACE_ASSERT (len <= this->cleanup_funcs_.size ());
+
+  /// Cleanup each TSS object.
+  for (size_t i = 0; i < len; ++i)
+    {
+      ACE_CLEANUP_FUNC destructor = this->cleanup_funcs_[i];
+      if (destructor != 0)
+        destructor (ts_objects[i], 0);
+    }
+}
+
+TAO_END_VERSIONED_NAMESPACE_DECL