From 5c41a80af782d5f6d8dfb36e5ce61fa935ed0580 Mon Sep 17 00:00:00 2001 From: graemeg Date: Tue, 25 Mar 2008 07:20:22 +0000 Subject: * Fixed a memory leak in the TfpgFileListBase class. --- src/corelib/gfxbase.pas | 1 + src/corelib/x11/fpgfx_package.pas | 7 ++++--- 2 files changed, 5 insertions(+), 3 deletions(-) (limited to 'src/corelib') diff --git a/src/corelib/gfxbase.pas b/src/corelib/gfxbase.pas index f47f9b04..7023930f 100644 --- a/src/corelib/gfxbase.pas +++ b/src/corelib/gfxbase.pas @@ -1997,6 +1997,7 @@ begin ((e.EntryType = etFile) and not FileNameMatches(e.Name, FFileMask)) then begin // do not add this entry + e.Free; Result := nil; end else Result := e; diff --git a/src/corelib/x11/fpgfx_package.pas b/src/corelib/x11/fpgfx_package.pas index ea32e8cc..d7813dee 100644 --- a/src/corelib/x11/fpgfx_package.pas +++ b/src/corelib/x11/fpgfx_package.pas @@ -8,9 +8,10 @@ interface uses x11_xft, x11_keyconv, gfxbase, gfx_x11, fpgfx, gfx_stdimages, gfx_imgfmt_bmp, - gfx_widget, gfx_UTF8utils, gfx_extinterpolation, gfx_cmdlineparams, gfx_utils, - gfx_popupwindow, gfx_impl, gfx_command_intf, gfx_wuline, gfx_imagelist, - gfx_constants, gfx_pofiles, gfx_translations, gfx_stringhashlist; + gfx_widget, gfx_UTF8utils, gfx_extinterpolation, gfx_cmdlineparams, + gfx_utils, gfx_popupwindow, gfx_impl, gfx_command_intf, gfx_wuline, + gfx_imagelist, gfx_constants, gfx_pofiles, gfx_translations, + gfx_stringhashlist; implementation -- cgit v1.2.3-70-g09d2