paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-02 00:40:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Corrected check for required arg to long opt

Browse Source
This commit is contained in:
michael 2003-05-29 22:49:04 +00:00
parent 44dfb357e3
commit dec8380954
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fcl/inc/custapp.pp
View File

@ -407,7 +407,7 @@ begin
If (P<Length(ShortOptions)) and (Shortoptions[P+1]=':') then
begin
// Required argument
If ((P+1)<Length(ShortOptions)) and (Shortoptions[P+2]<>':') Then
If ((P+1)=Length(ShortOptions)) or (Shortoptions[P+2]<>':') Then
If (J<L) or not haveArg then // Must be last in multi-opt !!
Result:=Format(SErrOptionNeeded,[I,O[J]]);
O:=O[j]; // O is added to arguments.