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

pcp/src/init.c

@@ -106 +106 @@
   }
   if (setit) strcat(P->Files.mainname,"/");
-  if (dummy) Free(dummy);
+  if (dummy) Free(dummy, "CreateMainname: dummy");
   P->Files.mainpath = (char*) /* Speicher fuer P->Files.mainname */
     Malloc(strlen(P->Files.mainname)+10, "CreateMainname - P->Files.mainpath");
@@ -520 +520 @@
   }
     
-  Free(GlobalGArray);
-  Free(GlobalGArray_sort);
+  Free(GlobalGArray, "HashGArray: GlobalGArray");
+  Free(GlobalGArray_sort, "HashGArray: GlobalGArray_sort");
   for (i=0;i<NDIM;i++) {
-    Free(G[i]);
-    Free(G_send[i]);
-  }
-  Free(G);
-  Free(G_send);
+    Free(G[i], "HashGArray: G[i]");
+    Free(G_send[i], "HashGArray: G_send[i]");
+  }
+  Free(G, "HashGArray: G");
+  Free(G_send, "HashGArray: G_send");
 }
 
@@ -1321 +1321 @@
       if (feof(file)) {
         if ((critical) && (found == 0)) {
-          Free(free_dummy);
+          Free(free_dummy, "ParseForParameter: free_dummy");
           Error(InitReading, name);
         } else {
           //if (!sequential)
           fseek(file, file_position, SEEK_SET);  // rewind to start position
-          Free(free_dummy);          
+          Free(free_dummy, "ParseForParameter: free_dummy");          
           return 0;
         }
@@ -1356 +1356 @@
                                 dummy = strchr(dummy1, '\n');   // set on line end then (whole line = keyword)
                                 //fprintf(stderr,"(%i)Error: Cannot find tabs or spaces on line %i in search for %s\n", me, line, name);
-        //Free(free_dummy);
+        //Free(free_dummy, "ParseForParameter: free_dummy");
                     //Error(FileOpenParams, NULL);                      
                         } else {
@@ -1376 +1376 @@
               if (feof(file)) {
                 if ((critical) && (found == 0)) {
-                  Free(free_dummy);
+                  Free(free_dummy, "ParseForParameter: free_dummy");
                   Error(InitReading, name);
                 } else {
                   //if (!sequential) 
                   fseek(file, file_position, SEEK_SET);  // rewind to start position
-                  Free(free_dummy);
+                  Free(free_dummy, "ParseForParameter: free_dummy");
                   return 0;
                 }
@@ -1425 +1425 @@
                                                                 if ((j < yth-1) && (type < 4)) {        // check if xth value or not yet
                                                                         if (verbose) fprintf(stderr,"(%i)Error: EoL at %i and still missing %i value(s) for parameter %s\n", me, line, yth-j, name);
-                  Free(free_dummy);
+                  Free(free_dummy, "ParseForParameter: free_dummy");
                                                                         return 0;
                                                             //Error(FileOpenParams, NULL);                      
@@ -1482 +1482 @@
         }       
   if ((type >= row_int) && (verbose)) fprintf(stderr,"\n");
-        Free(free_dummy);
+  Free(free_dummy, "ParseForParameter: free_dummy");
         if (!sequential) fseek(file, file_position, SEEK_SET);  // rewind to start position
         //fprintf(stderr, "(%i) End of Parsing\n\n",me);
@@ -1871 +1871 @@
   EnergyOutput(P,0);
   InitOutVisArray(P);
-  Free(P->Lat.GArrayForSort);
+  Free(P->Lat.GArrayForSort, "Init: P->Lat.GArrayForSort");
   P->Speed.InitSteps++;
 }