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

IDE: less verbosity

Browse Source 
git-svn-id: trunk@47681 -
This commit is contained in:
mattias 2015-02-10 15:42:28 +00:00
parent e8d5dfa7ba
commit 6c8327066e
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
packager/packagelinks.pas
View File

@ -41,7 +41,7 @@ interface
uses
Classes, SysUtils, Laz2_XMLCfg, FileProcs, CodeToolManager, CodeToolsStructs,
LCLProc, FileUtil, AvgLvlTree, lazutf8classes, LazFileUtils, MacroIntf,
PackageIntf, IDEProcs, EnvironmentOpts, PackageDefs, LazConf;
PackageIntf, IDEProcs, EnvironmentOpts, PackageDefs, LazConf, IDECmdLine;
const
PkgLinksFileVersion = 3;
@ -635,14 +635,17 @@ begin
if OtherNode<>nil then begin
// a link to the same file
OtherLink:=TPackageLink(OtherNode.Data);
debugln(['Warning: TPackageLinks.UpdateUserLinks two links for file: ',NewPkgLink.LPKFilename,' A=',OtherLink.IDAsString,' B=',NewPkgLink.IDAsString]);
if ConsoleVerbosity>0 then
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]);
if ConsoleVerbosity>0 then
debugln(['Warning: TPackageLinks.UpdateUserLinks ignoring older link ',OtherLink.IDAsString]);
FUserLinksSortID.RemovePointer(OtherLink);
FUserLinksSortFile.Delete(OtherNode);
OtherLink.Release;
end else begin
debugln(['Warning: TPackageLinks.UpdateUserLinks ignoring older link ',NewPkgLink.IDAsString]);
if ConsoleVerbosity>0 then
debugln(['Warning: TPackageLinks.UpdateUserLinks ignoring older link ',NewPkgLink.IDAsString]);
NewPkgLink.Release;
continue;
end;