[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/H5F.c b/src/H5F.c
index dfdd862..348e477 100644
--- a/src/H5F.c
+++ b/src/H5F.c
@@ -84,11 +84,34 @@ static herr_t H5F_init_interface(void)
     FUNC_ENTER (H5F_init_interface, NULL, FAIL);
 
     /* Initialize the atom group for the file IDs */
-    ret_value=H5Ainit_group(H5_FILE,H5A_FILEID_HASHSIZE,0);
+    if((ret_value=H5Ainit_group(H5_FILE,H5A_FILEID_HASHSIZE,0))!=FAIL)
+        ret_value=H5_add_exit(&H5F_term_interface);
 
     FUNC_LEAVE(ret_value);
 }	/* H5F_init_interface */
 
+/*--------------------------------------------------------------------------
+ NAME
+    H5F_term_interface
+ PURPOSE
+    Terminate various H5F objects
+ USAGE
+    void H5F_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 H5F_term_interface (void)
+{
+    H5Adestroy_group(H5_FILE);
+} /* end H5F_term_interface() */
+
 #ifdef LATER
 /*--------------------------------------------------------------------------
  NAME