Create a finalize function to provide an opportunity to the mpool

base to release the internal structures.

This commit was SVN r30098.

ompi/mca/mpool/base/mpool_base_frame.c

@@ -120,6 +120,8 @@ static int mca_mpool_base_close(void)
      0 != (OPAL_MEMORY_FREE_SUPPORT & opal_mem_hooks_support_level())) {
       opal_mem_hooks_unregister_release(mca_mpool_base_mem_cb);
   }
+
+  mca_mpool_base_tree_fini();
   /* All done */
 
   return OMPI_SUCCESS;

ompi/mca/mpool/base/mpool_base_tree.c

@@ -91,6 +91,16 @@ int mca_mpool_base_tree_init(void) {
     return rc;
 }
 
+/*
+ *
+ */
+int mca_mpool_base_tree_fini(void)
+{
+    OBJ_DESTRUCT(&mca_mpool_base_tree);
+    OBJ_DESTRUCT(&mca_mpool_base_tree_item_free_list);
+    OBJ_DESTRUCT(&tree_lock);
+}
+
 /* 
  * insert an item in the rb tree 
  */ 

ompi/mca/mpool/base/mpool_base_tree.h

@@ -53,9 +53,10 @@ typedef struct mca_mpool_base_tree_item_t mca_mpool_base_tree_item_t;
 OMPI_DECLSPEC OBJ_CLASS_DECLARATION(mca_mpool_base_tree_item_t);
 
 /*
- * initialize the rb tree
+ * initialize/finalize the rb tree
  */
 int mca_mpool_base_tree_init(void); 
+int mca_mpool_base_tree_fini(void);
 
 /* 
  * insert an item in the rb tree