[svn-r96] Added "atexit" routines to each interface to free buffers allocated during

runtime.  Isolated but can't figure out how to fix bug reported with purify.

1 files changed, 24 insertions, 1 deletions

diff --git a/src/H5T.c b/src/H5T.c
index 2383c6b..840a08a 100644
--- a/src/H5T.c
+++ b/src/H5T.c
@@ -74,13 +74,36 @@ static herr_t H5T_init_interface(void)
     FUNC_ENTER (H5T_init_interface, NULL, FAIL);
 
     /* Initialize the atom group for the file IDs */
-    ret_value=H5Ainit_group(H5_DATATYPE,H5A_DATATYPEID_HASHSIZE,H5T_RESERVED_ATOMS);
+    if((ret_value=H5Ainit_group(H5_DATATYPE,H5A_DATATYPEID_HASHSIZE,H5T_RESERVED_ATOMS))!=FAIL)
+        ret_value=H5_add_exit(&H5T_term_interface);
 
     FUNC_LEAVE(ret_value);
 }	/* H5T_init_interface */
 
 /*--------------------------------------------------------------------------
  NAME
+    H5T_term_interface
+ PURPOSE
+    Terminate various H5T objects
+ USAGE
+    void H5T_term_interface()
+ RETURNS
+    SUCCEED/FAIL
+ DESCRIPTION
+    Release the atom group and any other resources allocated.
+ GLOBAL VARIABLES
+ COMMENTS, BUGS, ASSUMPTIONS
+     Can't report errors...
+ EXAMPLES
+ REVISION LOG
+--------------------------------------------------------------------------*/
+void H5T_term_interface (void)
+{
+    H5Adestroy_group(H5_DATATYPE);
+} /* end H5T_term_interface() */
+
+/*--------------------------------------------------------------------------
+ NAME
     H5T_create
  PURPOSE
     Create a new HDF5 data-type object