Changeset 64fa9e for pcp/src/perturbed.c

Timestamp:

Apr 21, 2008, 2:19:24 PM (17 years ago)

Author:

Frederik Heber <heber@…>

Children:

e00f47

Parents:

32de28

git-author:

Frederik Heber <heber@…> (04/18/08 14:51:49)

git-committer:

Frederik Heber <heber@…> (04/21/08 14:19:24)

Message:

Free(): now takes a debug string to know where free error occured

File:

• pcp/src/perturbed.c (modified) (3 diffs)

pcp/src/perturbed.c

@@ -2882 +2882 @@
   UnLockDensityArray(Dens0,GapDownDensity,real); // Psip1R
 //  for (i=0;i<Num;i++)
-//    if (x_l[i] != NULL) Free(x_l[i]);         
-//  Free(x_l);
+//    if (x_l[i] != NULL) Free(x_l[i], "bla", "bla");         
+//  Free(x_l, "bla");
   gsl_multimin_fdfminimizer_free (minset);
   gsl_vector_free (x);            
@@ -2960 +2960 @@
   recvbuf = (double *) Malloc(gsize * p_num * sizeof(double), "CalculateOverlap: recvbuf");
   MPI_Allgather(sendbuf, p_num, MPI_DOUBLE, recvbuf, p_num, MPI_DOUBLE, P->Par.comm_ST_PsiT);
-  Free(sendbuf);
+  Free(sendbuf, "bla");
   for (i=0;i<gsize;i++) {// extract results from other processes out of receiving buffer
     m = recvbuf[i*p_num]; // m is ActNum of the process whose results we've just received
@@ -2967 +2967 @@
       Psi->Overlap[m][j-1] = Psi->Overlap[j-1][m] = recvbuf[i*p_num+j]; // put each entry into correspondent Overlap row
   }
-  Free(recvbuf);
+  Free(recvbuf, "bla");
 }