paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 11:13:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Applied patch by accorp to fix unwanted parameter values in Opts output parameter of CheckOptions. (bug ID 29951)

Browse Source 
git-svn-id: trunk@34500 -
This commit is contained in:
michael 2016-09-10 19:43:17 +00:00
parent 7d4b3dc7aa
commit 9cca873e54
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fcl-base/src/custapp.pp
View File

@ -643,8 +643,6 @@ begin
begin begin
HaveArg:=(I<ParamCount) and (Length(ParamStr(I+1))>0) and (ParamStr(I+1)[1]<>FOptionChar); HaveArg:=(I<ParamCount) and (Length(ParamStr(I+1))>0) and (ParamStr(I+1)[1]<>FOptionChar);
UsedArg:=False; UsedArg:=False;
If HaveArg then
OV:=Paramstr(I+1);
If Not CaseSensitiveOptions then If Not CaseSensitiveOptions then
O:=LowerCase(O); O:=LowerCase(O);
L:=Length(O); L:=Length(O);
@ -668,10 +666,11 @@ begin
end; end;
Inc(J); Inc(J);
end; end;
If HaveArg and UsedArg then HaveArg:=HaveArg and UsedArg;
If HaveArg then
begin begin
Inc(I); // Skip argument. Inc(I); // Skip argument.
O:=O[Length(O)]; // O is added to arguments ! OV:=Paramstr(I);
end; end;
end; end;
If HaveArg and ((Result='') or AllErrors) then If HaveArg and ((Result='') or AllErrors) then