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

* Merging revisions r43680 from trunk:

Browse Source 
------------------------------------------------------------------------
    r43680 | michael | 2019-12-14 12:59:53 +0100 (Sat, 14 Dec 2019) | 1 line
    
    * Fix option character test (bug ID 36438)
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@43727 -
This commit is contained in:
michael 2019-12-23 13:28:27 +00:00
parent 0dd65110d1
commit 9017588d3f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -394,7 +394,7 @@ begin
else else
begin // short options have form '-o value' begin // short options have form '-o value'
If (AIndex<ParamCount) then If (AIndex<ParamCount) then
if (Copy(Params[AIndex+1],1,1)<>'-') then if (Copy(Params[AIndex+1],1,1)<>OptionChar) then
Result:=Params[AIndex+1]; Result:=Params[AIndex+1];
end; end;
end; end;