[mpich2-commits] r4026 - mpich2/trunk/src/mpi/romio/adio/common

[robl at mcs.anl.gov]

Author: robl
Date: 2009-03-12 10:50:22 -0500 (Thu, 12 Mar 2009)
New Revision: 4026

Modified:
   mpich2/trunk/src/mpi/romio/adio/common/ad_end.c
Log:
free another keyval before exiting


Modified: mpich2/trunk/src/mpi/romio/adio/common/ad_end.c
===================================================================
--- mpich2/trunk/src/mpi/romio/adio/common/ad_end.c	2009-03-12 13:07:04 UTC (rev 4025)
+++ mpich2/trunk/src/mpi/romio/adio/common/ad_end.c	2009-03-12 15:50:22 UTC (rev 4026)
@@ -57,7 +57,7 @@
 
 
 /* This is the delete callback function associated with
-   ADIO_Init_keyval when MPI_COMM_WORLD is freed */
+   ADIO_Init_keyval when MPI_COMM_SELF is freed */
 
 int ADIOI_End_call(MPI_Comm comm, int keyval, void *attribute_val, void
 		  *extra_state)
@@ -65,10 +65,10 @@
     int error_code;
 
     ADIOI_UNREFERENCED_ARG(comm);
-    ADIOI_UNREFERENCED_ARG(keyval);
     ADIOI_UNREFERENCED_ARG(attribute_val);
     ADIOI_UNREFERENCED_ARG(extra_state);
 
+    MPI_Keyval_free(&keyval);
     ADIO_End(&error_code);
     return error_code;
 }