Changeset 18393 for trunk/ppStack

Timestamp:

Jun 30, 2008, 6:27:12 PM (18 years ago)

Author:

Paul Price

Message:

Adding memory dumps to track down memory leaks.

File:

• trunk/ppStack/src/ppStackLoop.c (modified) (12 diffs)

trunk/ppStack/src/ppStackLoop.c

@@ -30 +30 @@
                              "SOURCE.PLOT.MOMENTS", "SOURCE.PLOT.PSFMODEL", "SOURCE.PLOT.APRESID",
                              "PSPHOT.INPUT.CMF", NULL };
+
+static void memDump(const char *name)
+{
+    return;
+
+    static int num = 0;                 // Counter, to make files unique and give an idea of sequence
+
+    psString filename = NULL;           // Name of file
+    psStringAppend(&filename, "memdump_%s_%03d.txt", name, num);
+    FILE *memFile = fopen(filename, "w");
+    psFree(filename);
+
+    psMemBlock **leaks = NULL;
+    int numLeaks = psMemCheckLeaks(0, &leaks, NULL, true);
+    fprintf(memFile, "# MemBlock Size Source\n");
+    unsigned long total = 0;            // Total memory used
+    for (int i = 0; i < numLeaks; i++) {
+        psMemBlock *mb = leaks[i];
+        fprintf(memFile, "%12lu\t%12zd\t%s:%d\n", mb->id, mb->userMemorySize,
+                mb->file, mb->lineno);
+        total += mb->userMemorySize;
+    }
+    fclose(memFile);
+    psFree(leaks);
+
+    fprintf(stderr, "Memdump %s %d: Memory use: %ld, sbrk: %p\n", name, num, total, sbrk(0));
+    num++;
+}
+
 
 
@@ -210 +239 @@
     psMetadata *ppsub = psMetadataLookupMetadata(NULL, config->recipes, "PPSUB"); // PPSUB recipe
     int overlap = 2 * psMetadataLookupS32(NULL, ppsub, "KERNEL.SIZE"); // Overlap by kernel size between consecutive scans
+
+    memDump("start");
 
     // Preparation iteration: Load the sources, and get a target PSF model
@@ -328 +359 @@
     }
 
+    memDump("psf");
+
     const char *outName = psMetadataLookupStr(NULL, config->arguments, "OUTPUT"); // Output root
     assert(outName);
@@ -389 +422 @@
         filesIterateUp(config);
         numGood++;
+
+        memDump("match");
     }
     psFree(globalSources);
@@ -405 +440 @@
 #endif
 
+    memDump("preinitial");
 
     // Stack the convolved files
@@ -524 +560 @@
             }
         }
+
+        memDump("initial");
 
         // Reset for the second read
@@ -574 +612 @@
             }
             rejected->data[i] = reject;
+
+            memDump("reject");
+
         }
         psFree(subKernels);
@@ -586 +627 @@
             return false;
         }
+
+        memDump("prefinal");
 
         // Read convolutions by chunks
@@ -689 +732 @@
         psFree(weightFits);
 
+        memDump("final");
+
         if (psMetadataLookupBool(&mdok, config->arguments, "PHOTOMETRY")) {
 
@@ -708 +753 @@
         }
 
+        memDump("phot");
+
         // Statistics on output
         if (stats) {
@@ -713 +760 @@
             ppStatsFPA(stats, outCell->parent->parent, view, maskBlank, config);
         }
+
+        memDump("stats");
 
         // Put version information into the header
@@ -746 +795 @@
     }
 
+    memDump("finish");
+
     return true;
 }