Changeset 2005

Timestamp:

08/27/09 10:41:09 (15 years ago)

Author:

Eric.Larour

Message:

Fixed huge leaks in gaussian points not being freed.

Location:

issm/trunk/src/c/objects

Files:

• Icefront.cpp (modified) (2 diffs)
• Penta.cpp (modified) (4 diffs)

issm/trunk/src/c/objects/Icefront.cpp

@@ -1163 +1163 @@
                 } //for(i=0;i<4;i++)
         } //for(ig=0;ig<num_gauss;ig++)
+        
+        /*Free ressources: */
+        xfree((void**)&first_gauss_area_coord);
+        xfree((void**)&second_gauss_area_coord);
+        xfree((void**)&third_gauss_area_coord);
+        xfree((void**)&gauss_weights);
 
         /*Delete fake tria: */
@@ -1414 +1420 @@
                 } //for(i=0;i<4;i++)
         } //for(ig=0;ig<num_gauss;ig++)
+        
+        /*Free ressources: */
+        xfree((void**)&first_gauss_area_coord);
+        xfree((void**)&second_gauss_area_coord);
+        xfree((void**)&third_gauss_area_coord);
+        xfree((void**)&gauss_weights);
 
         /*Delete fake tria: */

issm/trunk/src/c/objects/Penta.cpp

@@ -963 +963 @@
                 }
                 
+                xfree((void**)&first_gauss_area_coord); xfree((void**)&second_gauss_area_coord); xfree((void**)&third_gauss_area_coord); xfree((void**)&area_gauss_weights);
                 GaussTria (&num_area_gauss, &first_gauss_area_coord, &second_gauss_area_coord, &third_gauss_area_coord, &area_gauss_weights, 2);
 
@@ -1040 +1041 @@
         
         cleanup_and_return: 
+        
+        /*Free ressources:*/
+        xfree((void**)&first_gauss_area_coord);
+        xfree((void**)&second_gauss_area_coord);
+        xfree((void**)&third_gauss_area_coord);
+        xfree((void**)&area_gauss_weights);
+        xfree((void**)&vert_gauss_coord);
+        xfree((void**)&vert_gauss_weights);
 
         return;
@@ -3238 +3247 @@
                         }
                 }
-
+        
+                xfree((void**)&first_gauss_area_coord); xfree((void**)&second_gauss_area_coord); xfree((void**)&third_gauss_area_coord); xfree((void**)&area_gauss_weights);
                 GaussTria (&num_area_gauss, &first_gauss_area_coord, &second_gauss_area_coord, &third_gauss_area_coord, &area_gauss_weights, 2);
 
@@ -3289 +3299 @@
         /*Add P_terms to global vector pg: */
         VecSetValues(pg,numdof,doflist,(const double*)P_terms,ADD_VALUES);
+
+        /*Free ressources:*/
+        xfree((void**)&first_gauss_area_coord);
+        xfree((void**)&second_gauss_area_coord);
+        xfree((void**)&third_gauss_area_coord);
+        xfree((void**)&area_gauss_weights);
+        xfree((void**)&vert_gauss_coord);
+        xfree((void**)&vert_gauss_weights);
 
 }