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

IDE: reduced debugging

Browse Source 
git-svn-id: trunk@25459 -
This commit is contained in:
mattias 2010-05-16 12:02:03 +00:00
parent 01aa7b2e38
commit 6f703c73b1
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packager/packagelinks.pas
View File

@ -590,10 +590,10 @@ begin
if CompareFilenames(OldPkgLink.GetEffectiveFilename,
NewPkgLink.GetEffectiveFilename)=0
then begin
// 2 links to the same file -> delete the older
debugln('TPackageLinks.RemoveOldUserLinks',
' Newer=',NewPkgLink.IDAsString,'=',dbgs(Pointer(NewPkgLink)),
' Older=',OldPkgLink.IDAsString,'=',dbgs(Pointer(OldPkgLink)));
// two links to the same file -> delete the older
//debugln('TPackageLinks.RemoveOldUserLinks',
// ' Newer=',NewPkgLink.IDAsString,'=',dbgs(Pointer(NewPkgLink)),
// ' Older=',OldPkgLink.IDAsString,'=',dbgs(Pointer(OldPkgLink)));
FUserLinksSortID.RemovePointer(OldPkgLink);
FUserLinksSortFile.RemovePointer(OldPkgLink);
OldPkgLink.Release;