[fpc-pascal] Memory leak in GetEnumerator

[Xiangrong Fang]

Hi All,

I used HeapTrc on my TTreap class:

https://github.com/xrfang/fpcollection/blob/master/src/units/treap.pas

It reported memory leak in the following procedure:


function TTreap.GetEnumerator: TTreap;
begin
  Result := TTreap.Create;  //<-- memory leak here
  Result.ProxyFor := Self;
  ... ...
end;

Typical usage of the TTreap enumerator is:

 for n in aTreap do begin
   //do something with n
 end;

My question is: will the for-loop automatically free the enumerator after
usage?  How to fix leaks in my ttreap class?

Thanks a lot!

Xiangrong
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20131227/9f3d3866/attachment.html>