Heap ermitteln

[Mathias]

Ich will prüfen, ob ich schon brav mein Heap wieder frei gebe. Dazu habe ich folgendes probiert, aber es kommt überall "0".

Code: Alles auswählen

var
  status: TFPCHeapStatus;
  p: Pointer;
begin
  status := GetFPCHeapStatus;
  WriteLn('Free:', status.CurrHeapFree);
  WriteLn('Size:', status.CurrHeapSize);
  WriteLn('Used:', status.CurrHeapUsed);
  Getmem(p, 1024);
  WriteLn('Free:', status.CurrHeapFree);
  WriteLn('Size:', status.CurrHeapSize);
  WriteLn('Used:', status.CurrHeapUsed);
end.         

Was mache ich falsch ?

[af0815]

Nur eine Zusatzfrage - welche Plattform ? Win/Linux/Embedded ?

[Mathias]

Nur eine Zusatzfrage - welche Plattform ? Win/Linux/Embedded ?

Linux 64Bit.

[af0815]

Die Frage ist, ob der FPCHeapStatus der richtige ist oder eher THeapStatus mit GetHeapStatus https://www.freepascal.org/docs-html/rt ... tatus.html

[theo]

Beim mir geht das auf Lazarus 2.3.0 (rev main-2_3-2199-g898f4009c0) FPC 3.2.2 x86_64-linux-gtk2
Hab's allerdings in ein Formular gelegt.
Du musst natürlich ein zweites Mal GetFPCHeapStatus abfragen:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var
  status,status2: TFPCHeapStatus;
  p: Pointer;
begin
  status := GetFPCHeapStatus;
  WriteLn('Free:', status.CurrHeapFree);
  WriteLn('Size:', status.CurrHeapSize);
  WriteLn('Used:', status.CurrHeapUsed);
  Getmem(p, 1024);
  status2 := GetFPCHeapStatus;
  WriteLn('Free:', status2.CurrHeapFree);
  WriteLn('Size:', status2.CurrHeapSize);
  WriteLn('Diff:', status2.CurrHeapUsed-status.CurrHeapUsed);
end;     

Free:1759072
Size:2326528
Used:567456
Free:1758016
Size:2326528
Diff:1056

[PascalDragon]

Ich will prüfen, ob ich schon brav mein Heap wieder frei gebe. Dazu habe ich folgendes probiert, aber es kommt überall "0".

Nutze nicht Get(FPC)HeapStatus, sondern kompiliere deine Anwendung stattdessen mit -gh, was die HeapTrc Unit aktiviert. Get(FPC)HeapStatus ist ein Überbleibsel aus der TP Zeit und berichtet eventuell nicht den wirklichen Zustand des Heaps. HeapTrc andererseits meldet sich beim Programmende, wenn du was nicht freigegeben hast.

[Mathias]

Code: Alles auswählen

44 memory blocks allocated : 3122/3208
44 memory blocks freed     : 3122/3208
0 unfreed memory blocks : 0
True heap size : 131072
True free heap : 131072

So wie es scheint, habe ich in meinem Klassengewurstelt sauber aufgeräumt.
Mit der Unit HeapTrc geht es super.

Get(FPC)HeapStatus ist ein Überbleibsel aus der TP Zeit

Ich habe es einem FreeVison-Programm abgeguckt.

[PascalDragon]

Get(FPC)HeapStatus ist ein Überbleibsel aus der TP Zeit

Ich habe es einem FreeVison-Programm abgeguckt.

Und die meisten existierenden FreeVision Anwendungen stammen aus der TP Zeit...