paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-07 19:59:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: debug idemacros

Browse Source 
git-svn-id: trunk@40757 -
This commit is contained in:
mattias 2013-04-08 22:14:19 +00:00
parent 7c72271f45
commit 736b87b9af
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/buildmanager.pas
View File

@ -2244,7 +2244,7 @@ begin
if ParseOpts.MacroValuesParsing then begin if ParseOpts.MacroValuesParsing then begin
if ConsoleVerbosity>=-1 then if ConsoleVerbosity>=-1 then
debugln(['TBuildManager.OnGetBuildMacroValues circle computing macros of ',dbgsname(Options.Owner)]); debugln(['TBuildManager.OnGetBuildMacroValues cycle computing macros of ',dbgsname(Options.Owner)]);
exit; exit;
end; end;
@ -2259,7 +2259,8 @@ begin
if Values<>nil then if Values<>nil then
Result.Assign(Values); Result.Assign(Values);
{$IFDEF VerboseBuildMacros} {$IFDEF VerboseBuildMacros}
Result.WriteDebugReport('TPkgManager.OnGetBuildMacroValues before execute: '+dbgstr(Options.Conditionals),' '); if (Options.Owner is TLazPackage) and (TLazPackage(Options.Owner).Name='LCL') then
Result.WriteDebugReport('TPkgManager.OnGetBuildMacroValues before execute: '+dbgstr(Options.Conditionals),' ');
{$ENDIF} {$ENDIF}
if not ParseOpts.MacroValues.Execute(Options.Conditionals) then begin if not ParseOpts.MacroValues.Execute(Options.Conditionals) then begin
if ConsoleVerbosity>=0 then if ConsoleVerbosity>=0 then
@ -2268,7 +2269,8 @@ begin
end; end;
{$IFDEF VerboseBuildMacros} {$IFDEF VerboseBuildMacros}
Result.WriteDebugReport('TPkgManager.OnGetBuildMacroValues executed: '+dbgstr(Options.Conditionals),' '); if (Options.Owner is TLazPackage) and (TLazPackage(Options.Owner).Name='LCL') then
Result.WriteDebugReport('TPkgManager.OnGetBuildMacroValues executed: '+dbgstr(Options.Conditionals),' ');
{$ENDIF} {$ENDIF}
// the macro values of the active project take precedence // the macro values of the active project take precedence