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

IDE: ignore some more options in all options parser.

Browse Source 
git-svn-id: trunk@42339 -
This commit is contained in:
juha 2013-08-05 07:11:44 +00:00
parent 3cba68dc29
commit 37c895e908
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/compiler.pp
View File

@ -370,10 +370,14 @@ end;
function IsIgnoredOption(aOpt: string): Boolean; function IsIgnoredOption(aOpt: string): Boolean;
begin begin
if Length(aOpt) < 2 then Exit(False); if Length(aOpt) < 2 then Exit(False);
// Ignore : * all file names and paths // Ignore : * information
// * all file names and paths
// * executable path // * executable path
// * change name of produced executable
// * define and undefine // * define and undefine
Result := aOpt[2] in ['F', 'e', 'd', 'u']; // * set language mode
// * target operating system
Result := aOpt[2] in ['i', 'F', 'e', 'o', 'd', 'u', 'M', 'T'];
end; end;
{ TCompilerOpt } { TCompilerOpt }
@ -588,7 +592,10 @@ begin
begin begin
Opt := TCompilerOpt(fCompilerOpts[i]); Opt := TCompilerOpt(fCompilerOpts[i]);
if Opt.Value <> '' then if Opt.Value <> '' then
s := s + Opt.Option; case Opt.EditKind of
oeSetElem: s := s + Opt.Option;
oeSetNumber: s := s + Opt.Value;
end;
end; end;
if s <> '' then if s <> '' then
Result := Option + s; Result := Option + s;