paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 18:01:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed memleak of LazDocPathList

Browse Source 
git-svn-id: trunk@7832 -
This commit is contained in:
vincents 2005-09-26 10:01:00 +00:00
parent ebdafeb975
commit 8cb0cd4a93
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ideintf/projectintf.pas
View File

@ -481,6 +481,8 @@ type
{ TLazProject - interface class to a Lazarus project }
{ TLazProject }
TLazProject = class(TPersistent)
private
FLazCompilerOptions: TLazCompilerOptions;
@ -508,6 +510,9 @@ type
procedure SetSessionModified(const AValue: boolean); virtual;
public
constructor Create(ProjectDescription: TProjectDescriptor); virtual;
{$IFDEF EnableLazDoc}
destructor Destroy; override;
{$ENDIF}
function CreateProjectFile(const Filename: string
): TLazProjectFile; virtual; abstract;
procedure AddFile(ProjectFile: TLazProjectFile;
@ -1014,6 +1019,14 @@ begin
{$ENDIF}
end;
{$IFDEF EnableLazDoc}
destructor TLazProject.Destroy;
begin
FreeAndNil(FLazDocPathList);
inherited Destroy;
end;
{$ENDIF}
function TLazProject.ShortDescription: string;
begin
if Title<>'' then