Hello,

I wrote a simple test program with SQLite3db

program SqliteMemoryLeak;
{$mode objfpc}{$H+}

uses
HeapTrc, {$IFDEF UNIX}{$IFDEF UseCThreads}CThreads,{$ENDIF}{$ENDIF}

   Classes, SysUtils, SQLite3db;

var
   X: TSQLite;
   S: TStringList;
begin
   try
     S := TStringList.Create;
     X := TSqlite.Create('test.sqlite');
     X.Query('SELECT * FROM FIRM', S);
   finally
     FreeAndNil(X);
     FreeAndNil(S);
   end;
end.

It works, but the heap trace shows a bunch of memory leaks. The trace could be found under:
http://michael-fuchs.net/newsgroups/fpc-pascal/sqlitememoryleak.trc

Even this produces an unfreed memory message:

begin
   try
     X := TSqlite.Create('test.sqlite');
   finally
     FreeAndNil(X);
   end;
end.

Is this a bug or am I doing something wrong?

Michael

Michael Fuchs wrote

... It works, but the heap trace shows a bunch of memory leaks. ... Is this a bug or am I doing something wrong?

For information: I created an entry in the bug tracker for this problem:

http://bugs.freepascal.org/view.php?id=23247

Michael

Hello,

I found no possibility to contact a person via Mantis.

Can anybody apply this patch to the trunk?

Done.

Michael.

Michael Van Canneyt wrote

> Can anybody apply this patch to the trunk? Done.

Thank you.

Michael