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

gtk2: initialize OldTreeSelection (fix potential sigsegv). Remove double assignments.

Browse Source 
git-svn-id: trunk@34408 -
This commit is contained in:
blikblum 2011-12-25 18:06:56 +00:00
parent 82d15da16d
commit 21f19f200b
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/gtk2/gtk2wscustomlistview.inc
View File

@ -214,7 +214,6 @@ begin
end;
end;
g_list_free(Widgets^.OldTreeSelection);
Widgets^.OldTreeSelection := nil;
Widgets^.OldTreeSelection := g_list_alloc;
// we must iterate because of multiselections
for i := 0 to g_list_length(List) - 1 do
@ -253,7 +252,6 @@ begin
end;
end;
g_list_free(Widgets^.OldTreeSelection);
Widgets^.OldTreeSelection := nil;
Widgets^.OldTreeSelection := g_list_alloc;
end;
end;
@ -1563,6 +1561,7 @@ begin
begin
ItemCache := TStringList.Create;
Images := nil;
OldTreeSelection := nil;
{$IFDEF USEORIGTREEMODEL}
PtrType := G_TYPE_POINTER;
@ -1626,8 +1625,10 @@ begin
Widgets^.ItemCache.Free;
Widgets^.ItemCache := nil;
if Widgets^.OldTreeSelection <> nil then
begin
g_list_free(Widgets^.OldTreeSelection);
Widgets^.OldTreeSelection := nil;
Widgets^.OldTreeSelection := nil;
end;
if Widgets^.Images <> nil then
begin
for i := 0 to Widgets^.Images.Count-1 do