[cig-commits] r21771 - short/3D/PyLith/trunk/libsrc/pylith/faults

[knepley at geodynamics.org]

Author: knepley
Date: 2013-04-08 11:18:58 -0700 (Mon, 08 Apr 2013)
New Revision: 21771

Modified:
   short/3D/PyLith/trunk/libsrc/pylith/faults/FaultCohesive.cc
Log:
Fixed memory leak in FaultCohesive

Modified: short/3D/PyLith/trunk/libsrc/pylith/faults/FaultCohesive.cc
===================================================================
--- short/3D/PyLith/trunk/libsrc/pylith/faults/FaultCohesive.cc	2013-04-08 17:54:10 UTC (rev 21770)
+++ short/3D/PyLith/trunk/libsrc/pylith/faults/FaultCohesive.cc	2013-04-08 18:18:58 UTC (rev 21771)
@@ -141,7 +141,7 @@
       
       CohesiveTopology::create(mesh, faultMesh, faultBoundary, faultBoundaryDM, groupField, id(), 
                                *firstFaultVertex, *firstLagrangeVertex, *firstFaultCell, useLagrangeConstraints());
-      
+      err = DMDestroy(&faultBoundaryDM);CHECK_PETSC_ERROR(err);
     } else {
       const int faultDim = 2;
       assert(3 == mesh->dimension());