paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 13:19:28 +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: trunk@47664 -
This commit is contained in:
mattias 2015-02-09 19:01:52 +00:00
parent d4a19485ed
commit c6a0e86cd5
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

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