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

* getopts fix from Bram Kuijvenhoven

Browse Source 
git-svn-id: trunk@3427 -
This commit is contained in:
florian 2006-05-06 08:12:58 +00:00
parent cae35add51
commit c3fb576801
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/getopts.pp
View File

@ -214,8 +214,6 @@ end;
Function Internal_getopt (Var Optstring : string;LongOpts : POption;
LongInd : pointer;Long_only : boolean ) : char;
type
pinteger=^integer;
var
temp,endopt,
option_index : byte;
@ -392,7 +390,7 @@ begin
end; { argument in next parameter end;}
nextchar:=0;
if longind<>nil then
pinteger(longind)^:=indfound+1;
plongint(longind)^:=indfound+1;
if pfound^.flag<>nil then
begin
pfound^.flag^:=pfound^.value;