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

* SHOW_MEM_USAGE define to always show maximum heap size used/allocated, independent of DUMP_MEM_USAGE

Browse Source 
git-svn-id: trunk@7324 -
This commit is contained in:
micha 2007-05-13 12:34:16 +00:00
parent 5736142382
commit bb9de8f193
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/heap.inc
View File

@ -38,6 +38,10 @@
{$define HAS_MEMORYMANAGER} {$define HAS_MEMORYMANAGER}
{$endif HAS_MT_MEMORYMANAGER} {$endif HAS_MT_MEMORYMANAGER}
{$ifdef DUMP_MEM_USAGE}
{$define SHOW_MEM_USAGE}
{$endif}
const const
{$ifdef CPU64} {$ifdef CPU64}
blocksize = 32; { at least size of freerecord } blocksize = 32; { at least size of freerecord }
@ -1450,9 +1454,11 @@ var
poc : poschunk; poc : poschunk;
i : longint; i : longint;
begin begin
{$ifdef DUMP_MEM_USAGE} {$ifdef SHOW_MEM_USAGE}
writeln('Max heap used/size: ', internal_status.maxheapused, '/', writeln('Max heap used/size: ', internal_status.maxheapused, '/',
internal_status.maxheapsize); internal_status.maxheapsize);
{$endif}
{$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]);