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

IDE: macro loop marker

Browse Source 
git-svn-id: trunk@44091 -
This commit is contained in:
mattias 2014-02-16 01:34:41 +00:00
parent c0c6cfb914
commit ee2a512b9b
2 changed files with 21 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/compileroptions.pp
View File

@ -1919,7 +1919,8 @@ var
OutFilename: String; OutFilename: String;
begin begin
Result:=TargetFilename; Result:=TargetFilename;
IDEMacros.SubstituteMacros(Result); if not IDEMacros.SubstituteMacros(Result) then
exit;
if (Result<>'') and FilenameIsAbsolute(Result) then begin if (Result<>'') and FilenameIsAbsolute(Result) then begin
// fully specified target filename // fully specified target filename
end else if Result<>'' then begin end else if Result<>'' then begin

7
ide/transfermacros.pp
View File

@ -311,13 +311,13 @@ begin
inc(InUse); inc(InUse);
if InUse>MaxUsePerMacro then begin if InUse>MaxUsePerMacro then begin
// cycle detected // cycle detected
MacroStr:='<CYCLE:'+MacroName+'>'; Handled:=true;
Result:=false; MacroStr:='<MACRO-CYCLE:'+MacroName+'>';
exit;
end; end;
end; end;
end; end;
end; end;
if not Handled then begin
if fBusy=nil then fBusy:=TStringList.Create; if fBusy=nil then fBusy:=TStringList.Create;
try try
fBusy.Add(MacroName); fBusy.Add(MacroName);
@ -338,6 +338,7 @@ begin
fBusy.Delete(fBusy.Count-1); fBusy.Delete(fBusy.Count-1);
end; end;
MacroStr:=MacroParam; MacroStr:=MacroParam;
end;
// mark unhandled macros // mark unhandled macros
if not Handled and MarkUnhandledMacros then begin if not Handled and MarkUnhandledMacros then begin
MacroStr:=Format(lisTMunknownMacro, [MacroStr]); MacroStr:=Format(lisTMunknownMacro, [MacroStr]);