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

* Fix bug ID #19842 using patch from Bart Broersma

Browse Source 
git-svn-id: trunk@40908 -
This commit is contained in:
michael 2019-01-19 16:35:30 +00:00
parent 7bda42edac
commit e69f4c1e4b
1 changed files with 10 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
rtl/inc/getopts.pp
View File

@ -47,27 +47,24 @@ Function GetLongOpts (ShortOpts : String;LongOpts : POption;var Longind : Longin
Implementation
{$IFNDEF FPC}
{$ifdef TP}
uses strings;
{$else }
uses SysUtils;
type PtrInt = Integer;
{$endif}
{$ENDIF FPC}
{$IFNDEF FPC}
{***************************************************************************
Create an ArgV
***************************************************************************}
{$IF not Declared(argv)} //{$ifdef TP}
uses SysUtils;
type PtrInt = Integer;
type
ppchar = ^pchar;
apchar = array[0..127] of pchar;
var
argc : longint;
argv : apchar;
const
CHAR_SIZE = SizeOf(Char);
@ -139,7 +136,7 @@ begin
move(argsbuf,argv,count shl 2);
end;
{$IFEND} //{$endif TP}
{$ENDIF}
{***************************************************************************
Real Getopts
@ -167,7 +164,7 @@ begin
if (top-middle>middle-bottom) then
begin
len:=middle-bottom;
for i:=1 to len-1 do
for i:=0 to len-1 do
begin
temp:=argv[bottom+i];
argv[bottom+i]:=argv[top-(middle-bottom)+i];
@ -496,17 +493,8 @@ begin
getlongopts:=internal_getopt(shortopts,longopts,@longind,true);
end;
{$ifdef FPC}
initialization
{$endif}
{$ifndef FPC}
{$ifdef TP}
begin
{$else}
initialization
{$endif}
{$endif}
{ create argv if running under TP }
initialization
{ create argv if not running under FPC }
{$ifndef FPC}
setup_arguments;
{$endif}