paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-23 05:29:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug ID #31695

Browse Source 
git-svn-id: trunk@35893 -
This commit is contained in:
michael 2017-04-22 11:08:03 +00:00
parent 5cd12a2521
commit b6123bb1a8
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -648,15 +648,15 @@ begin
J:=2;
While ((Result='') or AllErrors) and (J<=L) do
begin
P:=Pos(O[J],ShortOptions);
P:=Pos(O[J],SO);
If (P=0) or (O[j]=':') then
AddToResult(Format(SErrInvalidOption,[I,O[J]]))
else
begin
If (P<Length(ShortOptions)) and (Shortoptions[P+1]=':') then
If (P<Length(SO)) and (SO[P+1]=':') then
begin
// Required argument
If ((P+1)=Length(ShortOptions)) or (Shortoptions[P+2]<>':') Then
If ((P+1)=Length(SO)) or (SO[P+2]<>':') Then
If (J<L) or not haveArg then // Must be last in multi-opt !!
AddToResult(Format(SErrOptionNeeded,[I,O[J]]));
O:=O[j]; // O is added to arguments.