paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 01:41:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed memleak in wsclasses

Browse Source 
git-svn-id: trunk@5434 -
This commit is contained in:
mattias 2004-04-26 19:37:04 +00:00
parent 0ce0cd43a4
commit 0ad6281f00
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lcl/widgetset/wslclclasses.pp
View File

@ -154,6 +154,18 @@ begin
Node^.WSClass := AWSComponent;
end;
procedure FreeRegistration;
var
Node: PClassNode;
begin
while (MComponentIndex.Count>0) do begin
Node := PClassNode(MComponentIndex.Objects[MComponentIndex.Count-1]);
Dispose(Node);
MComponentIndex.Delete(MComponentIndex.Count-1);
end;
FreeAndNil(MComponentIndex);
FreeAndNil(MWSRegisterIndex);
end;
initialization
MComponentIndex := TStringList.Create;
@ -165,7 +177,6 @@ initialization
MWSRegisterIndex.Duplicates := dupError;
finalization
FreeAndNil(MComponentIndex);
FreeAndNil(MWSRegisterIndex);
FreeRegistration;
end.