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

IDE: Make the --quiet parameter actually quiet. Quiet means ConsoleVerbosity=-1. Formatting.

Browse Source 
git-svn-id: trunk@59257 -
This commit is contained in:
juha 2018-10-06 19:32:46 +00:00
parent c04a9e4739
commit 66d593c327
4 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/buildmanager.pas
View File

@ -2551,7 +2551,7 @@ begin
// compute macro values // compute macro values
if ParseOpts.MacroValuesParsing then begin if ParseOpts.MacroValuesParsing then begin
if ConsoleVerbosity>=-1 then if ConsoleVerbosity>=0 then
debugln(['Warning: (lazarus) [TBuildManager.OnGetBuildMacroValues] cycle computing macros of ',dbgsname(Options.Owner)]); debugln(['Warning: (lazarus) [TBuildManager.OnGetBuildMacroValues] cycle computing macros of ',dbgsname(Options.Owner)]);
exit; exit;
end; end;

2
ide/exttools.pas
View File

@ -614,7 +614,7 @@ begin
Thread.Tool:=Self; Thread.Tool:=Self;
FThread.FreeOnTerminate:=true; FThread.FreeOnTerminate:=true;
end; end;
if ConsoleVerbosity>=-1 then begin if ConsoleVerbosity>=0 then begin
debugln(['Info: (lazarus) Execute Title="',Title,'"']); debugln(['Info: (lazarus) Execute Title="',Title,'"']);
debugln(['Info: (lazarus) Working Directory="',Process.CurrentDirectory,'"']); debugln(['Info: (lazarus) Working Directory="',Process.CurrentDirectory,'"']);
debugln(['Info: (lazarus) Executable="',Process.Executable,'"']); debugln(['Info: (lazarus) Executable="',Process.Executable,'"']);

2
ide/main.pp
View File

@ -6766,7 +6766,7 @@ begin
if (AReason = crRun) if (AReason = crRun)
and (not (pfAlwaysBuild in Project1.Flags)) then begin and (not (pfAlwaysBuild in Project1.Flags)) then begin
if Result=mrNo then begin if Result=mrNo then begin
debugln(['Error: (lazarus) [TMainIDE.DoBuildProject] MainBuildBoss.DoCheckIfProjectNeedsCompilation nothing to be done']); debugln(['Note: (lazarus) [TMainIDE.DoBuildProject] MainBuildBoss.DoCheckIfProjectNeedsCompilation nothing to be done']);
Result:=mrOk; Result:=mrOk;
// continue for now, check if 'Before' tool is required // continue for now, check if 'Before' tool is required
NoBuildNeeded:= true; NoBuildNeeded:= true;

4
packager/packagesystem.pas
View File

@ -3340,7 +3340,7 @@ begin
continue; continue;
end; end;
if FileAgeCached(Filename)>StateFileAge then begin if FileAgeCached(Filename)>StateFileAge then begin
if ConsoleVerbosity>=-1 then if ConsoleVerbosity>=0 then
debugln(['Hint: (lazarus) global unit "',Filename,'" is newer than state file of package ',ID]); debugln(['Hint: (lazarus) global unit "',Filename,'" is newer than state file of package ',ID]);
Note+='Global unit "'+Filename+'" is newer than state file of '+ID+':'+LineEnding Note+='Global unit "'+Filename+'" is newer than state file of '+ID+':'+LineEnding
+' Unit age='+FileAgeToStr(FileAgeCached(Filename))+LineEnding +' Unit age='+FileAgeToStr(FileAgeCached(Filename))+LineEnding
@ -4696,7 +4696,7 @@ begin
if FileIsExecutableCached(Executable) then begin if FileIsExecutableCached(Executable) then begin
if (not NeedFPCMake) if (not NeedFPCMake)
and (FileAgeUTF8(MakefileFPCFilename)<FileAgeCached(Executable)) then begin and (FileAgeUTF8(MakefileFPCFilename)<FileAgeCached(Executable)) then begin
if ConsoleVerbosity>=-1 then if ConsoleVerbosity>=0 then
debugln(['Hint: (lazarus) [TLazPackageGraph.WriteMakeFile] "',Executable,'" is newer than "',MakefileFPCFilename,'"']); debugln(['Hint: (lazarus) [TLazPackageGraph.WriteMakeFile] "',Executable,'" is newer than "',MakefileFPCFilename,'"']);
NeedFPCMake:=true;// fpcmake is newer than Makefile.fpc NeedFPCMake:=true;// fpcmake is newer than Makefile.fpc
end; end;