Changeset 64fa9e for pcp/src/wannier.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/wannier.c (modified) (8 diffs)

pcp/src/wannier.c

@@ -96 +96 @@
   fprintf(stderr,"\n");*/
   // and finito
-  Free(old_top);
-  Free(old_bot);
+  Free(old_top, "bla");
+  Free(old_bot, "bla");
 }
 
@@ -490 +490 @@
   // free lookups
   for (i=0;i<NDIM;i++) {
-    Free(cos_lookup[i]);
-    Free(sin_lookup[i]);
-  }
-  Free(cos_lookup);
-  Free(sin_lookup);
+    Free(cos_lookup[i], "bla");
+    Free(sin_lookup[i], "bla");
+  }
+  Free(cos_lookup, "bla");
+  Free(sin_lookup, "bla");
   
   if(P->Call.out[ReadOut]) fprintf(stderr,"(%i) STEP 1\n",P->Par.me);
@@ -800 +800 @@
       // Free column vectors
       for (k=0;k<max_operators+1;k++) {
-        Free(Atotal[k]);
-        Free(Around[k]);
-      }
-      Free(Uround);
-      Free(Utotal);
-      Free(c_all);
-      Free(s_all);
-      Free(c);
-      Free(s);
-      Free(rcounts);
-      Free(rdispls);
+        Free(Atotal[k], "bla");
+        Free(Around[k], "bla");
+      }
+      Free(Uround, "bla");
+      Free(Utotal, "bla");
+      Free(c_all, "bla");
+      Free(s_all, "bla");
+      Free(c, "bla");
+      Free(s, "bla");
+      Free(rcounts, "bla");
+      Free(rdispls, "bla");
       
     } else {
@@ -920 +920 @@
       gsl_vector_free(eval);
       gsl_matrix_free(evec);
-      Free(c);
-      Free(s);
+      Free(c, "bla");
+      Free(s, "bla");
     }  
     
@@ -934 +934 @@
     }
   }
-  Free(top);
-  Free(bot);
+  Free(top, "bla");
+  Free(bot, "bla");
 
   if(P->Call.out[ReadOut]) fprintf(stderr,"(%i) STEP 6: Allocating buffer mem\n",P->Par.me);
@@ -1015 +1015 @@
   } 
   // and free allocated buffer memory
-  Free(coeffs_buffer);
+  Free(coeffs_buffer, "bla");
 
   if(P->Call.out[ReadOut]) fprintf(stderr,"(%i) STEP 7\n",P->Par.me);
@@ -1202 +1202 @@
     //debug(P,"done");
   
-    Free(marker);
+    Free(marker, "bla");
     for (l=0;l<Num;l++)
-      Free(group[l]);
-    Free(group);
+      Free(group[l], "bla");
+    Free(group, "bla");
     break;
    case 1:
@@ -1501 +1501 @@
   // free lookups
   for (k=0;k<NDIM;k++) {
-    Free(cos_lookup[k]);
-    Free(sin_lookup[k]);
-  }
-  Free(cos_lookup);
-  Free(sin_lookup);
+    Free(cos_lookup[k], "bla");
+    Free(sin_lookup[k], "bla");
+  }
+  Free(cos_lookup, "bla");
+  Free(sin_lookup, "bla");
 
   return (B_ij - spread);