Утечка памяти Опции

[klem4]

Ухх что-то мозг уже не варит, куда память пропадает ?

Поменял New/Dispose на GetMem/FreeMem не помогло.

{$mode objfpc}

uses crt;

type

  TData = integer;

  PList = ^TList;

  TList = record
    data : TData;
    next : PList;
  end;

  TStack = object

    public

      constructor Init;
      destructor  Done;

      procedure Push(item : TData);
      function  Pop : TData;

    private

      First, Last : PList;
  end;

constructor TStack.Init;
begin
  First := nil;
  Last  := nil;
end;

destructor TStack.Done;
begin
  FreeMem(First, sizeof(TList));
  FreeMem(Last, sizeof(TList));
end;

procedure TStack.Push(item : TData);
var
  temp : PList;
begin

  GetMem(temp, sizeof(TList));

  temp^.data := item;
  temp^.next := nil;

  if First = nil then begin
    First := temp;
    Last  := temp;
  end else begin
    Last^.next := temp;
    Last := temp;
  end;
end;

function TStack.Pop : TData;
var
  temp : PList;
begin

  if First = nil then begin
    writeln('nil');
    exit;
  end;

  new(temp);

  temp := First;

  result := First^.Data;
  First  := First^.Next;

  FreeMem(temp, sizeof(TList)); // ===================> ТУТ память не освобождается :(
end;

var

  s : TStack;

begin
  clrscr;

  writeln('Free Before = ', GetHeapStatus.TotalFree);

  s.Init;

  s.Push(3);
  s.Push(12);
  s.Push(4);

  s.Pop;
  s.Pop;
  s.Pop;

  s.Done;

  writeln('Free After  = ', GetHeapStatus.TotalFree);

  readln;
end.

[volvo]

klem4, ты думаешь, это - все?



У меня твоя программа вылетает с таким вот ужасом:

00403786 SYSTEM_HANDLEERRORADDRFRAME$LONGINT$POINTER$POINTER ()
004021DC SYSTEM_HANDLEERRORFRAME$LONGINT$POINTER ()
00404A28 SYSTEM_HANDLEERROR$LONGINT ()
0040337B SYSTEM_SYSFREEMEMSIZE$POINTER$LONGINT$$LONGINT ()
0040146A SYSTEM_FREEMEM$POINTER$LONGINT ()
__65098.pp(39) TSTACK__DONE (vmt=$0, this={FIRST = $0, LAST = $8b47c, _vptr$ = {$40902c, $61120f7c}})
__65098.pp(101) main ()

destructor TStack.Done;
begin
  FreeMem(First, sizeof(TList)); { < --- 39 строка }
  FreeMem(Last, sizeof(TList));
end;

А если сделать так:

destructor TStack.Done;
begin
  if assigned(first) then
    FreeMem(First, sizeof(TList));
  if assigned(last) then
    FreeMem(Last, sizeof(TList));
end;

, то не вылетает, НО:

Free Before = 65456
Free After = 65472

Твои действия?