paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-31 01:47:43 +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

7
packager/packagelinks.pas
View File

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