Code: Alles auswählen
uses
heaptrc;
procedure test;
const
ar: array of byte = nil;
begin
SetLength(ar, Length(ar) + 1);
WriteLn(Length(ar));
end;
var
i: integer;
begin
for i := 0 to 3 do test;
end.
Code: Alles auswählen
1
2
3
4
Heap dump by heaptrc unit of /home/tux/fpcupdeluxe_stable/projects/project1
1 memory blocks allocated : 74/96
0 memory blocks freed : 54/72
1 unfreed memory blocks : 20
True heap size : 32768
True free heap : 32512
Should be : 32552
Call trace for block $00007F5BCC478100 size 20
$00000000004010D5 TEST, line 10 of project1.lpr
$0000000000401144 main, line 17 of project1.lpr
Ich bin darauf gestossen, weil ich etwas ausprobieren wollte.