paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 07:09:38 +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

8
ide/buildmanager.pas
View File

@ -2244,7 +2244,7 @@ begin
if ParseOpts.MacroValuesParsing then begin
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;
end;
@ -2259,7 +2259,8 @@ begin
if Values<>nil then
Result.Assign(Values);
{$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}
if not ParseOpts.MacroValues.Execute(Options.Conditionals) then begin
if ConsoleVerbosity>=0 then
@ -2268,7 +2269,8 @@ begin
end;
{$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}
// the macro values of the active project take precedence