[mpich2-commits] r3975 - mpich2/trunk/src/pm/hydra/launcher/utils

[balaji at mcs.anl.gov]

Author: balaji
Date: 2009-03-08 20:47:39 -0500 (Sun, 08 Mar 2009)
New Revision: 3975

Modified:
   mpich2/trunk/src/pm/hydra/launcher/utils/lchu.c
Log:
Stomp valgrind warnings on unfreed memory regions.

Modified: mpich2/trunk/src/pm/hydra/launcher/utils/lchu.c
===================================================================
--- mpich2/trunk/src/pm/hydra/launcher/utils/lchu.c	2009-03-09 01:29:42 UTC (rev 3974)
+++ mpich2/trunk/src/pm/hydra/launcher/utils/lchu.c	2009-03-09 01:47:39 UTC (rev 3975)
@@ -99,20 +99,25 @@
 HYD_Status HYD_LCHU_Free_host_list(void)
 {
     struct HYD_Proc_params *proc_params;
-    struct HYD_Partition_list *partition;
+    struct HYD_Partition_list *partition, *next;
     int i;
     HYD_Status status = HYD_SUCCESS;
 
     HYDU_FUNC_ENTER();
 
     for (proc_params = handle.proc_params; proc_params; proc_params = proc_params->next) {
-        for (partition = proc_params->partition; partition; partition = partition->next) {
+        for (partition = proc_params->partition; partition;) {
             HYDU_FREE(partition->name);
             if (partition->mapping) {
                 if (partition->mapping[i])
                     HYDU_FREE(partition->mapping[i]);
                 HYDU_FREE(partition->mapping);
             }
+            for (i = 0; partition->args[i]; i++)
+                HYDU_FREE(partition->args[i]);
+            next = partition->next;
+            HYDU_FREE(partition);
+            partition = next;
         }
     }
     HYDU_FREE(handle.host_file);