paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 21:18:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fix return value of IgnoredOption in all options parser.

Browse Source 
git-svn-id: trunk@42243 -
This commit is contained in:
juha 2013-07-30 15:10:27 +00:00
parent 989ab16b3b
commit 63f070abd3
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/compiler.pp
View File

@ -409,9 +409,9 @@ begin
Inc(Result);
end;
function IgnoredOption(aOpt: string): Boolean;
function IsIgnoredOption(aOpt: string): Boolean;
begin
if Length(aOpt) < 2 then Exit;
if Length(aOpt) < 2 then Exit(False);
// Ignore : all file names and paths
// executable path
Result := aOpt[2] in ['F', 'e'];
@ -464,7 +464,7 @@ begin
end;
if Pos('fpc -i', fDescription) > 0 then
fEditKind := oeList; // Values will be got later.
if fOwnerGroup.fIgnored or IgnoredOption(fOption) then
if fOwnerGroup.fIgnored or IsIgnoredOption(fOption) then
fIgnored := True;
end;