paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 23:42:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* flush output after heap debug writeln at exit

Browse Source 
git-svn-id: trunk@7413 -
This commit is contained in:
micha 2007-05-21 20:38:29 +00:00
parent 6c85fcb157
commit 9f11556f10
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/heap.inc
View File

@ -1408,12 +1408,14 @@ begin
{$ifdef SHOW_MEM_USAGE} {$ifdef SHOW_MEM_USAGE}
writeln('Max heap used/size: ', loc_freelists^.internal_status.maxheapused, '/', writeln('Max heap used/size: ', loc_freelists^.internal_status.maxheapused, '/',
loc_freelists^.internal_status.maxheapsize); loc_freelists^.internal_status.maxheapsize);
flush(output);
{$endif} {$endif}
{$ifdef DUMP_MEM_USAGE} {$ifdef DUMP_MEM_USAGE}
for i := 0 to sizeusageindex-1 do for i := 0 to sizeusageindex-1 do
if maxsizeusage[i] <> 0 then if maxsizeusage[i] <> 0 then
writeln('size ', i shl sizeusageshift, ' usage ', maxsizeusage[i]); writeln('size ', i shl sizeusageshift, ' usage ', maxsizeusage[i]);
writeln('size >', sizeusagesize, ' usage ', maxsizeusage[sizeusageindex]); writeln('size >', sizeusagesize, ' usage ', maxsizeusage[sizeusageindex]);
flush(output);
{$endif} {$endif}
{$ifdef HAS_SYSOSFREE} {$ifdef HAS_SYSOSFREE}
while assigned(freelists.osfirst) do while assigned(freelists.osfirst) do