paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-28 12:48:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: remove useless param in options parser.

Browse Source 
git-svn-id: trunk@42109 -
This commit is contained in:
juha 2013-07-16 09:43:06 +00:00
parent 3bef6f6695
commit 1b54c67e54
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/compiler.pp
View File

@ -463,7 +463,7 @@ end;
procedure TCompilerOptSet.AddOptions(aDescr: string; aIndent: integer); procedure TCompilerOptSet.AddOptions(aDescr: string; aIndent: integer);
// Set can have one letter options and <n> for numbers // Set can have one letter options and <n> for numbers
procedure NewSetNumber(aDescr: string; aEditKind: TCompilerOptEditKind); procedure NewSetNumber(aDescr: string);
var var
OptSet: TCompilerOpt; OptSet: TCompilerOpt;
begin begin
@ -471,17 +471,17 @@ procedure TCompilerOptSet.AddOptions(aDescr: string; aIndent: integer);
OptSet.fIndentation := aIndent; OptSet.fIndentation := aIndent;
OptSet.fOption := 'Number'; OptSet.fOption := 'Number';
OptSet.fDescription := aDescr; OptSet.fDescription := aDescr;
OptSet.fEditKind := aEditKind; OptSet.fEditKind := oeSetNumber;
end; end;
procedure NewSetElem(aDescr: string; aEditKind: TCompilerOptEditKind); procedure NewSetElem(aDescr: string);
var var
OptSet: TCompilerOpt; OptSet: TCompilerOpt;
begin begin
OptSet := TCompilerOpt.Create(Self); // Add it under a group OptSet := TCompilerOpt.Create(Self); // Add it under a group
OptSet.fIndentation := aIndent; OptSet.fIndentation := aIndent;
OptSet.fOption := aDescr; OptSet.fOption := aDescr;
OptSet.fEditKind := aEditKind; OptSet.fEditKind := oeSetElem;
end; end;
var var
@ -490,7 +490,7 @@ var
begin begin
Opt1 := Copy(aDescr, aIndent+1, Length(aDescr)); Opt1 := Copy(aDescr, aIndent+1, Length(aDescr));
if AnsiStartsStr('<n>', Opt1) then if AnsiStartsStr('<n>', Opt1) then
NewSetNumber(Opt1, oeSetNumber) NewSetNumber(Opt1)
else begin else begin
i := PosEx(':', Opt1, 4); i := PosEx(':', Opt1, 4);
if (i > 0) and (Opt1[i-1]=' ') and (Opt1[i-2]<>' ') and (Opt1[i-3]=' ') then begin if (i > 0) and (Opt1[i-1]=' ') and (Opt1[i-2]<>' ') and (Opt1[i-3]=' ') then begin
@ -502,9 +502,9 @@ begin
Opt1 := ''; Opt1 := '';
end; end;
if Opt1 <> '' then // Can be empty when line in help output is split. if Opt1 <> '' then // Can be empty when line in help output is split.
NewSetElem(Opt1, oeSetElem); NewSetElem(Opt1);
if Opt2 <> '' then if Opt2 <> '' then
NewSetElem(Opt2, oeSetElem); NewSetElem(Opt2);
end; end;
end; end;