Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / fpc-devel / 2006-11

AW: AW: Bug 0007281 / MemLeak with interfaces

1 message · 1 person ·

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Helmut Hartl
I merged the patch but help us to test 2.1.1 as much as possible

based

so

we can get 2.2.0 out asap (head is currently broken due to heavy rewrites).

Thank you very much form merging. -> 2.0.4 Fixes looks better now... :-)

The perfect solution for your users would be if you run daily

regression

tests with trunk and tell users which revisions work good with Zeos (currently 5191 is a good bet) and tell us if you get worse test

results.

I found a very strange memory leak occurring with 2.1.1.

Bug is: 0007776 / FPC Revision 5191
http://www.freepascal.org/mantis/view.php?id=7776

--------------------------------
program zeos_memhole2;
{$mode objfpc}{$H+}
Function dlopen(Name : PChar; Flags : longint) : Pointer; cdecl;
external 'dl'; //A
Type
  TTest=class
   function Find(const Value:String):TTest;
  end;
 { TTest }
 function TTest.Find(const Value: String): TTest;
 // var i:integer; //C
 begin
  if (Length(Value) > 1) and (Result  nil) then begin
   result:=Find(Copy(Value, 2, Length(Value) - 1));
   // x:=Find(Copy(Value, 2, Length(Value) - 1)); // B
   // result:=x;
  end;
 end;
 var TT:TTest;
begin
 TT:=TTest.Create;
 TT.Find('AA');
 TT.Free;
end.
--------------------------------

Comment Line //A or uncomment line //B or //C
and the problem is "fixed" :-)

helmut

Reply by email