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

pcp/src/output.c

@@ -80 +80 @@
       if (*file != 0) {
         if (verbose) fprintf(stderr,"(%i) Default file is open: %s\n",P->Par.me,name);
-        Free(name);
+        Free(name, "OpenFile: name");
         return(1);
       }
     }
     fprintf(stderr,"\n(%i)Error: Cannot open neither normal nor default file: %s\n",P->Par.me,name);
-    Free(name);
+    Free(name, "OpenFile: name");
     return(0);
   } else {
     if(verbose) fprintf(stderr,"(%i) File is open: %s\n",P->Par.me,name);
-    Free(name);
+                Free(name, "OpenFile: name");
     return(1);
   }
@@ -121 +121 @@
       if (*file != 0) {
         if(verbose) fprintf(stderr,"(%i) Default file is open: %s\n", P->Par.me, name);
-        Free(name);
+        Free(name, "OpenFileNo2: name");
         return(1);
       }
     }
     fprintf(stderr,"\n(%i)Error: Cannot open file: %s\n", P->Par.me, name);
-    Free(name);
+    Free(name, "OpenFileNo2: name");
     return(0);
   } else {
     if(verbose) fprintf(stderr,"(%i) File is open: %s\n",P->Par.me, name);
-    Free(name);
+    Free(name, "OpenFileNo2: name");
     return(1);
   }
@@ -163 +163 @@
       if (*file != 0) {
         if(verbose) fprintf(stderr,"(%i) Default file is open: %s\n", P->Par.me, name);
-        Free(name);
+        Free(name, "OpenFileNo: name");
         return(1);
       }
     }
     fprintf(stderr,"\n(%i)Error: Cannot open file: %s\n", P->Par.me, name);
-    Free(name);
+    Free(name, "OpenFileNo: name");
     return(0);
   } else {
     if(verbose) fprintf(stderr,"(%i) File is open: %s\n", P->Par.me, name);
-    Free(name);
+    Free(name, "OpenFileNo: name");
     return(1);
   }
@@ -200 +200 @@
   if (*file == 0) {
     fprintf(stderr,"\n(%i)Error: Cannot open file: %s\n", P->Par.me, name);
-    Free(name);
+    Free(name, "OpenFileNoPost: name");
     return(0);
   } else {
     if(verbose) fprintf(stderr,"(%i) File is open: %s\n", P->Par.me, name);
-    Free(name);
+    Free(name, "OpenFileNoPost: name");
     return(1);
   }
@@ -229 +229 @@
   if(*file == 0) {
     fprintf(stderr,"\n(%i)Error: Cannot open file: %s\n", P->Par.me, name);
-    Free(name);
+    Free(name, "OpenFileNoNo: name");
     return(0);
   }
   if(verbose) fprintf(stderr,"(%i) File is open: %s\n", P->Par.me, name);
-  Free(name);
+  Free(name, "OpenFileNoNo: name");
   return(1);
 }
@@ -859 +859 @@
 
   fclose(DensityDx);
-  Free(posname);
-  Free(datname);
+  Free(posname, "CreateDensityOutputGeneral: posname");
+  Free(datname, "CreateDensityOutputGeneral: datname");
 }
 
@@ -1363 +1363 @@
       fclose(SrcIonData);
     }
-    if (Max_IonsOfType != NULL) Free(Max_IonsOfType);
+    if (Max_IonsOfType != NULL) Free(Max_IonsOfType, "Max_IonsOfType");
   }
   return 1;
@@ -1788 +1788 @@
       Error(SomeError, "PlotRealDensity: MPI_Send failure!"); 
   }
-  Free(buffer);
-}
+  Free(buffer, "PlotRealDensity: buffer");
+}