paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 20:39:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Show message to inform why depending packages are installed

Browse Source 
git-svn-id: trunk@16897 -
This commit is contained in:
joost 2011-02-08 17:10:58 +00:00
parent 8bbc335b88
commit 4e18e505f6
3 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
utils/fppkg/pkgcommands.pp
View File

@ -389,6 +389,7 @@ begin
FindBrokenPackages(SL);
if SL.Count=0 then
break;
pkgglobals.Log(vlProgres,SWarnReinstallDependent);
for i:=0 to SL.Count-1 do
begin
ExecuteAction(SL[i],'build');

4
utils/fppkg/pkgglobals.pp
View File

@ -52,11 +52,11 @@ Const
);
Type
TLogLevel = (vlError,vlWarning,vlInfo,vlCommands,vlDebug);
TLogLevel = (vlError,vlWarning,vlInfo,vlCommands,vlDebug,vlProgres);
TLogLevels = Set of TLogLevel;
const
DefaultLogLevels = [vlError,vlWarning];
DefaultLogLevels = [vlError,vlWarning, vlProgres];
AllLogLevels = [vlError,vlWarning,vlCommands,vlInfo];
type

1
utils/fppkg/pkgmessages.pp
View File

@ -109,6 +109,7 @@ Resourcestring
SDbgPackageDependencyOtherTarget = 'Dependency on package %s is not for %s';
SDbgObsoleteDependency = 'Obsolete dependency found on package %s';
SWarnReinstallDependent = 'Re-install packages which are dependent on just installed packages';
implementation