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

IDE: package links: fixed cleaning up duplicate ids for same lpk file

Browse Source 
git-svn-id: branches/fixes_1_4@47665 -
This commit is contained in:
mattias 2015-02-09 19:03:23 +00:00
parent 5bc33bf3f1
commit e80945cb2a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packager/packagelinks.pas
View File

@ -631,7 +631,7 @@ begin
debugln(['Warning: TPackageLinks.UpdateUserLinks two links for file: ',NewPkgLink.LPKFilename,' A=',OtherLink.IDAsString,' B=',NewPkgLink.IDAsString]);
if OtherLink.LastUsed<NewPkgLink.LastUsed then begin
debugln(['Warning: TPackageLinks.UpdateUserLinks removing older link ',OtherLink.IDAsString]);
FUserLinksSortID.Delete(OtherNode);
FUserLinksSortID.RemovePointer(OtherLink);
FUserLinksSortFile.Delete(OtherNode);
OtherLink.Release;
end else begin