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

restore packager AV fix

Browse Source 
git-svn-id: trunk@12184 -
This commit is contained in:
paul 2007-09-26 07:02:39 +00:00
parent 1620b29272
commit 430c74310a
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packager/packagelinks.pas
View File

@ -818,6 +818,7 @@ begin
OldLink:=TPackageLink(ANode.Data); OldLink:=TPackageLink(ANode.Data);
FUserLinksSortID.Delete(ANode); FUserLinksSortID.Delete(ANode);
FUserLinksSortFile.Remove(OldLink); FUserLinksSortFile.Remove(OldLink);
if APackageID <> OldLink then
OldLink.Free; OldLink.Free;
Modified:=true; Modified:=true;
end; end;
@ -826,9 +827,11 @@ begin
if ANode<>nil then begin if ANode<>nil then begin
OldLink:=TPackageLink(ANode.Data); OldLink:=TPackageLink(ANode.Data);
FGlobalLinks.Delete(ANode); FGlobalLinks.Delete(ANode);
if APackageID <> OldLink then
OldLink.Free; OldLink.Free;
Modified:=true; Modified:=true;
end; end;
APackageID.Free;
EndUpdate; EndUpdate;
end; end;