Unerklärlicher Speicherfresser

[peterbelow]

Zitat von TurboMagic:

Hallo,

ich schreibe gerade mittels Tokyo ein Programm, welches Zeiger auf einen Recordtyp anlegt.

Beispiel:

Delphi-Quellcode:

type
  TAuthorizationLevel = (alNone, alEverybody, al1, al2, al3);

  TMyRegister = record
                  Data         : Word;
                  WorkingCopy  : Word;
                  Authorization: TAuthorizationLevel;
                  Data1        : Word;
                  Data2        : Word;
                end;
  PMyRegister = ^TMyRegister;

var
  Reg : PMyRegister;
  i : Integer;

begin
  for i := 0 to 895 do
    New(Reg);
end.

Der Code produziert so natürlich ein Speicherleck, er illustriert aber das Problem
sehr gut. Im eigentlich zu schreibenden Programm ausgeführt, führt er dazu, dass
der Taskmanager (ja, der ist da etwas ungenau, die Differenz ist aber frappierend!)
einen Speicherverbrauch von ca. 4K pro PMyRegister anzeigt, insgesamt also 3620K.

Extrahiere ich den betreffenden Code in ein einfaches Demo Programm (die Schleife im
zu schreibenden Programm macht aber NICHTS anders!!!) und führe es aus, brauchen die
895 PMyRegister zusammen nur 20K, ein einzelnes PMyRegister also ca. 22 Byte.

Beide Programme sind mit $A8 Speicher ausgerichtet.

Woran kann es liegen, dass so ein Record Eintrag einmal ca. 22 Byte benötigt und im
anderen Programm, trotz gleicher Definition, ca. 4K.

Grüße
TurboMagic

Das sieht so aus, als wenn der Memory manager für jedes New einen 4K Speicherblock vom OS anfordert anstelle den vorherigen zu partitionieren. Sieh Dir mal das Ergebnis von GetMemoryManagerState vor und nach der Testschleife an. Falls Du nicht den default memory manager verwendest check mal alles, was zur Konfiguration des MMs gehört. Soweit ich mich erinnere gibt es da eine Möglichkeit, dem MM zu sagen, was er als "large block" ansehen soll. Wenn das aus irgendwelchen Gründen auf 0 stehen sollte würde es die Symptome erklären...