Freemem Опции

[ангел]

Ошибка у меня возникает при вызове этой процедуры...
Либо указатель пустой или число освобождамых байтов выходит за границы кучи ???
вот код:

procedure Push(E:ElementType;var S:Stack);
var
P:pStackElem;
begin
	 P:=new(pStackElem);
	 GetMem(P^.Elem,SizeOf(ElementType));
	 Move(E,P^.Elem,SizeOf(ElementType));
	 P^.Next:=S.Top;
	 S.Top:=P;
	 S.Size:=S.Size+Sizeof(ElementType)+SizeOf(pStackElem)*2+SizeOf(Pointer);
end;

procedure Pop(S:Stack;var E:ElementType);
var top:pStackElem;
begin
	 if S.Top<>nil then
	 begin
	 Move(S.Top^.Elem,E,SizeOf(ElementType));
	 top:=S.Top^.Next;
		 FreeMem(S.Top^.Elem,SizeOf(ElementType));{Вот здесь и возникает ОШИБКА!!!}
	 dispose(S.Top);
	 S.Top:=top;
	 S.Size:=S.Size-Sizeof(ElementType)-SizeOf(pStackElem)*2-SizeOf(Pointer);
	 end
end;

[Lapp]

Ты в операторе Move используешь указатель вместо самой величины. Этим самым ты портишь пойнтер.

procedure Push(E:Element;var S:Stack);
var
  P:pStackElem;
begin
  P:=new(pStackElem);
  GetMem(P^.Elem,SizeOf(Element));
  Move(E,P^.Elem^,SizeOf(Element));  {было Move(E,P^.Elem,SizeOf(ElementType));}
  P^.Next:=S.Top;
  S.Top:=P;
  S.Size:=S.Size+Sizeof(Element)+SizeOf(pStackElem)*2+SizeOf(Pointer);
end;

procedure Pop(S:Stack;var E:Element);
var
  top:pStackElem;
begin
  if S.Top<>nil then begin
    Move(S.Top^.Elem^,E,SizeOf(Element));  {было Move(S.Top^.Elem,E,SizeOf(Element));} 
    top:=S.Top^.Next;
    FreeMem(S.Top^.Elem,SizeOf(Element));{Вот здесь и возникает ОШИБКА!!!}
    dispose(S.Top);
    S.Top:=top;
    S.Size:=S.Size-Sizeof(Element)-SizeOf(pStackElem)*2-SizeOf(Pointer);
  end
end;

[int64]

Ты в операторе Move используешь указатель вместо самой величины. Этим самым ты портишь пойнтер.

ужас! какая глупая ошибка моя ... невнимательность (((
не таким образом я "разжевал" параметры процедуры Move )))
большое спасибо вам, lapp!