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

* Fix option character test (bug ID 36438)

Browse Source 
git-svn-id: trunk@43680 -
This commit is contained in:
michael 2019-12-14 11:59:53 +00:00
parent 0b9b002807
commit a3871b0a87
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;