Commit b9d53731 authored by aljee@hyper.cx's avatar aljee@hyper.cx Committed by Edward Z. Yang

Heap profiling: flush .hp file at the end of each frame

parent 98267a86
......@@ -364,6 +364,9 @@ printSample(rtsBool beginSample, StgDouble sampleValue)
fprintf(hp_file, "%s %" FMT_Word64 ".%02" FMT_Word64 "\n",
(beginSample ? "BEGIN_SAMPLE" : "END_SAMPLE"),
(StgWord64)integralPart, (StgWord64)(fractionalPart * 100));
if (!beginSample) {
fflush(hp_file);
}
}
/* --------------------------------------------------------------------------
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment